diff --git a/GI/WebKit2.hs b/GI/WebKit2.hs deleted file mode 100644 --- a/GI/WebKit2.hs +++ /dev/null @@ -1,46 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2 - ( module GI.WebKit2.Callbacks , - module GI.WebKit2.Constants , - module GI.WebKit2.Enums , - module GI.WebKit2.Flags , - module GI.WebKit2.Functions , - module GI.WebKit2.Interfaces , - module GI.WebKit2.Objects , - module GI.WebKit2.Structs , - - - - module Data.GI.Base , - - - ) where - -import GI.WebKit2.Callbacks -import GI.WebKit2.Constants -import GI.WebKit2.Enums -import GI.WebKit2.Flags -import GI.WebKit2.Functions -import GI.WebKit2.Interfaces -import GI.WebKit2.Objects -import GI.WebKit2.Structs - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - -import Data.GI.Base - diff --git a/GI/WebKit2/Callbacks.hs b/GI/WebKit2/Callbacks.hs deleted file mode 100644 --- a/GI/WebKit2/Callbacks.hs +++ /dev/null @@ -1,67 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Callbacks - ( - - -- * Signals --- ** URISchemeRequestCallback - URISchemeRequestCallback , - URISchemeRequestCallbackC , - mkURISchemeRequestCallback , - noURISchemeRequestCallback , - uRISchemeRequestCallbackClosure , - uRISchemeRequestCallbackWrapper , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types - - --- callback URISchemeRequestCallback -uRISchemeRequestCallbackClosure :: URISchemeRequestCallback -> IO Closure -uRISchemeRequestCallbackClosure cb = newCClosure =<< mkURISchemeRequestCallback wrapped - where wrapped = uRISchemeRequestCallbackWrapper Nothing cb - -type URISchemeRequestCallbackC = - Ptr URISchemeRequest -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkURISchemeRequestCallback :: URISchemeRequestCallbackC -> IO (FunPtr URISchemeRequestCallbackC) - -type URISchemeRequestCallback = - URISchemeRequest -> - IO () - -noURISchemeRequestCallback :: Maybe URISchemeRequestCallback -noURISchemeRequestCallback = Nothing - -uRISchemeRequestCallbackWrapper :: - Maybe (Ptr (FunPtr (URISchemeRequestCallbackC))) -> - URISchemeRequestCallback -> - Ptr URISchemeRequest -> - Ptr () -> - IO () -uRISchemeRequestCallbackWrapper funptrptr _cb request _ = do - request' <- (newObject URISchemeRequest) request - _cb request' - maybeReleaseFunPtr funptrptr - - diff --git a/GI/WebKit2/Constants.hs b/GI/WebKit2/Constants.hs deleted file mode 100644 --- a/GI/WebKit2/Constants.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Constants - ( - pattern MINOR_VERSION , - pattern MICRO_VERSION , - pattern MAJOR_VERSION , - pattern EDITING_COMMAND_UNDO , - pattern EDITING_COMMAND_SELECT_ALL , - pattern EDITING_COMMAND_REDO , - pattern EDITING_COMMAND_PASTE , - pattern EDITING_COMMAND_INSERT_IMAGE , - pattern EDITING_COMMAND_CUT , - pattern EDITING_COMMAND_CREATE_LINK , - pattern EDITING_COMMAND_COPY , - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - - -pattern MINOR_VERSION = 12 :: Int32 - - -pattern MICRO_VERSION = 2 :: Int32 - - -pattern MAJOR_VERSION = 2 :: Int32 - - -pattern EDITING_COMMAND_UNDO = "Undo" :: T.Text - - -pattern EDITING_COMMAND_SELECT_ALL = "SelectAll" :: T.Text - - -pattern EDITING_COMMAND_REDO = "Redo" :: T.Text - - -pattern EDITING_COMMAND_PASTE = "Paste" :: T.Text - - -pattern EDITING_COMMAND_INSERT_IMAGE = "InsertImage" :: T.Text - - -pattern EDITING_COMMAND_CUT = "Cut" :: T.Text - - -pattern EDITING_COMMAND_CREATE_LINK = "CreateLink" :: T.Text - - -pattern EDITING_COMMAND_COPY = "Copy" :: T.Text - - diff --git a/GI/WebKit2/Enums.hs b/GI/WebKit2/Enums.hs deleted file mode 100644 --- a/GI/WebKit2/Enums.hs +++ /dev/null @@ -1,1027 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Enums - ( - catchSnapshotError , - handleSnapshotError , - catchPrintError , - handlePrintError , - catchPolicyError , - handlePolicyError , - catchPluginError , - handlePluginError , - catchNetworkError , - handleNetworkError , - catchJavascriptError , - handleJavascriptError , - catchFaviconDatabaseError , - handleFaviconDatabaseError , - catchDownloadError , - handleDownloadError , - --- * Exported types - UserStyleLevel(..) , - UserScriptInjectionTime(..) , - UserContentInjectedFrames(..) , - TLSErrorsPolicy(..) , - SnapshotRegion(..) , - SnapshotError(..) , - ScriptDialogType(..) , - SaveMode(..) , - ProcessModel(..) , - PrintOperationResponse(..) , - PrintError(..) , - PolicyError(..) , - PolicyDecisionType(..) , - PluginError(..) , - NetworkError(..) , - NavigationType(..) , - LoadEvent(..) , - JavascriptError(..) , - InsecureContentEvent(..) , - FaviconDatabaseError(..) , - DownloadError(..) , - CredentialPersistence(..) , - CookiePersistentStorage(..) , - CookieAcceptPolicy(..) , - ContextMenuAction(..) , - CacheModel(..) , - AuthenticationScheme(..) , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Enum UserStyleLevel - -data UserStyleLevel = - UserStyleLevelUser - | UserStyleLevelAuthor - | AnotherUserStyleLevel Int - deriving (Show, Eq) - -instance Enum UserStyleLevel where - fromEnum UserStyleLevelUser = 0 - fromEnum UserStyleLevelAuthor = 1 - fromEnum (AnotherUserStyleLevel k) = k - - toEnum 0 = UserStyleLevelUser - toEnum 1 = UserStyleLevelAuthor - toEnum k = AnotherUserStyleLevel k - -foreign import ccall "webkit_user_style_level_get_type" c_webkit_user_style_level_get_type :: - IO GType - -instance BoxedEnum UserStyleLevel where - boxedEnumType _ = c_webkit_user_style_level_get_type - --- Enum UserScriptInjectionTime - -data UserScriptInjectionTime = - UserScriptInjectionTimeStart - | UserScriptInjectionTimeEnd - | AnotherUserScriptInjectionTime Int - deriving (Show, Eq) - -instance Enum UserScriptInjectionTime where - fromEnum UserScriptInjectionTimeStart = 0 - fromEnum UserScriptInjectionTimeEnd = 1 - fromEnum (AnotherUserScriptInjectionTime k) = k - - toEnum 0 = UserScriptInjectionTimeStart - toEnum 1 = UserScriptInjectionTimeEnd - toEnum k = AnotherUserScriptInjectionTime k - -foreign import ccall "webkit_user_script_injection_time_get_type" c_webkit_user_script_injection_time_get_type :: - IO GType - -instance BoxedEnum UserScriptInjectionTime where - boxedEnumType _ = c_webkit_user_script_injection_time_get_type - --- Enum UserContentInjectedFrames - -data UserContentInjectedFrames = - UserContentInjectedFramesAllFrames - | UserContentInjectedFramesTopFrame - | AnotherUserContentInjectedFrames Int - deriving (Show, Eq) - -instance Enum UserContentInjectedFrames where - fromEnum UserContentInjectedFramesAllFrames = 0 - fromEnum UserContentInjectedFramesTopFrame = 1 - fromEnum (AnotherUserContentInjectedFrames k) = k - - toEnum 0 = UserContentInjectedFramesAllFrames - toEnum 1 = UserContentInjectedFramesTopFrame - toEnum k = AnotherUserContentInjectedFrames k - -foreign import ccall "webkit_user_content_injected_frames_get_type" c_webkit_user_content_injected_frames_get_type :: - IO GType - -instance BoxedEnum UserContentInjectedFrames where - boxedEnumType _ = c_webkit_user_content_injected_frames_get_type - --- Enum TLSErrorsPolicy - -data TLSErrorsPolicy = - TLSErrorsPolicyIgnore - | TLSErrorsPolicyFail - | AnotherTLSErrorsPolicy Int - deriving (Show, Eq) - -instance Enum TLSErrorsPolicy where - fromEnum TLSErrorsPolicyIgnore = 0 - fromEnum TLSErrorsPolicyFail = 1 - fromEnum (AnotherTLSErrorsPolicy k) = k - - toEnum 0 = TLSErrorsPolicyIgnore - toEnum 1 = TLSErrorsPolicyFail - toEnum k = AnotherTLSErrorsPolicy k - -foreign import ccall "webkit_tls_errors_policy_get_type" c_webkit_tls_errors_policy_get_type :: - IO GType - -instance BoxedEnum TLSErrorsPolicy where - boxedEnumType _ = c_webkit_tls_errors_policy_get_type - --- Enum SnapshotRegion - -data SnapshotRegion = - SnapshotRegionVisible - | SnapshotRegionFullDocument - | AnotherSnapshotRegion Int - deriving (Show, Eq) - -instance Enum SnapshotRegion where - fromEnum SnapshotRegionVisible = 0 - fromEnum SnapshotRegionFullDocument = 1 - fromEnum (AnotherSnapshotRegion k) = k - - toEnum 0 = SnapshotRegionVisible - toEnum 1 = SnapshotRegionFullDocument - toEnum k = AnotherSnapshotRegion k - -foreign import ccall "webkit_snapshot_region_get_type" c_webkit_snapshot_region_get_type :: - IO GType - -instance BoxedEnum SnapshotRegion where - boxedEnumType _ = c_webkit_snapshot_region_get_type - --- Enum SnapshotError - -data SnapshotError = - SnapshotErrorCreate - | AnotherSnapshotError Int - deriving (Show, Eq) - -instance Enum SnapshotError where - fromEnum SnapshotErrorCreate = 799 - fromEnum (AnotherSnapshotError k) = k - - toEnum 799 = SnapshotErrorCreate - toEnum k = AnotherSnapshotError k - -instance GErrorClass SnapshotError where - gerrorClassDomain _ = "WebKitSnapshotError" - -catchSnapshotError :: - IO a -> - (SnapshotError -> GErrorMessage -> IO a) -> - IO a -catchSnapshotError = catchGErrorJustDomain - -handleSnapshotError :: - (SnapshotError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleSnapshotError = handleGErrorJustDomain - -foreign import ccall "webkit_snapshot_error_get_type" c_webkit_snapshot_error_get_type :: - IO GType - -instance BoxedEnum SnapshotError where - boxedEnumType _ = c_webkit_snapshot_error_get_type - --- Enum ScriptDialogType - -data ScriptDialogType = - ScriptDialogTypeAlert - | ScriptDialogTypeConfirm - | ScriptDialogTypePrompt - | ScriptDialogTypeBeforeUnloadConfirm - | AnotherScriptDialogType Int - deriving (Show, Eq) - -instance Enum ScriptDialogType where - fromEnum ScriptDialogTypeAlert = 0 - fromEnum ScriptDialogTypeConfirm = 1 - fromEnum ScriptDialogTypePrompt = 2 - fromEnum ScriptDialogTypeBeforeUnloadConfirm = 3 - fromEnum (AnotherScriptDialogType k) = k - - toEnum 0 = ScriptDialogTypeAlert - toEnum 1 = ScriptDialogTypeConfirm - toEnum 2 = ScriptDialogTypePrompt - toEnum 3 = ScriptDialogTypeBeforeUnloadConfirm - toEnum k = AnotherScriptDialogType k - -foreign import ccall "webkit_script_dialog_type_get_type" c_webkit_script_dialog_type_get_type :: - IO GType - -instance BoxedEnum ScriptDialogType where - boxedEnumType _ = c_webkit_script_dialog_type_get_type - --- Enum SaveMode - -data SaveMode = - SaveModeMhtml - | AnotherSaveMode Int - deriving (Show, Eq) - -instance Enum SaveMode where - fromEnum SaveModeMhtml = 0 - fromEnum (AnotherSaveMode k) = k - - toEnum 0 = SaveModeMhtml - toEnum k = AnotherSaveMode k - -foreign import ccall "webkit_save_mode_get_type" c_webkit_save_mode_get_type :: - IO GType - -instance BoxedEnum SaveMode where - boxedEnumType _ = c_webkit_save_mode_get_type - --- Enum ProcessModel - -data ProcessModel = - ProcessModelSharedSecondaryProcess - | ProcessModelMultipleSecondaryProcesses - | AnotherProcessModel Int - deriving (Show, Eq) - -instance Enum ProcessModel where - fromEnum ProcessModelSharedSecondaryProcess = 0 - fromEnum ProcessModelMultipleSecondaryProcesses = 1 - fromEnum (AnotherProcessModel k) = k - - toEnum 0 = ProcessModelSharedSecondaryProcess - toEnum 1 = ProcessModelMultipleSecondaryProcesses - toEnum k = AnotherProcessModel k - -foreign import ccall "webkit_process_model_get_type" c_webkit_process_model_get_type :: - IO GType - -instance BoxedEnum ProcessModel where - boxedEnumType _ = c_webkit_process_model_get_type - --- Enum PrintOperationResponse - -data PrintOperationResponse = - PrintOperationResponsePrint - | PrintOperationResponseCancel - | AnotherPrintOperationResponse Int - deriving (Show, Eq) - -instance Enum PrintOperationResponse where - fromEnum PrintOperationResponsePrint = 0 - fromEnum PrintOperationResponseCancel = 1 - fromEnum (AnotherPrintOperationResponse k) = k - - toEnum 0 = PrintOperationResponsePrint - toEnum 1 = PrintOperationResponseCancel - toEnum k = AnotherPrintOperationResponse k - -foreign import ccall "webkit_print_operation_response_get_type" c_webkit_print_operation_response_get_type :: - IO GType - -instance BoxedEnum PrintOperationResponse where - boxedEnumType _ = c_webkit_print_operation_response_get_type - --- Enum PrintError - -data PrintError = - PrintErrorGeneral - | PrintErrorPrinterNotFound - | PrintErrorInvalidPageRange - | AnotherPrintError Int - deriving (Show, Eq) - -instance Enum PrintError where - fromEnum PrintErrorGeneral = 599 - fromEnum PrintErrorPrinterNotFound = 500 - fromEnum PrintErrorInvalidPageRange = 501 - fromEnum (AnotherPrintError k) = k - - toEnum 500 = PrintErrorPrinterNotFound - toEnum 501 = PrintErrorInvalidPageRange - toEnum 599 = PrintErrorGeneral - toEnum k = AnotherPrintError k - -instance GErrorClass PrintError where - gerrorClassDomain _ = "WebKitPrintError" - -catchPrintError :: - IO a -> - (PrintError -> GErrorMessage -> IO a) -> - IO a -catchPrintError = catchGErrorJustDomain - -handlePrintError :: - (PrintError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handlePrintError = handleGErrorJustDomain - -foreign import ccall "webkit_print_error_get_type" c_webkit_print_error_get_type :: - IO GType - -instance BoxedEnum PrintError where - boxedEnumType _ = c_webkit_print_error_get_type - --- Enum PolicyError - -data PolicyError = - PolicyErrorFailed - | PolicyErrorCannotShowMimeType - | PolicyErrorCannotShowUri - | PolicyErrorFrameLoadInterruptedByPolicyChange - | PolicyErrorCannotUseRestrictedPort - | AnotherPolicyError Int - deriving (Show, Eq) - -instance Enum PolicyError where - fromEnum PolicyErrorFailed = 199 - fromEnum PolicyErrorCannotShowMimeType = 100 - fromEnum PolicyErrorCannotShowUri = 101 - fromEnum PolicyErrorFrameLoadInterruptedByPolicyChange = 102 - fromEnum PolicyErrorCannotUseRestrictedPort = 103 - fromEnum (AnotherPolicyError k) = k - - toEnum 100 = PolicyErrorCannotShowMimeType - toEnum 101 = PolicyErrorCannotShowUri - toEnum 102 = PolicyErrorFrameLoadInterruptedByPolicyChange - toEnum 103 = PolicyErrorCannotUseRestrictedPort - toEnum 199 = PolicyErrorFailed - toEnum k = AnotherPolicyError k - -instance GErrorClass PolicyError where - gerrorClassDomain _ = "WebKitPolicyError" - -catchPolicyError :: - IO a -> - (PolicyError -> GErrorMessage -> IO a) -> - IO a -catchPolicyError = catchGErrorJustDomain - -handlePolicyError :: - (PolicyError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handlePolicyError = handleGErrorJustDomain - -foreign import ccall "webkit_policy_error_get_type" c_webkit_policy_error_get_type :: - IO GType - -instance BoxedEnum PolicyError where - boxedEnumType _ = c_webkit_policy_error_get_type - --- Enum PolicyDecisionType - -data PolicyDecisionType = - PolicyDecisionTypeNavigationAction - | PolicyDecisionTypeNewWindowAction - | PolicyDecisionTypeResponse - | AnotherPolicyDecisionType Int - deriving (Show, Eq) - -instance Enum PolicyDecisionType where - fromEnum PolicyDecisionTypeNavigationAction = 0 - fromEnum PolicyDecisionTypeNewWindowAction = 1 - fromEnum PolicyDecisionTypeResponse = 2 - fromEnum (AnotherPolicyDecisionType k) = k - - toEnum 0 = PolicyDecisionTypeNavigationAction - toEnum 1 = PolicyDecisionTypeNewWindowAction - toEnum 2 = PolicyDecisionTypeResponse - toEnum k = AnotherPolicyDecisionType k - -foreign import ccall "webkit_policy_decision_type_get_type" c_webkit_policy_decision_type_get_type :: - IO GType - -instance BoxedEnum PolicyDecisionType where - boxedEnumType _ = c_webkit_policy_decision_type_get_type - --- Enum PluginError - -data PluginError = - PluginErrorFailed - | PluginErrorCannotFindPlugin - | PluginErrorCannotLoadPlugin - | PluginErrorJavaUnavailable - | PluginErrorConnectionCancelled - | PluginErrorWillHandleLoad - | AnotherPluginError Int - deriving (Show, Eq) - -instance Enum PluginError where - fromEnum PluginErrorFailed = 299 - fromEnum PluginErrorCannotFindPlugin = 200 - fromEnum PluginErrorCannotLoadPlugin = 201 - fromEnum PluginErrorJavaUnavailable = 202 - fromEnum PluginErrorConnectionCancelled = 203 - fromEnum PluginErrorWillHandleLoad = 204 - fromEnum (AnotherPluginError k) = k - - toEnum 200 = PluginErrorCannotFindPlugin - toEnum 201 = PluginErrorCannotLoadPlugin - toEnum 202 = PluginErrorJavaUnavailable - toEnum 203 = PluginErrorConnectionCancelled - toEnum 204 = PluginErrorWillHandleLoad - toEnum 299 = PluginErrorFailed - toEnum k = AnotherPluginError k - -instance GErrorClass PluginError where - gerrorClassDomain _ = "WebKitPluginError" - -catchPluginError :: - IO a -> - (PluginError -> GErrorMessage -> IO a) -> - IO a -catchPluginError = catchGErrorJustDomain - -handlePluginError :: - (PluginError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handlePluginError = handleGErrorJustDomain - -foreign import ccall "webkit_plugin_error_get_type" c_webkit_plugin_error_get_type :: - IO GType - -instance BoxedEnum PluginError where - boxedEnumType _ = c_webkit_plugin_error_get_type - --- Enum NetworkError - -data NetworkError = - NetworkErrorFailed - | NetworkErrorTransport - | NetworkErrorUnknownProtocol - | NetworkErrorCancelled - | NetworkErrorFileDoesNotExist - | AnotherNetworkError Int - deriving (Show, Eq) - -instance Enum NetworkError where - fromEnum NetworkErrorFailed = 399 - fromEnum NetworkErrorTransport = 300 - fromEnum NetworkErrorUnknownProtocol = 301 - fromEnum NetworkErrorCancelled = 302 - fromEnum NetworkErrorFileDoesNotExist = 303 - fromEnum (AnotherNetworkError k) = k - - toEnum 300 = NetworkErrorTransport - toEnum 301 = NetworkErrorUnknownProtocol - toEnum 302 = NetworkErrorCancelled - toEnum 303 = NetworkErrorFileDoesNotExist - toEnum 399 = NetworkErrorFailed - toEnum k = AnotherNetworkError k - -instance GErrorClass NetworkError where - gerrorClassDomain _ = "WebKitNetworkError" - -catchNetworkError :: - IO a -> - (NetworkError -> GErrorMessage -> IO a) -> - IO a -catchNetworkError = catchGErrorJustDomain - -handleNetworkError :: - (NetworkError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleNetworkError = handleGErrorJustDomain - -foreign import ccall "webkit_network_error_get_type" c_webkit_network_error_get_type :: - IO GType - -instance BoxedEnum NetworkError where - boxedEnumType _ = c_webkit_network_error_get_type - --- Enum NavigationType - -data NavigationType = - NavigationTypeLinkClicked - | NavigationTypeFormSubmitted - | NavigationTypeBackForward - | NavigationTypeReload - | NavigationTypeFormResubmitted - | NavigationTypeOther - | AnotherNavigationType Int - deriving (Show, Eq) - -instance Enum NavigationType where - fromEnum NavigationTypeLinkClicked = 0 - fromEnum NavigationTypeFormSubmitted = 1 - fromEnum NavigationTypeBackForward = 2 - fromEnum NavigationTypeReload = 3 - fromEnum NavigationTypeFormResubmitted = 4 - fromEnum NavigationTypeOther = 5 - fromEnum (AnotherNavigationType k) = k - - toEnum 0 = NavigationTypeLinkClicked - toEnum 1 = NavigationTypeFormSubmitted - toEnum 2 = NavigationTypeBackForward - toEnum 3 = NavigationTypeReload - toEnum 4 = NavigationTypeFormResubmitted - toEnum 5 = NavigationTypeOther - toEnum k = AnotherNavigationType k - -foreign import ccall "webkit_navigation_type_get_type" c_webkit_navigation_type_get_type :: - IO GType - -instance BoxedEnum NavigationType where - boxedEnumType _ = c_webkit_navigation_type_get_type - --- Enum LoadEvent - -data LoadEvent = - LoadEventStarted - | LoadEventRedirected - | LoadEventCommitted - | LoadEventFinished - | AnotherLoadEvent Int - deriving (Show, Eq) - -instance Enum LoadEvent where - fromEnum LoadEventStarted = 0 - fromEnum LoadEventRedirected = 1 - fromEnum LoadEventCommitted = 2 - fromEnum LoadEventFinished = 3 - fromEnum (AnotherLoadEvent k) = k - - toEnum 0 = LoadEventStarted - toEnum 1 = LoadEventRedirected - toEnum 2 = LoadEventCommitted - toEnum 3 = LoadEventFinished - toEnum k = AnotherLoadEvent k - -foreign import ccall "webkit_load_event_get_type" c_webkit_load_event_get_type :: - IO GType - -instance BoxedEnum LoadEvent where - boxedEnumType _ = c_webkit_load_event_get_type - --- Enum JavascriptError - -data JavascriptError = - JavascriptErrorFailed - | AnotherJavascriptError Int - deriving (Show, Eq) - -instance Enum JavascriptError where - fromEnum JavascriptErrorFailed = 699 - fromEnum (AnotherJavascriptError k) = k - - toEnum 699 = JavascriptErrorFailed - toEnum k = AnotherJavascriptError k - -instance GErrorClass JavascriptError where - gerrorClassDomain _ = "WebKitJavascriptError" - -catchJavascriptError :: - IO a -> - (JavascriptError -> GErrorMessage -> IO a) -> - IO a -catchJavascriptError = catchGErrorJustDomain - -handleJavascriptError :: - (JavascriptError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleJavascriptError = handleGErrorJustDomain - -foreign import ccall "webkit_javascript_error_get_type" c_webkit_javascript_error_get_type :: - IO GType - -instance BoxedEnum JavascriptError where - boxedEnumType _ = c_webkit_javascript_error_get_type - --- Enum InsecureContentEvent - -data InsecureContentEvent = - InsecureContentEventRun - | InsecureContentEventDisplayed - | AnotherInsecureContentEvent Int - deriving (Show, Eq) - -instance Enum InsecureContentEvent where - fromEnum InsecureContentEventRun = 0 - fromEnum InsecureContentEventDisplayed = 1 - fromEnum (AnotherInsecureContentEvent k) = k - - toEnum 0 = InsecureContentEventRun - toEnum 1 = InsecureContentEventDisplayed - toEnum k = AnotherInsecureContentEvent k - -foreign import ccall "webkit_insecure_content_event_get_type" c_webkit_insecure_content_event_get_type :: - IO GType - -instance BoxedEnum InsecureContentEvent where - boxedEnumType _ = c_webkit_insecure_content_event_get_type - --- Enum FaviconDatabaseError - -data FaviconDatabaseError = - FaviconDatabaseErrorNotInitialized - | FaviconDatabaseErrorFaviconNotFound - | FaviconDatabaseErrorFaviconUnknown - | AnotherFaviconDatabaseError Int - deriving (Show, Eq) - -instance Enum FaviconDatabaseError where - fromEnum FaviconDatabaseErrorNotInitialized = 0 - fromEnum FaviconDatabaseErrorFaviconNotFound = 1 - fromEnum FaviconDatabaseErrorFaviconUnknown = 2 - fromEnum (AnotherFaviconDatabaseError k) = k - - toEnum 0 = FaviconDatabaseErrorNotInitialized - toEnum 1 = FaviconDatabaseErrorFaviconNotFound - toEnum 2 = FaviconDatabaseErrorFaviconUnknown - toEnum k = AnotherFaviconDatabaseError k - -instance GErrorClass FaviconDatabaseError where - gerrorClassDomain _ = "WebKitFaviconDatabaseError" - -catchFaviconDatabaseError :: - IO a -> - (FaviconDatabaseError -> GErrorMessage -> IO a) -> - IO a -catchFaviconDatabaseError = catchGErrorJustDomain - -handleFaviconDatabaseError :: - (FaviconDatabaseError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleFaviconDatabaseError = handleGErrorJustDomain - -foreign import ccall "webkit_favicon_database_error_get_type" c_webkit_favicon_database_error_get_type :: - IO GType - -instance BoxedEnum FaviconDatabaseError where - boxedEnumType _ = c_webkit_favicon_database_error_get_type - --- Enum DownloadError - -data DownloadError = - DownloadErrorNetwork - | DownloadErrorCancelledByUser - | DownloadErrorDestination - | AnotherDownloadError Int - deriving (Show, Eq) - -instance Enum DownloadError where - fromEnum DownloadErrorNetwork = 499 - fromEnum DownloadErrorCancelledByUser = 400 - fromEnum DownloadErrorDestination = 401 - fromEnum (AnotherDownloadError k) = k - - toEnum 400 = DownloadErrorCancelledByUser - toEnum 401 = DownloadErrorDestination - toEnum 499 = DownloadErrorNetwork - toEnum k = AnotherDownloadError k - -instance GErrorClass DownloadError where - gerrorClassDomain _ = "WebKitDownloadError" - -catchDownloadError :: - IO a -> - (DownloadError -> GErrorMessage -> IO a) -> - IO a -catchDownloadError = catchGErrorJustDomain - -handleDownloadError :: - (DownloadError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleDownloadError = handleGErrorJustDomain - -foreign import ccall "webkit_download_error_get_type" c_webkit_download_error_get_type :: - IO GType - -instance BoxedEnum DownloadError where - boxedEnumType _ = c_webkit_download_error_get_type - --- Enum CredentialPersistence - -data CredentialPersistence = - CredentialPersistenceNone - | CredentialPersistenceForSession - | CredentialPersistencePermanent - | AnotherCredentialPersistence Int - deriving (Show, Eq) - -instance Enum CredentialPersistence where - fromEnum CredentialPersistenceNone = 0 - fromEnum CredentialPersistenceForSession = 1 - fromEnum CredentialPersistencePermanent = 2 - fromEnum (AnotherCredentialPersistence k) = k - - toEnum 0 = CredentialPersistenceNone - toEnum 1 = CredentialPersistenceForSession - toEnum 2 = CredentialPersistencePermanent - toEnum k = AnotherCredentialPersistence k - -foreign import ccall "webkit_credential_persistence_get_type" c_webkit_credential_persistence_get_type :: - IO GType - -instance BoxedEnum CredentialPersistence where - boxedEnumType _ = c_webkit_credential_persistence_get_type - --- Enum CookiePersistentStorage - -data CookiePersistentStorage = - CookiePersistentStorageText - | CookiePersistentStorageSqlite - | AnotherCookiePersistentStorage Int - deriving (Show, Eq) - -instance Enum CookiePersistentStorage where - fromEnum CookiePersistentStorageText = 0 - fromEnum CookiePersistentStorageSqlite = 1 - fromEnum (AnotherCookiePersistentStorage k) = k - - toEnum 0 = CookiePersistentStorageText - toEnum 1 = CookiePersistentStorageSqlite - toEnum k = AnotherCookiePersistentStorage k - -foreign import ccall "webkit_cookie_persistent_storage_get_type" c_webkit_cookie_persistent_storage_get_type :: - IO GType - -instance BoxedEnum CookiePersistentStorage where - boxedEnumType _ = c_webkit_cookie_persistent_storage_get_type - --- Enum CookieAcceptPolicy - -data CookieAcceptPolicy = - CookieAcceptPolicyAlways - | CookieAcceptPolicyNever - | CookieAcceptPolicyNoThirdParty - | AnotherCookieAcceptPolicy Int - deriving (Show, Eq) - -instance Enum CookieAcceptPolicy where - fromEnum CookieAcceptPolicyAlways = 0 - fromEnum CookieAcceptPolicyNever = 1 - fromEnum CookieAcceptPolicyNoThirdParty = 2 - fromEnum (AnotherCookieAcceptPolicy k) = k - - toEnum 0 = CookieAcceptPolicyAlways - toEnum 1 = CookieAcceptPolicyNever - toEnum 2 = CookieAcceptPolicyNoThirdParty - toEnum k = AnotherCookieAcceptPolicy k - -foreign import ccall "webkit_cookie_accept_policy_get_type" c_webkit_cookie_accept_policy_get_type :: - IO GType - -instance BoxedEnum CookieAcceptPolicy where - boxedEnumType _ = c_webkit_cookie_accept_policy_get_type - --- Enum ContextMenuAction - -data ContextMenuAction = - ContextMenuActionNoAction - | ContextMenuActionOpenLink - | ContextMenuActionOpenLinkInNewWindow - | ContextMenuActionDownloadLinkToDisk - | ContextMenuActionCopyLinkToClipboard - | ContextMenuActionOpenImageInNewWindow - | ContextMenuActionDownloadImageToDisk - | ContextMenuActionCopyImageToClipboard - | ContextMenuActionCopyImageUrlToClipboard - | ContextMenuActionOpenFrameInNewWindow - | ContextMenuActionGoBack - | ContextMenuActionGoForward - | ContextMenuActionStop - | ContextMenuActionReload - | ContextMenuActionCopy - | ContextMenuActionCut - | ContextMenuActionPaste - | ContextMenuActionDelete - | ContextMenuActionSelectAll - | ContextMenuActionInputMethods - | ContextMenuActionUnicode - | ContextMenuActionSpellingGuess - | ContextMenuActionNoGuessesFound - | ContextMenuActionIgnoreSpelling - | ContextMenuActionLearnSpelling - | ContextMenuActionIgnoreGrammar - | ContextMenuActionFontMenu - | ContextMenuActionBold - | ContextMenuActionItalic - | ContextMenuActionUnderline - | ContextMenuActionOutline - | ContextMenuActionInspectElement - | ContextMenuActionOpenVideoInNewWindow - | ContextMenuActionOpenAudioInNewWindow - | ContextMenuActionCopyVideoLinkToClipboard - | ContextMenuActionCopyAudioLinkToClipboard - | ContextMenuActionToggleMediaControls - | ContextMenuActionToggleMediaLoop - | ContextMenuActionEnterVideoFullscreen - | ContextMenuActionMediaPlay - | ContextMenuActionMediaPause - | ContextMenuActionMediaMute - | ContextMenuActionDownloadVideoToDisk - | ContextMenuActionDownloadAudioToDisk - | ContextMenuActionCustom - | AnotherContextMenuAction Int - deriving (Show, Eq) - -instance Enum ContextMenuAction where - fromEnum ContextMenuActionNoAction = 0 - fromEnum ContextMenuActionOpenLink = 1 - fromEnum ContextMenuActionOpenLinkInNewWindow = 2 - fromEnum ContextMenuActionDownloadLinkToDisk = 3 - fromEnum ContextMenuActionCopyLinkToClipboard = 4 - fromEnum ContextMenuActionOpenImageInNewWindow = 5 - fromEnum ContextMenuActionDownloadImageToDisk = 6 - fromEnum ContextMenuActionCopyImageToClipboard = 7 - fromEnum ContextMenuActionCopyImageUrlToClipboard = 8 - fromEnum ContextMenuActionOpenFrameInNewWindow = 9 - fromEnum ContextMenuActionGoBack = 10 - fromEnum ContextMenuActionGoForward = 11 - fromEnum ContextMenuActionStop = 12 - fromEnum ContextMenuActionReload = 13 - fromEnum ContextMenuActionCopy = 14 - fromEnum ContextMenuActionCut = 15 - fromEnum ContextMenuActionPaste = 16 - fromEnum ContextMenuActionDelete = 17 - fromEnum ContextMenuActionSelectAll = 18 - fromEnum ContextMenuActionInputMethods = 19 - fromEnum ContextMenuActionUnicode = 20 - fromEnum ContextMenuActionSpellingGuess = 21 - fromEnum ContextMenuActionNoGuessesFound = 22 - fromEnum ContextMenuActionIgnoreSpelling = 23 - fromEnum ContextMenuActionLearnSpelling = 24 - fromEnum ContextMenuActionIgnoreGrammar = 25 - fromEnum ContextMenuActionFontMenu = 26 - fromEnum ContextMenuActionBold = 27 - fromEnum ContextMenuActionItalic = 28 - fromEnum ContextMenuActionUnderline = 29 - fromEnum ContextMenuActionOutline = 30 - fromEnum ContextMenuActionInspectElement = 31 - fromEnum ContextMenuActionOpenVideoInNewWindow = 32 - fromEnum ContextMenuActionOpenAudioInNewWindow = 33 - fromEnum ContextMenuActionCopyVideoLinkToClipboard = 34 - fromEnum ContextMenuActionCopyAudioLinkToClipboard = 35 - fromEnum ContextMenuActionToggleMediaControls = 36 - fromEnum ContextMenuActionToggleMediaLoop = 37 - fromEnum ContextMenuActionEnterVideoFullscreen = 38 - fromEnum ContextMenuActionMediaPlay = 39 - fromEnum ContextMenuActionMediaPause = 40 - fromEnum ContextMenuActionMediaMute = 41 - fromEnum ContextMenuActionDownloadVideoToDisk = 42 - fromEnum ContextMenuActionDownloadAudioToDisk = 43 - fromEnum ContextMenuActionCustom = 10000 - fromEnum (AnotherContextMenuAction k) = k - - toEnum 0 = ContextMenuActionNoAction - toEnum 1 = ContextMenuActionOpenLink - toEnum 2 = ContextMenuActionOpenLinkInNewWindow - toEnum 3 = ContextMenuActionDownloadLinkToDisk - toEnum 4 = ContextMenuActionCopyLinkToClipboard - toEnum 5 = ContextMenuActionOpenImageInNewWindow - toEnum 6 = ContextMenuActionDownloadImageToDisk - toEnum 7 = ContextMenuActionCopyImageToClipboard - toEnum 8 = ContextMenuActionCopyImageUrlToClipboard - toEnum 9 = ContextMenuActionOpenFrameInNewWindow - toEnum 10 = ContextMenuActionGoBack - toEnum 11 = ContextMenuActionGoForward - toEnum 12 = ContextMenuActionStop - toEnum 13 = ContextMenuActionReload - toEnum 14 = ContextMenuActionCopy - toEnum 15 = ContextMenuActionCut - toEnum 16 = ContextMenuActionPaste - toEnum 17 = ContextMenuActionDelete - toEnum 18 = ContextMenuActionSelectAll - toEnum 19 = ContextMenuActionInputMethods - toEnum 20 = ContextMenuActionUnicode - toEnum 21 = ContextMenuActionSpellingGuess - toEnum 22 = ContextMenuActionNoGuessesFound - toEnum 23 = ContextMenuActionIgnoreSpelling - toEnum 24 = ContextMenuActionLearnSpelling - toEnum 25 = ContextMenuActionIgnoreGrammar - toEnum 26 = ContextMenuActionFontMenu - toEnum 27 = ContextMenuActionBold - toEnum 28 = ContextMenuActionItalic - toEnum 29 = ContextMenuActionUnderline - toEnum 30 = ContextMenuActionOutline - toEnum 31 = ContextMenuActionInspectElement - toEnum 32 = ContextMenuActionOpenVideoInNewWindow - toEnum 33 = ContextMenuActionOpenAudioInNewWindow - toEnum 34 = ContextMenuActionCopyVideoLinkToClipboard - toEnum 35 = ContextMenuActionCopyAudioLinkToClipboard - toEnum 36 = ContextMenuActionToggleMediaControls - toEnum 37 = ContextMenuActionToggleMediaLoop - toEnum 38 = ContextMenuActionEnterVideoFullscreen - toEnum 39 = ContextMenuActionMediaPlay - toEnum 40 = ContextMenuActionMediaPause - toEnum 41 = ContextMenuActionMediaMute - toEnum 42 = ContextMenuActionDownloadVideoToDisk - toEnum 43 = ContextMenuActionDownloadAudioToDisk - toEnum 10000 = ContextMenuActionCustom - toEnum k = AnotherContextMenuAction k - -foreign import ccall "webkit_context_menu_action_get_type" c_webkit_context_menu_action_get_type :: - IO GType - -instance BoxedEnum ContextMenuAction where - boxedEnumType _ = c_webkit_context_menu_action_get_type - --- Enum CacheModel - -data CacheModel = - CacheModelDocumentViewer - | CacheModelWebBrowser - | CacheModelDocumentBrowser - | AnotherCacheModel Int - deriving (Show, Eq) - -instance Enum CacheModel where - fromEnum CacheModelDocumentViewer = 0 - fromEnum CacheModelWebBrowser = 1 - fromEnum CacheModelDocumentBrowser = 2 - fromEnum (AnotherCacheModel k) = k - - toEnum 0 = CacheModelDocumentViewer - toEnum 1 = CacheModelWebBrowser - toEnum 2 = CacheModelDocumentBrowser - toEnum k = AnotherCacheModel k - -foreign import ccall "webkit_cache_model_get_type" c_webkit_cache_model_get_type :: - IO GType - -instance BoxedEnum CacheModel where - boxedEnumType _ = c_webkit_cache_model_get_type - --- Enum AuthenticationScheme - -data AuthenticationScheme = - AuthenticationSchemeDefault - | AuthenticationSchemeHttpBasic - | AuthenticationSchemeHttpDigest - | AuthenticationSchemeHtmlForm - | AuthenticationSchemeNtlm - | AuthenticationSchemeNegotiate - | AuthenticationSchemeClientCertificateRequested - | AuthenticationSchemeServerTrustEvaluationRequested - | AuthenticationSchemeUnknown - | AnotherAuthenticationScheme Int - deriving (Show, Eq) - -instance Enum AuthenticationScheme where - fromEnum AuthenticationSchemeDefault = 1 - fromEnum AuthenticationSchemeHttpBasic = 2 - fromEnum AuthenticationSchemeHttpDigest = 3 - fromEnum AuthenticationSchemeHtmlForm = 4 - fromEnum AuthenticationSchemeNtlm = 5 - fromEnum AuthenticationSchemeNegotiate = 6 - fromEnum AuthenticationSchemeClientCertificateRequested = 7 - fromEnum AuthenticationSchemeServerTrustEvaluationRequested = 8 - fromEnum AuthenticationSchemeUnknown = 100 - fromEnum (AnotherAuthenticationScheme k) = k - - toEnum 1 = AuthenticationSchemeDefault - toEnum 2 = AuthenticationSchemeHttpBasic - toEnum 3 = AuthenticationSchemeHttpDigest - toEnum 4 = AuthenticationSchemeHtmlForm - toEnum 5 = AuthenticationSchemeNtlm - toEnum 6 = AuthenticationSchemeNegotiate - toEnum 7 = AuthenticationSchemeClientCertificateRequested - toEnum 8 = AuthenticationSchemeServerTrustEvaluationRequested - toEnum 100 = AuthenticationSchemeUnknown - toEnum k = AnotherAuthenticationScheme k - -foreign import ccall "webkit_authentication_scheme_get_type" c_webkit_authentication_scheme_get_type :: - IO GType - -instance BoxedEnum AuthenticationScheme where - boxedEnumType _ = c_webkit_authentication_scheme_get_type - - diff --git a/GI/WebKit2/Flags.hs b/GI/WebKit2/Flags.hs deleted file mode 100644 --- a/GI/WebKit2/Flags.hs +++ /dev/null @@ -1,170 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Flags - ( - --- * Exported types - SnapshotOptions(..) , - HitTestResultContext(..) , - FindOptions(..) , - EditorTypingAttributes(..) , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Flags SnapshotOptions - -data SnapshotOptions = - SnapshotOptionsNone - | SnapshotOptionsIncludeSelectionHighlighting - | SnapshotOptionsTransparentBackground - | AnotherSnapshotOptions Int - deriving (Show, Eq) - -instance Enum SnapshotOptions where - fromEnum SnapshotOptionsNone = 0 - fromEnum SnapshotOptionsIncludeSelectionHighlighting = 1 - fromEnum SnapshotOptionsTransparentBackground = 2 - fromEnum (AnotherSnapshotOptions k) = k - - toEnum 0 = SnapshotOptionsNone - toEnum 1 = SnapshotOptionsIncludeSelectionHighlighting - toEnum 2 = SnapshotOptionsTransparentBackground - toEnum k = AnotherSnapshotOptions k - -foreign import ccall "webkit_snapshot_options_get_type" c_webkit_snapshot_options_get_type :: - IO GType - -instance BoxedFlags SnapshotOptions where - boxedFlagsType _ = c_webkit_snapshot_options_get_type - -instance IsGFlag SnapshotOptions - --- Flags HitTestResultContext - -data HitTestResultContext = - HitTestResultContextDocument - | HitTestResultContextLink - | HitTestResultContextImage - | HitTestResultContextMedia - | HitTestResultContextEditable - | HitTestResultContextScrollbar - | HitTestResultContextSelection - | AnotherHitTestResultContext Int - deriving (Show, Eq) - -instance Enum HitTestResultContext where - fromEnum HitTestResultContextDocument = 2 - fromEnum HitTestResultContextLink = 4 - fromEnum HitTestResultContextImage = 8 - fromEnum HitTestResultContextMedia = 16 - fromEnum HitTestResultContextEditable = 32 - fromEnum HitTestResultContextScrollbar = 64 - fromEnum HitTestResultContextSelection = 128 - fromEnum (AnotherHitTestResultContext k) = k - - toEnum 2 = HitTestResultContextDocument - toEnum 4 = HitTestResultContextLink - toEnum 8 = HitTestResultContextImage - toEnum 16 = HitTestResultContextMedia - toEnum 32 = HitTestResultContextEditable - toEnum 64 = HitTestResultContextScrollbar - toEnum 128 = HitTestResultContextSelection - toEnum k = AnotherHitTestResultContext k - -foreign import ccall "webkit_hit_test_result_context_get_type" c_webkit_hit_test_result_context_get_type :: - IO GType - -instance BoxedFlags HitTestResultContext where - boxedFlagsType _ = c_webkit_hit_test_result_context_get_type - -instance IsGFlag HitTestResultContext - --- Flags FindOptions - -data FindOptions = - FindOptionsNone - | FindOptionsCaseInsensitive - | FindOptionsAtWordStarts - | FindOptionsTreatMedialCapitalAsWordStart - | FindOptionsBackwards - | FindOptionsWrapAround - | AnotherFindOptions Int - deriving (Show, Eq) - -instance Enum FindOptions where - fromEnum FindOptionsNone = 0 - fromEnum FindOptionsCaseInsensitive = 1 - fromEnum FindOptionsAtWordStarts = 2 - fromEnum FindOptionsTreatMedialCapitalAsWordStart = 4 - fromEnum FindOptionsBackwards = 8 - fromEnum FindOptionsWrapAround = 16 - fromEnum (AnotherFindOptions k) = k - - toEnum 0 = FindOptionsNone - toEnum 1 = FindOptionsCaseInsensitive - toEnum 2 = FindOptionsAtWordStarts - toEnum 4 = FindOptionsTreatMedialCapitalAsWordStart - toEnum 8 = FindOptionsBackwards - toEnum 16 = FindOptionsWrapAround - toEnum k = AnotherFindOptions k - -foreign import ccall "webkit_find_options_get_type" c_webkit_find_options_get_type :: - IO GType - -instance BoxedFlags FindOptions where - boxedFlagsType _ = c_webkit_find_options_get_type - -instance IsGFlag FindOptions - --- Flags EditorTypingAttributes - -data EditorTypingAttributes = - EditorTypingAttributesNone - | EditorTypingAttributesBold - | EditorTypingAttributesItalic - | EditorTypingAttributesUnderline - | EditorTypingAttributesStrikethrough - | AnotherEditorTypingAttributes Int - deriving (Show, Eq) - -instance Enum EditorTypingAttributes where - fromEnum EditorTypingAttributesNone = 2 - fromEnum EditorTypingAttributesBold = 4 - fromEnum EditorTypingAttributesItalic = 8 - fromEnum EditorTypingAttributesUnderline = 16 - fromEnum EditorTypingAttributesStrikethrough = 32 - fromEnum (AnotherEditorTypingAttributes k) = k - - toEnum 2 = EditorTypingAttributesNone - toEnum 4 = EditorTypingAttributesBold - toEnum 8 = EditorTypingAttributesItalic - toEnum 16 = EditorTypingAttributesUnderline - toEnum 32 = EditorTypingAttributesStrikethrough - toEnum k = AnotherEditorTypingAttributes k - -foreign import ccall "webkit_editor_typing_attributes_get_type" c_webkit_editor_typing_attributes_get_type :: - IO GType - -instance BoxedFlags EditorTypingAttributes where - boxedFlagsType _ = c_webkit_editor_typing_attributes_get_type - -instance IsGFlag EditorTypingAttributes - - diff --git a/GI/WebKit2/Functions.hs b/GI/WebKit2/Functions.hs deleted file mode 100644 --- a/GI/WebKit2/Functions.hs +++ /dev/null @@ -1,152 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Functions - ( - - -- * Methods --- ** getMajorVersion - getMajorVersion , - - --- ** getMicroVersion - getMicroVersion , - - --- ** getMinorVersion - getMinorVersion , - - --- ** userMediaPermissionIsForAudioDevice - userMediaPermissionIsForAudioDevice , - - --- ** userMediaPermissionIsForVideoDevice - userMediaPermissionIsForVideoDevice , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - --- function webkit_user_media_permission_is_for_video_device --- Args : [Arg {argCName = "request", argType = TInterface "WebKit2" "UserMediaPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_user_media_permission_is_for_video_device" webkit_user_media_permission_is_for_video_device :: - Ptr UserMediaPermissionRequest -> -- request : TInterface "WebKit2" "UserMediaPermissionRequest" - IO CInt - - -userMediaPermissionIsForVideoDevice :: - (MonadIO m, UserMediaPermissionRequestK a) => - a -- request - -> m Bool -- result -userMediaPermissionIsForVideoDevice request = liftIO $ do - let request' = unsafeManagedPtrCastPtr request - result <- webkit_user_media_permission_is_for_video_device request' - let result' = (/= 0) result - touchManagedPtr request - return result' - - --- function webkit_user_media_permission_is_for_audio_device --- Args : [Arg {argCName = "request", argType = TInterface "WebKit2" "UserMediaPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_user_media_permission_is_for_audio_device" webkit_user_media_permission_is_for_audio_device :: - Ptr UserMediaPermissionRequest -> -- request : TInterface "WebKit2" "UserMediaPermissionRequest" - IO CInt - - -userMediaPermissionIsForAudioDevice :: - (MonadIO m, UserMediaPermissionRequestK a) => - a -- request - -> m Bool -- result -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_get_minor_version --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_get_minor_version" webkit_get_minor_version :: - IO Word32 - - -getMinorVersion :: - (MonadIO m) => - m Word32 -- result -getMinorVersion = liftIO $ do - result <- webkit_get_minor_version - return result - - --- function webkit_get_micro_version --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_get_micro_version" webkit_get_micro_version :: - IO Word32 - - -getMicroVersion :: - (MonadIO m) => - m Word32 -- result -getMicroVersion = liftIO $ do - result <- webkit_get_micro_version - return result - - --- function webkit_get_major_version --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_get_major_version" webkit_get_major_version :: - IO Word32 - - -getMajorVersion :: - (MonadIO m) => - m Word32 -- result -getMajorVersion = liftIO $ do - result <- webkit_get_major_version - return result - - - diff --git a/GI/WebKit2/Interfaces.hs b/GI/WebKit2/Interfaces.hs deleted file mode 100644 --- a/GI/WebKit2/Interfaces.hs +++ /dev/null @@ -1,27 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Interfaces - ( module GI.WebKit2.Interfaces.PermissionRequest, - - - ) where - -import GI.WebKit2.Interfaces.PermissionRequest - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - - diff --git a/GI/WebKit2/Interfaces/PermissionRequest.hs b/GI/WebKit2/Interfaces/PermissionRequest.hs deleted file mode 100644 --- a/GI/WebKit2/Interfaces/PermissionRequest.hs +++ /dev/null @@ -1,163 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Interfaces.PermissionRequest - ( - --- * Exported types - PermissionRequest(..) , - noPermissionRequest , - PermissionRequestK , - toPermissionRequest , - - - -- * Methods --- ** permissionRequestAllow - PermissionRequestAllowMethodInfo , - permissionRequestAllow , - - --- ** permissionRequestDeny - PermissionRequestDenyMethodInfo , - permissionRequestDeny , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - --- interface PermissionRequest - -newtype PermissionRequest = PermissionRequest (ForeignPtr PermissionRequest) -noPermissionRequest :: Maybe PermissionRequest -noPermissionRequest = Nothing - -type family ResolvePermissionRequestMethod (t :: Symbol) (o :: *) :: * where - ResolvePermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo - ResolvePermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo - ResolvePermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePermissionRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePermissionRequestMethod t PermissionRequest, MethodInfo info PermissionRequest p) => IsLabelProxy t (PermissionRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePermissionRequestMethod t PermissionRequest, MethodInfo info PermissionRequest p) => IsLabel t (PermissionRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList PermissionRequest = PermissionRequestAttributeList -type PermissionRequestAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PermissionRequest = PermissionRequestSignalList -type PermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "webkit_permission_request_get_type" - c_webkit_permission_request_get_type :: IO GType - -type instance ParentTypes PermissionRequest = PermissionRequestParentTypes -type PermissionRequestParentTypes = '[GObject.Object] - -instance GObject PermissionRequest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_permission_request_get_type - - -class GObject o => PermissionRequestK o -instance (GObject o, IsDescendantOf PermissionRequest o) => PermissionRequestK o - -toPermissionRequest :: PermissionRequestK o => o -> IO PermissionRequest -toPermissionRequest = unsafeCastTo PermissionRequest - --- method PermissionRequest::allow --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_permission_request_allow" webkit_permission_request_allow :: - Ptr PermissionRequest -> -- _obj : TInterface "WebKit2" "PermissionRequest" - IO () - - -permissionRequestAllow :: - (MonadIO m, PermissionRequestK a) => - a -- _obj - -> m () -- result -permissionRequestAllow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_permission_request_allow _obj' - touchManagedPtr _obj - return () - -data PermissionRequestAllowMethodInfo -instance (signature ~ (m ()), MonadIO m, PermissionRequestK a) => MethodInfo PermissionRequestAllowMethodInfo a signature where - overloadedMethod _ = permissionRequestAllow - --- method PermissionRequest::deny --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_permission_request_deny" webkit_permission_request_deny :: - Ptr PermissionRequest -> -- _obj : TInterface "WebKit2" "PermissionRequest" - IO () - - -permissionRequestDeny :: - (MonadIO m, PermissionRequestK a) => - a -- _obj - -> m () -- result -permissionRequestDeny _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_permission_request_deny _obj' - touchManagedPtr _obj - return () - -data PermissionRequestDenyMethodInfo -instance (signature ~ (m ()), MonadIO m, PermissionRequestK a) => MethodInfo PermissionRequestDenyMethodInfo a signature where - overloadedMethod _ = permissionRequestDeny - - diff --git a/GI/WebKit2/Interfaces/PermissionRequest.hs-boot b/GI/WebKit2/Interfaces/PermissionRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Interfaces/PermissionRequest.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.WebKit2.Interfaces.PermissionRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PermissionRequest = PermissionRequest (ForeignPtr PermissionRequest) -instance GObject PermissionRequest where -class GObject o => PermissionRequestK o -instance (GObject o, IsDescendantOf PermissionRequest o) => PermissionRequestK o -data PermissionRequestAllowMethodInfo -data PermissionRequestDenyMethodInfo diff --git a/GI/WebKit2/Objects.hs b/GI/WebKit2/Objects.hs deleted file mode 100644 --- a/GI/WebKit2/Objects.hs +++ /dev/null @@ -1,99 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects - ( module GI.WebKit2.Objects.AuthenticationRequest, - module GI.WebKit2.Objects.BackForwardList, - module GI.WebKit2.Objects.BackForwardListItem, - module GI.WebKit2.Objects.ColorChooserRequest, - module GI.WebKit2.Objects.ContextMenu , - module GI.WebKit2.Objects.ContextMenuItem, - module GI.WebKit2.Objects.CookieManager , - module GI.WebKit2.Objects.Download , - module GI.WebKit2.Objects.EditorState , - module GI.WebKit2.Objects.FaviconDatabase, - module GI.WebKit2.Objects.FileChooserRequest, - module GI.WebKit2.Objects.FindController, - module GI.WebKit2.Objects.FormSubmissionRequest, - module GI.WebKit2.Objects.GeolocationPermissionRequest, - module GI.WebKit2.Objects.HitTestResult , - module GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest, - module GI.WebKit2.Objects.NavigationPolicyDecision, - module GI.WebKit2.Objects.Notification , - module GI.WebKit2.Objects.NotificationPermissionRequest, - module GI.WebKit2.Objects.Plugin , - module GI.WebKit2.Objects.PolicyDecision, - module GI.WebKit2.Objects.PrintOperation, - module GI.WebKit2.Objects.ResponsePolicyDecision, - module GI.WebKit2.Objects.SecurityManager, - module GI.WebKit2.Objects.Settings , - module GI.WebKit2.Objects.URIRequest , - module GI.WebKit2.Objects.URIResponse , - module GI.WebKit2.Objects.URISchemeRequest, - module GI.WebKit2.Objects.UserContentManager, - module GI.WebKit2.Objects.UserMediaPermissionRequest, - module GI.WebKit2.Objects.WebContext , - module GI.WebKit2.Objects.WebInspector , - module GI.WebKit2.Objects.WebResource , - module GI.WebKit2.Objects.WebView , - module GI.WebKit2.Objects.WebViewBase , - module GI.WebKit2.Objects.WebsiteDataManager, - module GI.WebKit2.Objects.WindowProperties, - - - ) where - -import GI.WebKit2.Objects.AuthenticationRequest -import GI.WebKit2.Objects.BackForwardList -import GI.WebKit2.Objects.BackForwardListItem -import GI.WebKit2.Objects.ColorChooserRequest -import GI.WebKit2.Objects.ContextMenu -import GI.WebKit2.Objects.ContextMenuItem -import GI.WebKit2.Objects.CookieManager -import GI.WebKit2.Objects.Download -import GI.WebKit2.Objects.EditorState -import GI.WebKit2.Objects.FaviconDatabase -import GI.WebKit2.Objects.FileChooserRequest -import GI.WebKit2.Objects.FindController -import GI.WebKit2.Objects.FormSubmissionRequest -import GI.WebKit2.Objects.GeolocationPermissionRequest -import GI.WebKit2.Objects.HitTestResult -import GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest -import GI.WebKit2.Objects.NavigationPolicyDecision -import GI.WebKit2.Objects.Notification -import GI.WebKit2.Objects.NotificationPermissionRequest -import GI.WebKit2.Objects.Plugin -import GI.WebKit2.Objects.PolicyDecision -import GI.WebKit2.Objects.PrintOperation -import GI.WebKit2.Objects.ResponsePolicyDecision -import GI.WebKit2.Objects.SecurityManager -import GI.WebKit2.Objects.Settings -import GI.WebKit2.Objects.URIRequest -import GI.WebKit2.Objects.URIResponse -import GI.WebKit2.Objects.URISchemeRequest -import GI.WebKit2.Objects.UserContentManager -import GI.WebKit2.Objects.UserMediaPermissionRequest -import GI.WebKit2.Objects.WebContext -import GI.WebKit2.Objects.WebInspector -import GI.WebKit2.Objects.WebResource -import GI.WebKit2.Objects.WebView -import GI.WebKit2.Objects.WebViewBase -import GI.WebKit2.Objects.WebsiteDataManager -import GI.WebKit2.Objects.WindowProperties - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - - diff --git a/GI/WebKit2/Objects/AuthenticationRequest.hs b/GI/WebKit2/Objects/AuthenticationRequest.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/AuthenticationRequest.hs +++ /dev/null @@ -1,501 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.AuthenticationRequest - ( - --- * Exported types - AuthenticationRequest(..) , - AuthenticationRequestK , - toAuthenticationRequest , - noAuthenticationRequest , - - - -- * Methods --- ** authenticationRequestAuthenticate - AuthenticationRequestAuthenticateMethodInfo, - authenticationRequestAuthenticate , - - --- ** authenticationRequestCanSaveCredentials - AuthenticationRequestCanSaveCredentialsMethodInfo, - authenticationRequestCanSaveCredentials , - - --- ** authenticationRequestCancel - AuthenticationRequestCancelMethodInfo , - authenticationRequestCancel , - - --- ** authenticationRequestGetHost - AuthenticationRequestGetHostMethodInfo , - authenticationRequestGetHost , - - --- ** authenticationRequestGetPort - AuthenticationRequestGetPortMethodInfo , - authenticationRequestGetPort , - - --- ** authenticationRequestGetProposedCredential - AuthenticationRequestGetProposedCredentialMethodInfo, - authenticationRequestGetProposedCredential, - - --- ** authenticationRequestGetRealm - AuthenticationRequestGetRealmMethodInfo , - authenticationRequestGetRealm , - - --- ** authenticationRequestGetScheme - AuthenticationRequestGetSchemeMethodInfo, - authenticationRequestGetScheme , - - --- ** authenticationRequestIsForProxy - AuthenticationRequestIsForProxyMethodInfo, - authenticationRequestIsForProxy , - - --- ** authenticationRequestIsRetry - AuthenticationRequestIsRetryMethodInfo , - authenticationRequestIsRetry , - - - - - -- * Signals --- ** Cancelled - AuthenticationRequestCancelledCallback , - AuthenticationRequestCancelledCallbackC , - AuthenticationRequestCancelledSignalInfo, - afterAuthenticationRequestCancelled , - authenticationRequestCancelledCallbackWrapper, - authenticationRequestCancelledClosure , - mkAuthenticationRequestCancelledCallback, - noAuthenticationRequestCancelledCallback, - onAuthenticationRequestCancelled , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype AuthenticationRequest = AuthenticationRequest (ForeignPtr AuthenticationRequest) -foreign import ccall "webkit_authentication_request_get_type" - c_webkit_authentication_request_get_type :: IO GType - -type instance ParentTypes AuthenticationRequest = AuthenticationRequestParentTypes -type AuthenticationRequestParentTypes = '[GObject.Object] - -instance GObject AuthenticationRequest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_authentication_request_get_type - - -class GObject o => AuthenticationRequestK o -instance (GObject o, IsDescendantOf AuthenticationRequest o) => AuthenticationRequestK o - -toAuthenticationRequest :: AuthenticationRequestK o => o -> IO AuthenticationRequest -toAuthenticationRequest = unsafeCastTo AuthenticationRequest - -noAuthenticationRequest :: Maybe AuthenticationRequest -noAuthenticationRequest = Nothing - -type family ResolveAuthenticationRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveAuthenticationRequestMethod "authenticate" o = AuthenticationRequestAuthenticateMethodInfo - ResolveAuthenticationRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAuthenticationRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAuthenticationRequestMethod "canSaveCredentials" o = AuthenticationRequestCanSaveCredentialsMethodInfo - ResolveAuthenticationRequestMethod "cancel" o = AuthenticationRequestCancelMethodInfo - ResolveAuthenticationRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAuthenticationRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAuthenticationRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAuthenticationRequestMethod "isForProxy" o = AuthenticationRequestIsForProxyMethodInfo - ResolveAuthenticationRequestMethod "isRetry" o = AuthenticationRequestIsRetryMethodInfo - ResolveAuthenticationRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAuthenticationRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAuthenticationRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAuthenticationRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAuthenticationRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAuthenticationRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAuthenticationRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAuthenticationRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAuthenticationRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAuthenticationRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAuthenticationRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAuthenticationRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAuthenticationRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAuthenticationRequestMethod "getHost" o = AuthenticationRequestGetHostMethodInfo - ResolveAuthenticationRequestMethod "getPort" o = AuthenticationRequestGetPortMethodInfo - ResolveAuthenticationRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAuthenticationRequestMethod "getProposedCredential" o = AuthenticationRequestGetProposedCredentialMethodInfo - ResolveAuthenticationRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAuthenticationRequestMethod "getRealm" o = AuthenticationRequestGetRealmMethodInfo - ResolveAuthenticationRequestMethod "getScheme" o = AuthenticationRequestGetSchemeMethodInfo - ResolveAuthenticationRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAuthenticationRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAuthenticationRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAuthenticationRequestMethod t AuthenticationRequest, MethodInfo info AuthenticationRequest p) => IsLabelProxy t (AuthenticationRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAuthenticationRequestMethod t AuthenticationRequest, MethodInfo info AuthenticationRequest p) => IsLabel t (AuthenticationRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal AuthenticationRequest::cancelled -type AuthenticationRequestCancelledCallback = - IO () - -noAuthenticationRequestCancelledCallback :: Maybe AuthenticationRequestCancelledCallback -noAuthenticationRequestCancelledCallback = Nothing - -type AuthenticationRequestCancelledCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAuthenticationRequestCancelledCallback :: AuthenticationRequestCancelledCallbackC -> IO (FunPtr AuthenticationRequestCancelledCallbackC) - -authenticationRequestCancelledClosure :: AuthenticationRequestCancelledCallback -> IO Closure -authenticationRequestCancelledClosure cb = newCClosure =<< mkAuthenticationRequestCancelledCallback wrapped - where wrapped = authenticationRequestCancelledCallbackWrapper cb - -authenticationRequestCancelledCallbackWrapper :: - AuthenticationRequestCancelledCallback -> - Ptr () -> - Ptr () -> - IO () -authenticationRequestCancelledCallbackWrapper _cb _ _ = do - _cb - -onAuthenticationRequestCancelled :: (GObject a, MonadIO m) => a -> AuthenticationRequestCancelledCallback -> m SignalHandlerId -onAuthenticationRequestCancelled obj cb = liftIO $ connectAuthenticationRequestCancelled obj cb SignalConnectBefore -afterAuthenticationRequestCancelled :: (GObject a, MonadIO m) => a -> AuthenticationRequestCancelledCallback -> m SignalHandlerId -afterAuthenticationRequestCancelled obj cb = connectAuthenticationRequestCancelled obj cb SignalConnectAfter - -connectAuthenticationRequestCancelled :: (GObject a, MonadIO m) => - a -> AuthenticationRequestCancelledCallback -> SignalConnectMode -> m SignalHandlerId -connectAuthenticationRequestCancelled obj cb after = liftIO $ do - cb' <- mkAuthenticationRequestCancelledCallback (authenticationRequestCancelledCallbackWrapper cb) - connectSignalFunPtr obj "cancelled" cb' after - -type instance AttributeList AuthenticationRequest = AuthenticationRequestAttributeList -type AuthenticationRequestAttributeList = ('[ ] :: [(Symbol, *)]) - -data AuthenticationRequestCancelledSignalInfo -instance SignalInfo AuthenticationRequestCancelledSignalInfo where - type HaskellCallbackType AuthenticationRequestCancelledSignalInfo = AuthenticationRequestCancelledCallback - connectSignal _ = connectAuthenticationRequestCancelled - -type instance SignalList AuthenticationRequest = AuthenticationRequestSignalList -type AuthenticationRequestSignalList = ('[ '("cancelled", AuthenticationRequestCancelledSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AuthenticationRequest::authenticate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "credential", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data AuthenticationRequestAuthenticateMethodInfo -instance (signature ~ (Maybe (Credential) -> m ()), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestAuthenticateMethodInfo a signature where - overloadedMethod _ = authenticationRequestAuthenticate - --- method AuthenticationRequest::can_save_credentials --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_authentication_request_can_save_credentials" webkit_authentication_request_can_save_credentials :: - Ptr AuthenticationRequest -> -- _obj : TInterface "WebKit2" "AuthenticationRequest" - IO CInt - - -authenticationRequestCanSaveCredentials :: - (MonadIO m, AuthenticationRequestK a) => - a -- _obj - -> m Bool -- result -authenticationRequestCanSaveCredentials _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_authentication_request_can_save_credentials _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AuthenticationRequestCanSaveCredentialsMethodInfo -instance (signature ~ (m Bool), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestCanSaveCredentialsMethodInfo a signature where - overloadedMethod _ = authenticationRequestCanSaveCredentials - --- method AuthenticationRequest::cancel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_authentication_request_cancel" webkit_authentication_request_cancel :: - Ptr AuthenticationRequest -> -- _obj : TInterface "WebKit2" "AuthenticationRequest" - IO () - - -authenticationRequestCancel :: - (MonadIO m, AuthenticationRequestK a) => - a -- _obj - -> m () -- result -authenticationRequestCancel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_authentication_request_cancel _obj' - touchManagedPtr _obj - return () - -data AuthenticationRequestCancelMethodInfo -instance (signature ~ (m ()), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestCancelMethodInfo a signature where - overloadedMethod _ = authenticationRequestCancel - --- method AuthenticationRequest::get_host --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_authentication_request_get_host" webkit_authentication_request_get_host :: - Ptr AuthenticationRequest -> -- _obj : TInterface "WebKit2" "AuthenticationRequest" - IO CString - - -authenticationRequestGetHost :: - (MonadIO m, AuthenticationRequestK a) => - a -- _obj - -> m T.Text -- result -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' - -data AuthenticationRequestGetHostMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetHostMethodInfo a signature where - overloadedMethod _ = authenticationRequestGetHost - --- method AuthenticationRequest::get_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_authentication_request_get_port" webkit_authentication_request_get_port :: - Ptr AuthenticationRequest -> -- _obj : TInterface "WebKit2" "AuthenticationRequest" - IO Word32 - - -authenticationRequestGetPort :: - (MonadIO m, AuthenticationRequestK a) => - a -- _obj - -> m Word32 -- result -authenticationRequestGetPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_authentication_request_get_port _obj' - touchManagedPtr _obj - return result - -data AuthenticationRequestGetPortMethodInfo -instance (signature ~ (m Word32), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetPortMethodInfo a signature where - overloadedMethod _ = authenticationRequestGetPort - --- method AuthenticationRequest::get_proposed_credential --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthenticationRequestGetProposedCredentialMethodInfo -instance (signature ~ (m Credential), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetProposedCredentialMethodInfo a signature where - overloadedMethod _ = authenticationRequestGetProposedCredential - --- method AuthenticationRequest::get_realm --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_authentication_request_get_realm" webkit_authentication_request_get_realm :: - Ptr AuthenticationRequest -> -- _obj : TInterface "WebKit2" "AuthenticationRequest" - IO CString - - -authenticationRequestGetRealm :: - (MonadIO m, AuthenticationRequestK a) => - a -- _obj - -> m T.Text -- result -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' - -data AuthenticationRequestGetRealmMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetRealmMethodInfo a signature where - overloadedMethod _ = authenticationRequestGetRealm - --- method AuthenticationRequest::get_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -authenticationRequestGetScheme _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_authentication_request_get_scheme _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data AuthenticationRequestGetSchemeMethodInfo -instance (signature ~ (m AuthenticationScheme), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetSchemeMethodInfo a signature where - overloadedMethod _ = authenticationRequestGetScheme - --- method AuthenticationRequest::is_for_proxy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_authentication_request_is_for_proxy" webkit_authentication_request_is_for_proxy :: - Ptr AuthenticationRequest -> -- _obj : TInterface "WebKit2" "AuthenticationRequest" - IO CInt - - -authenticationRequestIsForProxy :: - (MonadIO m, AuthenticationRequestK a) => - a -- _obj - -> m Bool -- result -authenticationRequestIsForProxy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_authentication_request_is_for_proxy _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AuthenticationRequestIsForProxyMethodInfo -instance (signature ~ (m Bool), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestIsForProxyMethodInfo a signature where - overloadedMethod _ = authenticationRequestIsForProxy - --- method AuthenticationRequest::is_retry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_authentication_request_is_retry" webkit_authentication_request_is_retry :: - Ptr AuthenticationRequest -> -- _obj : TInterface "WebKit2" "AuthenticationRequest" - IO CInt - - -authenticationRequestIsRetry :: - (MonadIO m, AuthenticationRequestK a) => - a -- _obj - -> m Bool -- result -authenticationRequestIsRetry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_authentication_request_is_retry _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AuthenticationRequestIsRetryMethodInfo -instance (signature ~ (m Bool), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestIsRetryMethodInfo a signature where - overloadedMethod _ = authenticationRequestIsRetry - - diff --git a/GI/WebKit2/Objects/AuthenticationRequest.hs-boot b/GI/WebKit2/Objects/AuthenticationRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/AuthenticationRequest.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.WebKit2.Objects.AuthenticationRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AuthenticationRequest = AuthenticationRequest (ForeignPtr AuthenticationRequest) -instance GObject AuthenticationRequest where -class GObject o => AuthenticationRequestK o -instance (GObject o, IsDescendantOf AuthenticationRequest o) => AuthenticationRequestK o -data AuthenticationRequestCancelledSignalInfo -data AuthenticationRequestAuthenticateMethodInfo -data AuthenticationRequestCanSaveCredentialsMethodInfo -data AuthenticationRequestCancelMethodInfo -data AuthenticationRequestGetHostMethodInfo -data AuthenticationRequestGetPortMethodInfo -data AuthenticationRequestGetProposedCredentialMethodInfo -data AuthenticationRequestGetRealmMethodInfo -data AuthenticationRequestGetSchemeMethodInfo -data AuthenticationRequestIsForProxyMethodInfo -data AuthenticationRequestIsRetryMethodInfo diff --git a/GI/WebKit2/Objects/BackForwardList.hs b/GI/WebKit2/Objects/BackForwardList.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/BackForwardList.hs +++ /dev/null @@ -1,488 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.BackForwardList - ( - --- * Exported types - BackForwardList(..) , - BackForwardListK , - toBackForwardList , - noBackForwardList , - - - -- * Methods --- ** backForwardListGetBackItem - BackForwardListGetBackItemMethodInfo , - backForwardListGetBackItem , - - --- ** backForwardListGetBackList - BackForwardListGetBackListMethodInfo , - backForwardListGetBackList , - - --- ** backForwardListGetBackListWithLimit - BackForwardListGetBackListWithLimitMethodInfo, - backForwardListGetBackListWithLimit , - - --- ** backForwardListGetCurrentItem - BackForwardListGetCurrentItemMethodInfo , - backForwardListGetCurrentItem , - - --- ** backForwardListGetForwardItem - BackForwardListGetForwardItemMethodInfo , - backForwardListGetForwardItem , - - --- ** backForwardListGetForwardList - BackForwardListGetForwardListMethodInfo , - backForwardListGetForwardList , - - --- ** backForwardListGetForwardListWithLimit - BackForwardListGetForwardListWithLimitMethodInfo, - backForwardListGetForwardListWithLimit , - - --- ** backForwardListGetLength - BackForwardListGetLengthMethodInfo , - backForwardListGetLength , - - --- ** backForwardListGetNthItem - BackForwardListGetNthItemMethodInfo , - backForwardListGetNthItem , - - - - - -- * Signals --- ** Changed - BackForwardListChangedCallback , - BackForwardListChangedCallbackC , - BackForwardListChangedSignalInfo , - afterBackForwardListChanged , - backForwardListChangedCallbackWrapper , - backForwardListChangedClosure , - mkBackForwardListChangedCallback , - noBackForwardListChangedCallback , - onBackForwardListChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype BackForwardList = BackForwardList (ForeignPtr BackForwardList) -foreign import ccall "webkit_back_forward_list_get_type" - c_webkit_back_forward_list_get_type :: IO GType - -type instance ParentTypes BackForwardList = BackForwardListParentTypes -type BackForwardListParentTypes = '[GObject.Object] - -instance GObject BackForwardList where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_back_forward_list_get_type - - -class GObject o => BackForwardListK o -instance (GObject o, IsDescendantOf BackForwardList o) => BackForwardListK o - -toBackForwardList :: BackForwardListK o => o -> IO BackForwardList -toBackForwardList = unsafeCastTo BackForwardList - -noBackForwardList :: Maybe BackForwardList -noBackForwardList = Nothing - -type family ResolveBackForwardListMethod (t :: Symbol) (o :: *) :: * where - ResolveBackForwardListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveBackForwardListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveBackForwardListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveBackForwardListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveBackForwardListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveBackForwardListMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveBackForwardListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveBackForwardListMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveBackForwardListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveBackForwardListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveBackForwardListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveBackForwardListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveBackForwardListMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveBackForwardListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveBackForwardListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveBackForwardListMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveBackForwardListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveBackForwardListMethod "getBackItem" o = BackForwardListGetBackItemMethodInfo - ResolveBackForwardListMethod "getBackList" o = BackForwardListGetBackListMethodInfo - ResolveBackForwardListMethod "getBackListWithLimit" o = BackForwardListGetBackListWithLimitMethodInfo - ResolveBackForwardListMethod "getCurrentItem" o = BackForwardListGetCurrentItemMethodInfo - ResolveBackForwardListMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveBackForwardListMethod "getForwardItem" o = BackForwardListGetForwardItemMethodInfo - ResolveBackForwardListMethod "getForwardList" o = BackForwardListGetForwardListMethodInfo - ResolveBackForwardListMethod "getForwardListWithLimit" o = BackForwardListGetForwardListWithLimitMethodInfo - ResolveBackForwardListMethod "getLength" o = BackForwardListGetLengthMethodInfo - ResolveBackForwardListMethod "getNthItem" o = BackForwardListGetNthItemMethodInfo - ResolveBackForwardListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveBackForwardListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveBackForwardListMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveBackForwardListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveBackForwardListMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBackForwardListMethod t BackForwardList, MethodInfo info BackForwardList p) => IsLabelProxy t (BackForwardList -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBackForwardListMethod t BackForwardList, MethodInfo info BackForwardList p) => IsLabel t (BackForwardList -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal BackForwardList::changed -type BackForwardListChangedCallback = - Maybe BackForwardListItem -> - 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 _ itemAdded itemsRemoved _ = do - maybeItemAdded <- - if itemAdded == nullPtr - then return Nothing - else do - itemAdded' <- (newObject BackForwardListItem) itemAdded - return $ Just itemAdded' - _cb maybeItemAdded itemsRemoved - -onBackForwardListChanged :: (GObject a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId -onBackForwardListChanged obj cb = liftIO $ connectBackForwardListChanged obj cb SignalConnectBefore -afterBackForwardListChanged :: (GObject a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId -afterBackForwardListChanged obj cb = connectBackForwardListChanged obj cb SignalConnectAfter - -connectBackForwardListChanged :: (GObject a, MonadIO m) => - a -> BackForwardListChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectBackForwardListChanged obj cb after = liftIO $ do - cb' <- mkBackForwardListChangedCallback (backForwardListChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - -type instance AttributeList BackForwardList = BackForwardListAttributeList -type BackForwardListAttributeList = ('[ ] :: [(Symbol, *)]) - -data BackForwardListChangedSignalInfo -instance SignalInfo BackForwardListChangedSignalInfo where - type HaskellCallbackType BackForwardListChangedSignalInfo = BackForwardListChangedCallback - connectSignal _ = connectBackForwardListChanged - -type instance SignalList BackForwardList = BackForwardListSignalList -type BackForwardListSignalList = ('[ '("changed", BackForwardListChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method BackForwardList::get_back_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data BackForwardListGetBackItemMethodInfo -instance (signature ~ (m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetBackItemMethodInfo a signature where - overloadedMethod _ = backForwardListGetBackItem - --- method BackForwardList::get_back_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -backForwardListGetBackList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_back_forward_list_get_back_list _obj' - result' <- unpackGList result - result'' <- mapM (newObject BackForwardListItem) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data BackForwardListGetBackListMethodInfo -instance (signature ~ (m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetBackListMethodInfo a signature where - overloadedMethod _ = backForwardListGetBackList - --- method BackForwardList::get_back_list_with_limit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TUInt - IO (Ptr (GList (Ptr BackForwardListItem))) - - -backForwardListGetBackListWithLimit :: - (MonadIO m, BackForwardListK a) => - a -- _obj - -> Word32 -- limit - -> m [BackForwardListItem] -- result -backForwardListGetBackListWithLimit _obj limit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_back_forward_list_get_back_list_with_limit _obj' limit - result' <- unpackGList result - result'' <- mapM (newObject BackForwardListItem) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data BackForwardListGetBackListWithLimitMethodInfo -instance (signature ~ (Word32 -> m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetBackListWithLimitMethodInfo a signature where - overloadedMethod _ = backForwardListGetBackListWithLimit - --- method BackForwardList::get_current_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data BackForwardListGetCurrentItemMethodInfo -instance (signature ~ (m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetCurrentItemMethodInfo a signature where - overloadedMethod _ = backForwardListGetCurrentItem - --- method BackForwardList::get_forward_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data BackForwardListGetForwardItemMethodInfo -instance (signature ~ (m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetForwardItemMethodInfo a signature where - overloadedMethod _ = backForwardListGetForwardItem - --- method BackForwardList::get_forward_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -backForwardListGetForwardList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_back_forward_list_get_forward_list _obj' - result' <- unpackGList result - result'' <- mapM (newObject BackForwardListItem) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data BackForwardListGetForwardListMethodInfo -instance (signature ~ (m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetForwardListMethodInfo a signature where - overloadedMethod _ = backForwardListGetForwardList - --- method BackForwardList::get_forward_list_with_limit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TUInt - IO (Ptr (GList (Ptr BackForwardListItem))) - - -backForwardListGetForwardListWithLimit :: - (MonadIO m, BackForwardListK a) => - a -- _obj - -> Word32 -- limit - -> m [BackForwardListItem] -- result -backForwardListGetForwardListWithLimit _obj limit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_back_forward_list_get_forward_list_with_limit _obj' limit - result' <- unpackGList result - result'' <- mapM (newObject BackForwardListItem) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data BackForwardListGetForwardListWithLimitMethodInfo -instance (signature ~ (Word32 -> m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetForwardListWithLimitMethodInfo a signature where - overloadedMethod _ = backForwardListGetForwardListWithLimit - --- method BackForwardList::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_back_forward_list_get_length" webkit_back_forward_list_get_length :: - Ptr BackForwardList -> -- _obj : TInterface "WebKit2" "BackForwardList" - IO Word32 - - -backForwardListGetLength :: - (MonadIO m, BackForwardListK a) => - a -- _obj - -> m Word32 -- result -backForwardListGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_back_forward_list_get_length _obj' - touchManagedPtr _obj - return result - -data BackForwardListGetLengthMethodInfo -instance (signature ~ (m Word32), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetLengthMethodInfo a signature where - overloadedMethod _ = backForwardListGetLength - --- method BackForwardList::get_nth_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - IO (Ptr BackForwardListItem) - - -backForwardListGetNthItem :: - (MonadIO m, BackForwardListK a) => - a -- _obj - -> Int32 -- index - -> m BackForwardListItem -- result -backForwardListGetNthItem _obj index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_back_forward_list_get_nth_item _obj' index - checkUnexpectedReturnNULL "webkit_back_forward_list_get_nth_item" result - result' <- (newObject BackForwardListItem) result - touchManagedPtr _obj - return result' - -data BackForwardListGetNthItemMethodInfo -instance (signature ~ (Int32 -> m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetNthItemMethodInfo a signature where - overloadedMethod _ = backForwardListGetNthItem - - diff --git a/GI/WebKit2/Objects/BackForwardList.hs-boot b/GI/WebKit2/Objects/BackForwardList.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/BackForwardList.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.WebKit2.Objects.BackForwardList where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype BackForwardList = BackForwardList (ForeignPtr BackForwardList) -instance GObject BackForwardList where -class GObject o => BackForwardListK o -instance (GObject o, IsDescendantOf BackForwardList o) => BackForwardListK o -data BackForwardListChangedSignalInfo -data BackForwardListGetBackItemMethodInfo -data BackForwardListGetBackListMethodInfo -data BackForwardListGetBackListWithLimitMethodInfo -data BackForwardListGetCurrentItemMethodInfo -data BackForwardListGetForwardItemMethodInfo -data BackForwardListGetForwardListMethodInfo -data BackForwardListGetForwardListWithLimitMethodInfo -data BackForwardListGetLengthMethodInfo -data BackForwardListGetNthItemMethodInfo diff --git a/GI/WebKit2/Objects/BackForwardListItem.hs b/GI/WebKit2/Objects/BackForwardListItem.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/BackForwardListItem.hs +++ /dev/null @@ -1,200 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.BackForwardListItem - ( - --- * Exported types - BackForwardListItem(..) , - BackForwardListItemK , - toBackForwardListItem , - noBackForwardListItem , - - - -- * Methods --- ** backForwardListItemGetOriginalUri - BackForwardListItemGetOriginalUriMethodInfo, - backForwardListItemGetOriginalUri , - - --- ** backForwardListItemGetTitle - BackForwardListItemGetTitleMethodInfo , - backForwardListItemGetTitle , - - --- ** backForwardListItemGetUri - BackForwardListItemGetUriMethodInfo , - backForwardListItemGetUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype BackForwardListItem = BackForwardListItem (ForeignPtr BackForwardListItem) -foreign import ccall "webkit_back_forward_list_item_get_type" - c_webkit_back_forward_list_item_get_type :: IO GType - -type instance ParentTypes BackForwardListItem = BackForwardListItemParentTypes -type BackForwardListItemParentTypes = '[GObject.Object] - -instance GObject BackForwardListItem where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_webkit_back_forward_list_item_get_type - - -class GObject o => BackForwardListItemK o -instance (GObject o, IsDescendantOf BackForwardListItem o) => BackForwardListItemK o - -toBackForwardListItem :: BackForwardListItemK o => o -> IO BackForwardListItem -toBackForwardListItem = unsafeCastTo BackForwardListItem - -noBackForwardListItem :: Maybe BackForwardListItem -noBackForwardListItem = Nothing - -type family ResolveBackForwardListItemMethod (t :: Symbol) (o :: *) :: * where - ResolveBackForwardListItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveBackForwardListItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveBackForwardListItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveBackForwardListItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveBackForwardListItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveBackForwardListItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveBackForwardListItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveBackForwardListItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveBackForwardListItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveBackForwardListItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveBackForwardListItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveBackForwardListItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveBackForwardListItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveBackForwardListItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveBackForwardListItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveBackForwardListItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveBackForwardListItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveBackForwardListItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveBackForwardListItemMethod "getOriginalUri" o = BackForwardListItemGetOriginalUriMethodInfo - ResolveBackForwardListItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveBackForwardListItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveBackForwardListItemMethod "getTitle" o = BackForwardListItemGetTitleMethodInfo - ResolveBackForwardListItemMethod "getUri" o = BackForwardListItemGetUriMethodInfo - ResolveBackForwardListItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveBackForwardListItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveBackForwardListItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBackForwardListItemMethod t BackForwardListItem, MethodInfo info BackForwardListItem p) => IsLabelProxy t (BackForwardListItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBackForwardListItemMethod t BackForwardListItem, MethodInfo info BackForwardListItem p) => IsLabel t (BackForwardListItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList BackForwardListItem = BackForwardListItemAttributeList -type BackForwardListItemAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList BackForwardListItem = BackForwardListItemSignalList -type BackForwardListItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method BackForwardListItem::get_original_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_back_forward_list_item_get_original_uri" webkit_back_forward_list_item_get_original_uri :: - Ptr BackForwardListItem -> -- _obj : TInterface "WebKit2" "BackForwardListItem" - IO CString - - -backForwardListItemGetOriginalUri :: - (MonadIO m, BackForwardListItemK a) => - a -- _obj - -> m T.Text -- result -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' - -data BackForwardListItemGetOriginalUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, BackForwardListItemK a) => MethodInfo BackForwardListItemGetOriginalUriMethodInfo a signature where - overloadedMethod _ = backForwardListItemGetOriginalUri - --- method BackForwardListItem::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_back_forward_list_item_get_title" webkit_back_forward_list_item_get_title :: - Ptr BackForwardListItem -> -- _obj : TInterface "WebKit2" "BackForwardListItem" - IO CString - - -backForwardListItemGetTitle :: - (MonadIO m, BackForwardListItemK a) => - a -- _obj - -> m T.Text -- result -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' - -data BackForwardListItemGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, BackForwardListItemK a) => MethodInfo BackForwardListItemGetTitleMethodInfo a signature where - overloadedMethod _ = backForwardListItemGetTitle - --- method BackForwardListItem::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_back_forward_list_item_get_uri" webkit_back_forward_list_item_get_uri :: - Ptr BackForwardListItem -> -- _obj : TInterface "WebKit2" "BackForwardListItem" - IO CString - - -backForwardListItemGetUri :: - (MonadIO m, BackForwardListItemK a) => - a -- _obj - -> m T.Text -- result -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' - -data BackForwardListItemGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, BackForwardListItemK a) => MethodInfo BackForwardListItemGetUriMethodInfo a signature where - overloadedMethod _ = backForwardListItemGetUri - - diff --git a/GI/WebKit2/Objects/BackForwardListItem.hs-boot b/GI/WebKit2/Objects/BackForwardListItem.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/BackForwardListItem.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2.Objects.BackForwardListItem where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype BackForwardListItem = BackForwardListItem (ForeignPtr BackForwardListItem) -instance GObject BackForwardListItem where -class GObject o => BackForwardListItemK o -instance (GObject o, IsDescendantOf BackForwardListItem o) => BackForwardListItemK o -data BackForwardListItemGetOriginalUriMethodInfo -data BackForwardListItemGetTitleMethodInfo -data BackForwardListItemGetUriMethodInfo diff --git a/GI/WebKit2/Objects/ColorChooserRequest.hs b/GI/WebKit2/Objects/ColorChooserRequest.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/ColorChooserRequest.hs +++ /dev/null @@ -1,369 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.ColorChooserRequest - ( - --- * Exported types - ColorChooserRequest(..) , - ColorChooserRequestK , - toColorChooserRequest , - noColorChooserRequest , - - - -- * Methods --- ** colorChooserRequestCancel - ColorChooserRequestCancelMethodInfo , - colorChooserRequestCancel , - - --- ** colorChooserRequestFinish - ColorChooserRequestFinishMethodInfo , - colorChooserRequestFinish , - - --- ** colorChooserRequestGetElementRectangle - ColorChooserRequestGetElementRectangleMethodInfo, - colorChooserRequestGetElementRectangle , - - --- ** colorChooserRequestGetRgba - ColorChooserRequestGetRgbaMethodInfo , - colorChooserRequestGetRgba , - - --- ** colorChooserRequestSetRgba - ColorChooserRequestSetRgbaMethodInfo , - colorChooserRequestSetRgba , - - - - - -- * Properties --- ** Rgba - ColorChooserRequestRgbaPropertyInfo , - colorChooserRequestRgba , - constructColorChooserRequestRgba , - getColorChooserRequestRgba , - setColorChooserRequestRgba , - - - - - -- * Signals --- ** Finished - ColorChooserRequestFinishedCallback , - ColorChooserRequestFinishedCallbackC , - ColorChooserRequestFinishedSignalInfo , - afterColorChooserRequestFinished , - colorChooserRequestFinishedCallbackWrapper, - colorChooserRequestFinishedClosure , - mkColorChooserRequestFinishedCallback , - noColorChooserRequestFinishedCallback , - onColorChooserRequestFinished , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype ColorChooserRequest = ColorChooserRequest (ForeignPtr ColorChooserRequest) -foreign import ccall "webkit_color_chooser_request_get_type" - c_webkit_color_chooser_request_get_type :: IO GType - -type instance ParentTypes ColorChooserRequest = ColorChooserRequestParentTypes -type ColorChooserRequestParentTypes = '[GObject.Object] - -instance GObject ColorChooserRequest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_color_chooser_request_get_type - - -class GObject o => ColorChooserRequestK o -instance (GObject o, IsDescendantOf ColorChooserRequest o) => ColorChooserRequestK o - -toColorChooserRequest :: ColorChooserRequestK o => o -> IO ColorChooserRequest -toColorChooserRequest = unsafeCastTo ColorChooserRequest - -noColorChooserRequest :: Maybe ColorChooserRequest -noColorChooserRequest = Nothing - -type family ResolveColorChooserRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveColorChooserRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveColorChooserRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveColorChooserRequestMethod "cancel" o = ColorChooserRequestCancelMethodInfo - ResolveColorChooserRequestMethod "finish" o = ColorChooserRequestFinishMethodInfo - ResolveColorChooserRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveColorChooserRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveColorChooserRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveColorChooserRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveColorChooserRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveColorChooserRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveColorChooserRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveColorChooserRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveColorChooserRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveColorChooserRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveColorChooserRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveColorChooserRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveColorChooserRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveColorChooserRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveColorChooserRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveColorChooserRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveColorChooserRequestMethod "getElementRectangle" o = ColorChooserRequestGetElementRectangleMethodInfo - ResolveColorChooserRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveColorChooserRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveColorChooserRequestMethod "getRgba" o = ColorChooserRequestGetRgbaMethodInfo - ResolveColorChooserRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveColorChooserRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveColorChooserRequestMethod "setRgba" o = ColorChooserRequestSetRgbaMethodInfo - ResolveColorChooserRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveColorChooserRequestMethod t ColorChooserRequest, MethodInfo info ColorChooserRequest p) => IsLabelProxy t (ColorChooserRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveColorChooserRequestMethod t ColorChooserRequest, MethodInfo info ColorChooserRequest p) => IsLabel t (ColorChooserRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ColorChooserRequest::finished -type ColorChooserRequestFinishedCallback = - IO () - -noColorChooserRequestFinishedCallback :: Maybe ColorChooserRequestFinishedCallback -noColorChooserRequestFinishedCallback = Nothing - -type ColorChooserRequestFinishedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkColorChooserRequestFinishedCallback :: ColorChooserRequestFinishedCallbackC -> IO (FunPtr ColorChooserRequestFinishedCallbackC) - -colorChooserRequestFinishedClosure :: ColorChooserRequestFinishedCallback -> IO Closure -colorChooserRequestFinishedClosure cb = newCClosure =<< mkColorChooserRequestFinishedCallback wrapped - where wrapped = colorChooserRequestFinishedCallbackWrapper cb - -colorChooserRequestFinishedCallbackWrapper :: - ColorChooserRequestFinishedCallback -> - Ptr () -> - Ptr () -> - IO () -colorChooserRequestFinishedCallbackWrapper _cb _ _ = do - _cb - -onColorChooserRequestFinished :: (GObject a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId -onColorChooserRequestFinished obj cb = liftIO $ connectColorChooserRequestFinished obj cb SignalConnectBefore -afterColorChooserRequestFinished :: (GObject a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId -afterColorChooserRequestFinished obj cb = connectColorChooserRequestFinished obj cb SignalConnectAfter - -connectColorChooserRequestFinished :: (GObject a, MonadIO m) => - a -> ColorChooserRequestFinishedCallback -> SignalConnectMode -> m SignalHandlerId -connectColorChooserRequestFinished obj cb after = liftIO $ do - cb' <- mkColorChooserRequestFinishedCallback (colorChooserRequestFinishedCallbackWrapper cb) - connectSignalFunPtr obj "finished" cb' after - --- VVV Prop "rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Just False) - -getColorChooserRequestRgba :: (MonadIO m, ColorChooserRequestK o) => o -> m (Maybe 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" (Just val) - -constructColorChooserRequestRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructColorChooserRequestRgba val = constructObjectPropertyBoxed "rgba" (Just 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 = (Maybe Gdk.RGBA) - type AttrLabel ColorChooserRequestRgbaPropertyInfo = "rgba" - attrGet _ = getColorChooserRequestRgba - attrSet _ = setColorChooserRequestRgba - attrConstruct _ = constructColorChooserRequestRgba - attrClear _ = undefined - -type instance AttributeList ColorChooserRequest = ColorChooserRequestAttributeList -type ColorChooserRequestAttributeList = ('[ '("rgba", ColorChooserRequestRgbaPropertyInfo)] :: [(Symbol, *)]) - -colorChooserRequestRgba :: AttrLabelProxy "rgba" -colorChooserRequestRgba = AttrLabelProxy - -data ColorChooserRequestFinishedSignalInfo -instance SignalInfo ColorChooserRequestFinishedSignalInfo where - type HaskellCallbackType ColorChooserRequestFinishedSignalInfo = ColorChooserRequestFinishedCallback - connectSignal _ = connectColorChooserRequestFinished - -type instance SignalList ColorChooserRequest = ColorChooserRequestSignalList -type ColorChooserRequestSignalList = ('[ '("finished", ColorChooserRequestFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ColorChooserRequest::cancel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_color_chooser_request_cancel" webkit_color_chooser_request_cancel :: - Ptr ColorChooserRequest -> -- _obj : TInterface "WebKit2" "ColorChooserRequest" - IO () - - -colorChooserRequestCancel :: - (MonadIO m, ColorChooserRequestK a) => - a -- _obj - -> m () -- result -colorChooserRequestCancel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_color_chooser_request_cancel _obj' - touchManagedPtr _obj - return () - -data ColorChooserRequestCancelMethodInfo -instance (signature ~ (m ()), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestCancelMethodInfo a signature where - overloadedMethod _ = colorChooserRequestCancel - --- method ColorChooserRequest::finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_color_chooser_request_finish" webkit_color_chooser_request_finish :: - Ptr ColorChooserRequest -> -- _obj : TInterface "WebKit2" "ColorChooserRequest" - IO () - - -colorChooserRequestFinish :: - (MonadIO m, ColorChooserRequestK a) => - a -- _obj - -> m () -- result -colorChooserRequestFinish _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_color_chooser_request_finish _obj' - touchManagedPtr _obj - return () - -data ColorChooserRequestFinishMethodInfo -instance (signature ~ (m ()), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestFinishMethodInfo a signature where - overloadedMethod _ = colorChooserRequestFinish - --- method ColorChooserRequest::get_element_rectangle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_color_chooser_request_get_element_rectangle" webkit_color_chooser_request_get_element_rectangle :: - Ptr ColorChooserRequest -> -- _obj : TInterface "WebKit2" "ColorChooserRequest" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO () - - -colorChooserRequestGetElementRectangle :: - (MonadIO m, ColorChooserRequestK a) => - a -- _obj - -> m (Gdk.Rectangle) -- result -colorChooserRequestGetElementRectangle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - webkit_color_chooser_request_get_element_rectangle _obj' rect - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - return rect' - -data ColorChooserRequestGetElementRectangleMethodInfo -instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestGetElementRectangleMethodInfo a signature where - overloadedMethod _ = colorChooserRequestGetElementRectangle - --- method ColorChooserRequest::get_rgba --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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) -- result -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' - -data ColorChooserRequestGetRgbaMethodInfo -instance (signature ~ (m (Gdk.RGBA)), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestGetRgbaMethodInfo a signature where - overloadedMethod _ = colorChooserRequestGetRgba - --- method ColorChooserRequest::set_rgba --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data ColorChooserRequestSetRgbaMethodInfo -instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestSetRgbaMethodInfo a signature where - overloadedMethod _ = colorChooserRequestSetRgba - - diff --git a/GI/WebKit2/Objects/ColorChooserRequest.hs-boot b/GI/WebKit2/Objects/ColorChooserRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/ColorChooserRequest.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.WebKit2.Objects.ColorChooserRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ColorChooserRequest = ColorChooserRequest (ForeignPtr ColorChooserRequest) -instance GObject ColorChooserRequest where -class GObject o => ColorChooserRequestK o -instance (GObject o, IsDescendantOf ColorChooserRequest o) => ColorChooserRequestK o -data ColorChooserRequestRgbaPropertyInfo -data ColorChooserRequestFinishedSignalInfo -data ColorChooserRequestCancelMethodInfo -data ColorChooserRequestFinishMethodInfo -data ColorChooserRequestGetElementRectangleMethodInfo -data ColorChooserRequestGetRgbaMethodInfo -data ColorChooserRequestSetRgbaMethodInfo diff --git a/GI/WebKit2/Objects/ContextMenu.hs b/GI/WebKit2/Objects/ContextMenu.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/ContextMenu.hs +++ /dev/null @@ -1,619 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.ContextMenu - ( - --- * Exported types - ContextMenu(..) , - ContextMenuK , - toContextMenu , - noContextMenu , - - - -- * Methods --- ** contextMenuAppend - ContextMenuAppendMethodInfo , - contextMenuAppend , - - --- ** contextMenuFirst - ContextMenuFirstMethodInfo , - contextMenuFirst , - - --- ** contextMenuGetItemAtPosition - ContextMenuGetItemAtPositionMethodInfo , - contextMenuGetItemAtPosition , - - --- ** contextMenuGetItems - ContextMenuGetItemsMethodInfo , - contextMenuGetItems , - - --- ** contextMenuGetNItems - ContextMenuGetNItemsMethodInfo , - contextMenuGetNItems , - - --- ** contextMenuGetUserData - ContextMenuGetUserDataMethodInfo , - contextMenuGetUserData , - - --- ** contextMenuInsert - ContextMenuInsertMethodInfo , - contextMenuInsert , - - --- ** contextMenuLast - ContextMenuLastMethodInfo , - contextMenuLast , - - --- ** contextMenuMoveItem - ContextMenuMoveItemMethodInfo , - contextMenuMoveItem , - - --- ** contextMenuNew - contextMenuNew , - - --- ** contextMenuNewWithItems - contextMenuNewWithItems , - - --- ** contextMenuPrepend - ContextMenuPrependMethodInfo , - contextMenuPrepend , - - --- ** contextMenuRemove - ContextMenuRemoveMethodInfo , - contextMenuRemove , - - --- ** contextMenuRemoveAll - ContextMenuRemoveAllMethodInfo , - contextMenuRemoveAll , - - --- ** contextMenuSetUserData - ContextMenuSetUserDataMethodInfo , - contextMenuSetUserData , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype ContextMenu = ContextMenu (ForeignPtr ContextMenu) -foreign import ccall "webkit_context_menu_get_type" - c_webkit_context_menu_get_type :: IO GType - -type instance ParentTypes ContextMenu = ContextMenuParentTypes -type ContextMenuParentTypes = '[GObject.Object] - -instance GObject ContextMenu where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_context_menu_get_type - - -class GObject o => ContextMenuK o -instance (GObject o, IsDescendantOf ContextMenu o) => ContextMenuK o - -toContextMenu :: ContextMenuK o => o -> IO ContextMenu -toContextMenu = unsafeCastTo ContextMenu - -noContextMenu :: Maybe ContextMenu -noContextMenu = Nothing - -type family ResolveContextMenuMethod (t :: Symbol) (o :: *) :: * where - ResolveContextMenuMethod "append" o = ContextMenuAppendMethodInfo - ResolveContextMenuMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveContextMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveContextMenuMethod "first" o = ContextMenuFirstMethodInfo - ResolveContextMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveContextMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveContextMenuMethod "insert" o = ContextMenuInsertMethodInfo - ResolveContextMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveContextMenuMethod "last" o = ContextMenuLastMethodInfo - ResolveContextMenuMethod "moveItem" o = ContextMenuMoveItemMethodInfo - ResolveContextMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveContextMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveContextMenuMethod "prepend" o = ContextMenuPrependMethodInfo - ResolveContextMenuMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveContextMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveContextMenuMethod "remove" o = ContextMenuRemoveMethodInfo - ResolveContextMenuMethod "removeAll" o = ContextMenuRemoveAllMethodInfo - ResolveContextMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveContextMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveContextMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveContextMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveContextMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveContextMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveContextMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveContextMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveContextMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveContextMenuMethod "getItemAtPosition" o = ContextMenuGetItemAtPositionMethodInfo - ResolveContextMenuMethod "getItems" o = ContextMenuGetItemsMethodInfo - ResolveContextMenuMethod "getNItems" o = ContextMenuGetNItemsMethodInfo - ResolveContextMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveContextMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveContextMenuMethod "getUserData" o = ContextMenuGetUserDataMethodInfo - ResolveContextMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveContextMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveContextMenuMethod "setUserData" o = ContextMenuSetUserDataMethodInfo - ResolveContextMenuMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveContextMenuMethod t ContextMenu, MethodInfo info ContextMenu p) => IsLabelProxy t (ContextMenu -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveContextMenuMethod t ContextMenu, MethodInfo info ContextMenu p) => IsLabel t (ContextMenu -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ContextMenu = ContextMenuAttributeList -type ContextMenuAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ContextMenu = ContextMenuSignalList -type ContextMenuSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ContextMenu::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "items", argType = TGList (TInterface "WebKit2" "ContextMenuItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -contextMenuAppend _obj item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - webkit_context_menu_append _obj' item' - touchManagedPtr _obj - touchManagedPtr item - return () - -data ContextMenuAppendMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuAppendMethodInfo a signature where - overloadedMethod _ = contextMenuAppend - --- method ContextMenu::first --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ContextMenuFirstMethodInfo -instance (signature ~ (m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuFirstMethodInfo a signature where - overloadedMethod _ = contextMenuFirst - --- method ContextMenu::get_item_at_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TUInt - IO (Ptr ContextMenuItem) - - -contextMenuGetItemAtPosition :: - (MonadIO m, ContextMenuK a) => - a -- _obj - -> Word32 -- position - -> m ContextMenuItem -- result -contextMenuGetItemAtPosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_get_item_at_position _obj' position - checkUnexpectedReturnNULL "webkit_context_menu_get_item_at_position" result - result' <- (newObject ContextMenuItem) result - touchManagedPtr _obj - return result' - -data ContextMenuGetItemAtPositionMethodInfo -instance (signature ~ (Word32 -> m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetItemAtPositionMethodInfo a signature where - overloadedMethod _ = contextMenuGetItemAtPosition - --- method ContextMenu::get_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -contextMenuGetItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_get_items _obj' - result' <- unpackGList result - result'' <- mapM (newObject ContextMenuItem) result' - touchManagedPtr _obj - return result'' - -data ContextMenuGetItemsMethodInfo -instance (signature ~ (m [ContextMenuItem]), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetItemsMethodInfo a signature where - overloadedMethod _ = contextMenuGetItems - --- method ContextMenu::get_n_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_get_n_items" webkit_context_menu_get_n_items :: - Ptr ContextMenu -> -- _obj : TInterface "WebKit2" "ContextMenu" - IO Word32 - - -contextMenuGetNItems :: - (MonadIO m, ContextMenuK a) => - a -- _obj - -> m Word32 -- result -contextMenuGetNItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_get_n_items _obj' - touchManagedPtr _obj - return result - -data ContextMenuGetNItemsMethodInfo -instance (signature ~ (m Word32), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetNItemsMethodInfo a signature where - overloadedMethod _ = contextMenuGetNItems - --- method ContextMenu::get_user_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_get_user_data" webkit_context_menu_get_user_data :: - Ptr ContextMenu -> -- _obj : TInterface "WebKit2" "ContextMenu" - IO (Ptr GVariant) - - -contextMenuGetUserData :: - (MonadIO m, ContextMenuK a) => - a -- _obj - -> m GVariant -- result -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' - -data ContextMenuGetUserDataMethodInfo -instance (signature ~ (m GVariant), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetUserDataMethodInfo a signature where - overloadedMethod _ = contextMenuGetUserData - --- method ContextMenu::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_insert" webkit_context_menu_insert :: - Ptr ContextMenu -> -- _obj : TInterface "WebKit2" "ContextMenu" - Ptr ContextMenuItem -> -- item : TInterface "WebKit2" "ContextMenuItem" - Int32 -> -- position : TBasicType TInt - IO () - - -contextMenuInsert :: - (MonadIO m, ContextMenuK a, ContextMenuItemK b) => - a -- _obj - -> b -- item - -> Int32 -- position - -> m () -- result -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 () - -data ContextMenuInsertMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuInsertMethodInfo a signature where - overloadedMethod _ = contextMenuInsert - --- method ContextMenu::last --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ContextMenuLastMethodInfo -instance (signature ~ (m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuLastMethodInfo a signature where - overloadedMethod _ = contextMenuLast - --- method ContextMenu::move_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_move_item" webkit_context_menu_move_item :: - Ptr ContextMenu -> -- _obj : TInterface "WebKit2" "ContextMenu" - Ptr ContextMenuItem -> -- item : TInterface "WebKit2" "ContextMenuItem" - Int32 -> -- position : TBasicType TInt - IO () - - -contextMenuMoveItem :: - (MonadIO m, ContextMenuK a, ContextMenuItemK b) => - a -- _obj - -> b -- item - -> Int32 -- position - -> m () -- result -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 () - -data ContextMenuMoveItemMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuMoveItemMethodInfo a signature where - overloadedMethod _ = contextMenuMoveItem - --- method ContextMenu::prepend --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -contextMenuPrepend _obj item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - webkit_context_menu_prepend _obj' item' - touchManagedPtr _obj - touchManagedPtr item - return () - -data ContextMenuPrependMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuPrependMethodInfo a signature where - overloadedMethod _ = contextMenuPrepend - --- method ContextMenu::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -contextMenuRemove _obj item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - webkit_context_menu_remove _obj' item' - touchManagedPtr _obj - touchManagedPtr item - return () - -data ContextMenuRemoveMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuRemoveMethodInfo a signature where - overloadedMethod _ = contextMenuRemove - --- method ContextMenu::remove_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_remove_all" webkit_context_menu_remove_all :: - Ptr ContextMenu -> -- _obj : TInterface "WebKit2" "ContextMenu" - IO () - - -contextMenuRemoveAll :: - (MonadIO m, ContextMenuK a) => - a -- _obj - -> m () -- result -contextMenuRemoveAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_context_menu_remove_all _obj' - touchManagedPtr _obj - return () - -data ContextMenuRemoveAllMethodInfo -instance (signature ~ (m ()), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuRemoveAllMethodInfo a signature where - overloadedMethod _ = contextMenuRemoveAll - --- method ContextMenu::set_user_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- userData - -> m () -- result -contextMenuSetUserData _obj userData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let userData' = unsafeManagedPtrGetPtr userData - webkit_context_menu_set_user_data _obj' userData' - touchManagedPtr _obj - return () - -data ContextMenuSetUserDataMethodInfo -instance (signature ~ (GVariant -> m ()), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuSetUserDataMethodInfo a signature where - overloadedMethod _ = contextMenuSetUserData - - diff --git a/GI/WebKit2/Objects/ContextMenu.hs-boot b/GI/WebKit2/Objects/ContextMenu.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/ContextMenu.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.WebKit2.Objects.ContextMenu where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ContextMenu = ContextMenu (ForeignPtr ContextMenu) -instance GObject ContextMenu where -class GObject o => ContextMenuK o -instance (GObject o, IsDescendantOf ContextMenu o) => ContextMenuK o -data ContextMenuAppendMethodInfo -data ContextMenuFirstMethodInfo -data ContextMenuGetItemAtPositionMethodInfo -data ContextMenuGetItemsMethodInfo -data ContextMenuGetNItemsMethodInfo -data ContextMenuGetUserDataMethodInfo -data ContextMenuInsertMethodInfo -data ContextMenuLastMethodInfo -data ContextMenuMoveItemMethodInfo -data ContextMenuPrependMethodInfo -data ContextMenuRemoveMethodInfo -data ContextMenuRemoveAllMethodInfo -data ContextMenuSetUserDataMethodInfo diff --git a/GI/WebKit2/Objects/ContextMenuItem.hs b/GI/WebKit2/Objects/ContextMenuItem.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/ContextMenuItem.hs +++ /dev/null @@ -1,422 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.ContextMenuItem - ( - --- * Exported types - ContextMenuItem(..) , - ContextMenuItemK , - toContextMenuItem , - noContextMenuItem , - - - -- * Methods --- ** contextMenuItemGetAction - ContextMenuItemGetActionMethodInfo , - contextMenuItemGetAction , - - --- ** contextMenuItemGetStockAction - ContextMenuItemGetStockActionMethodInfo , - contextMenuItemGetStockAction , - - --- ** contextMenuItemGetSubmenu - ContextMenuItemGetSubmenuMethodInfo , - contextMenuItemGetSubmenu , - - --- ** contextMenuItemIsSeparator - ContextMenuItemIsSeparatorMethodInfo , - contextMenuItemIsSeparator , - - --- ** contextMenuItemNew - contextMenuItemNew , - - --- ** contextMenuItemNewFromStockAction - contextMenuItemNewFromStockAction , - - --- ** contextMenuItemNewFromStockActionWithLabel - contextMenuItemNewFromStockActionWithLabel, - - --- ** contextMenuItemNewSeparator - contextMenuItemNewSeparator , - - --- ** contextMenuItemNewWithSubmenu - contextMenuItemNewWithSubmenu , - - --- ** contextMenuItemSetSubmenu - ContextMenuItemSetSubmenuMethodInfo , - contextMenuItemSetSubmenu , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gtk as Gtk - -newtype ContextMenuItem = ContextMenuItem (ForeignPtr ContextMenuItem) -foreign import ccall "webkit_context_menu_item_get_type" - c_webkit_context_menu_item_get_type :: IO GType - -type instance ParentTypes ContextMenuItem = ContextMenuItemParentTypes -type ContextMenuItemParentTypes = '[GObject.Object] - -instance GObject ContextMenuItem where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_webkit_context_menu_item_get_type - - -class GObject o => ContextMenuItemK o -instance (GObject o, IsDescendantOf ContextMenuItem o) => ContextMenuItemK o - -toContextMenuItem :: ContextMenuItemK o => o -> IO ContextMenuItem -toContextMenuItem = unsafeCastTo ContextMenuItem - -noContextMenuItem :: Maybe ContextMenuItem -noContextMenuItem = Nothing - -type family ResolveContextMenuItemMethod (t :: Symbol) (o :: *) :: * where - ResolveContextMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveContextMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveContextMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveContextMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveContextMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveContextMenuItemMethod "isSeparator" o = ContextMenuItemIsSeparatorMethodInfo - ResolveContextMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveContextMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveContextMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveContextMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveContextMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveContextMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveContextMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveContextMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveContextMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveContextMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveContextMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveContextMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveContextMenuItemMethod "getAction" o = ContextMenuItemGetActionMethodInfo - ResolveContextMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveContextMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveContextMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveContextMenuItemMethod "getStockAction" o = ContextMenuItemGetStockActionMethodInfo - ResolveContextMenuItemMethod "getSubmenu" o = ContextMenuItemGetSubmenuMethodInfo - ResolveContextMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveContextMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveContextMenuItemMethod "setSubmenu" o = ContextMenuItemSetSubmenuMethodInfo - ResolveContextMenuItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveContextMenuItemMethod t ContextMenuItem, MethodInfo info ContextMenuItem p) => IsLabelProxy t (ContextMenuItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveContextMenuItemMethod t ContextMenuItem, MethodInfo info ContextMenuItem p) => IsLabel t (ContextMenuItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ContextMenuItem = ContextMenuItemAttributeList -type ContextMenuItemAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ContextMenuItem = ContextMenuItemSignalList -type ContextMenuItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ContextMenuItem::new --- method type : Constructor --- Args : [Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "action", argType = TInterface "WebKit2" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "action", argType = TInterface "WebKit2" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -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 {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ContextMenuItemGetActionMethodInfo -instance (signature ~ (m Gtk.Action), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetActionMethodInfo a signature where - overloadedMethod _ = contextMenuItemGetAction - --- method ContextMenuItem::get_stock_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ContextMenuItemGetStockActionMethodInfo -instance (signature ~ (m ContextMenuAction), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetStockActionMethodInfo a signature where - overloadedMethod _ = contextMenuItemGetStockAction - --- method ContextMenuItem::get_submenu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ContextMenuItemGetSubmenuMethodInfo -instance (signature ~ (m ContextMenu), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetSubmenuMethodInfo a signature where - overloadedMethod _ = contextMenuItemGetSubmenu - --- method ContextMenuItem::is_separator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_item_is_separator" webkit_context_menu_item_is_separator :: - Ptr ContextMenuItem -> -- _obj : TInterface "WebKit2" "ContextMenuItem" - IO CInt - - -contextMenuItemIsSeparator :: - (MonadIO m, ContextMenuItemK a) => - a -- _obj - -> m Bool -- result -contextMenuItemIsSeparator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_item_is_separator _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ContextMenuItemIsSeparatorMethodInfo -instance (signature ~ (m Bool), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemIsSeparatorMethodInfo a signature where - overloadedMethod _ = contextMenuItemIsSeparator - --- method ContextMenuItem::set_submenu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data ContextMenuItemSetSubmenuMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ContextMenuItemK a, ContextMenuK b) => MethodInfo ContextMenuItemSetSubmenuMethodInfo a signature where - overloadedMethod _ = contextMenuItemSetSubmenu - - diff --git a/GI/WebKit2/Objects/ContextMenuItem.hs-boot b/GI/WebKit2/Objects/ContextMenuItem.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/ContextMenuItem.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2.Objects.ContextMenuItem where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ContextMenuItem = ContextMenuItem (ForeignPtr ContextMenuItem) -instance GObject ContextMenuItem where -class GObject o => ContextMenuItemK o -instance (GObject o, IsDescendantOf ContextMenuItem o) => ContextMenuItemK o -data ContextMenuItemGetActionMethodInfo -data ContextMenuItemGetStockActionMethodInfo -data ContextMenuItemGetSubmenuMethodInfo -data ContextMenuItemIsSeparatorMethodInfo -data ContextMenuItemSetSubmenuMethodInfo diff --git a/GI/WebKit2/Objects/CookieManager.hs b/GI/WebKit2/Objects/CookieManager.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/CookieManager.hs +++ /dev/null @@ -1,493 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.CookieManager - ( - --- * Exported types - CookieManager(..) , - CookieManagerK , - toCookieManager , - noCookieManager , - - - -- * Methods --- ** cookieManagerDeleteAllCookies - CookieManagerDeleteAllCookiesMethodInfo , - cookieManagerDeleteAllCookies , - - --- ** cookieManagerDeleteCookiesForDomain - CookieManagerDeleteCookiesForDomainMethodInfo, - cookieManagerDeleteCookiesForDomain , - - --- ** cookieManagerGetAcceptPolicy - CookieManagerGetAcceptPolicyMethodInfo , - cookieManagerGetAcceptPolicy , - - --- ** cookieManagerGetAcceptPolicyFinish - CookieManagerGetAcceptPolicyFinishMethodInfo, - cookieManagerGetAcceptPolicyFinish , - - --- ** cookieManagerGetDomainsWithCookies - CookieManagerGetDomainsWithCookiesMethodInfo, - cookieManagerGetDomainsWithCookies , - - --- ** cookieManagerGetDomainsWithCookiesFinish - CookieManagerGetDomainsWithCookiesFinishMethodInfo, - cookieManagerGetDomainsWithCookiesFinish, - - --- ** cookieManagerSetAcceptPolicy - CookieManagerSetAcceptPolicyMethodInfo , - cookieManagerSetAcceptPolicy , - - --- ** cookieManagerSetPersistentStorage - CookieManagerSetPersistentStorageMethodInfo, - cookieManagerSetPersistentStorage , - - - - - -- * Signals --- ** Changed - CookieManagerChangedCallback , - CookieManagerChangedCallbackC , - CookieManagerChangedSignalInfo , - afterCookieManagerChanged , - cookieManagerChangedCallbackWrapper , - cookieManagerChangedClosure , - mkCookieManagerChangedCallback , - noCookieManagerChangedCallback , - onCookieManagerChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype CookieManager = CookieManager (ForeignPtr CookieManager) -foreign import ccall "webkit_cookie_manager_get_type" - c_webkit_cookie_manager_get_type :: IO GType - -type instance ParentTypes CookieManager = CookieManagerParentTypes -type CookieManagerParentTypes = '[GObject.Object] - -instance GObject CookieManager where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_cookie_manager_get_type - - -class GObject o => CookieManagerK o -instance (GObject o, IsDescendantOf CookieManager o) => CookieManagerK o - -toCookieManager :: CookieManagerK o => o -> IO CookieManager -toCookieManager = unsafeCastTo CookieManager - -noCookieManager :: Maybe CookieManager -noCookieManager = Nothing - -type family ResolveCookieManagerMethod (t :: Symbol) (o :: *) :: * where - ResolveCookieManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCookieManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCookieManagerMethod "deleteAllCookies" o = CookieManagerDeleteAllCookiesMethodInfo - ResolveCookieManagerMethod "deleteCookiesForDomain" o = CookieManagerDeleteCookiesForDomainMethodInfo - ResolveCookieManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCookieManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCookieManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCookieManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCookieManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCookieManagerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCookieManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCookieManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCookieManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCookieManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCookieManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCookieManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCookieManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCookieManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCookieManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCookieManagerMethod "getAcceptPolicy" o = CookieManagerGetAcceptPolicyMethodInfo - ResolveCookieManagerMethod "getAcceptPolicyFinish" o = CookieManagerGetAcceptPolicyFinishMethodInfo - ResolveCookieManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCookieManagerMethod "getDomainsWithCookies" o = CookieManagerGetDomainsWithCookiesMethodInfo - ResolveCookieManagerMethod "getDomainsWithCookiesFinish" o = CookieManagerGetDomainsWithCookiesFinishMethodInfo - ResolveCookieManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCookieManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCookieManagerMethod "setAcceptPolicy" o = CookieManagerSetAcceptPolicyMethodInfo - ResolveCookieManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCookieManagerMethod "setPersistentStorage" o = CookieManagerSetPersistentStorageMethodInfo - ResolveCookieManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCookieManagerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCookieManagerMethod t CookieManager, MethodInfo info CookieManager p) => IsLabelProxy t (CookieManager -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCookieManagerMethod t CookieManager, MethodInfo info CookieManager p) => IsLabel t (CookieManager -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal CookieManager::changed -type CookieManagerChangedCallback = - IO () - -noCookieManagerChangedCallback :: Maybe CookieManagerChangedCallback -noCookieManagerChangedCallback = Nothing - -type CookieManagerChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCookieManagerChangedCallback :: CookieManagerChangedCallbackC -> IO (FunPtr CookieManagerChangedCallbackC) - -cookieManagerChangedClosure :: CookieManagerChangedCallback -> IO Closure -cookieManagerChangedClosure cb = newCClosure =<< mkCookieManagerChangedCallback wrapped - where wrapped = cookieManagerChangedCallbackWrapper cb - -cookieManagerChangedCallbackWrapper :: - CookieManagerChangedCallback -> - Ptr () -> - Ptr () -> - IO () -cookieManagerChangedCallbackWrapper _cb _ _ = do - _cb - -onCookieManagerChanged :: (GObject a, MonadIO m) => a -> CookieManagerChangedCallback -> m SignalHandlerId -onCookieManagerChanged obj cb = liftIO $ connectCookieManagerChanged obj cb SignalConnectBefore -afterCookieManagerChanged :: (GObject a, MonadIO m) => a -> CookieManagerChangedCallback -> m SignalHandlerId -afterCookieManagerChanged obj cb = connectCookieManagerChanged obj cb SignalConnectAfter - -connectCookieManagerChanged :: (GObject a, MonadIO m) => - a -> CookieManagerChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectCookieManagerChanged obj cb after = liftIO $ do - cb' <- mkCookieManagerChangedCallback (cookieManagerChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - -type instance AttributeList CookieManager = CookieManagerAttributeList -type CookieManagerAttributeList = ('[ ] :: [(Symbol, *)]) - -data CookieManagerChangedSignalInfo -instance SignalInfo CookieManagerChangedSignalInfo where - type HaskellCallbackType CookieManagerChangedSignalInfo = CookieManagerChangedCallback - connectSignal _ = connectCookieManagerChanged - -type instance SignalList CookieManager = CookieManagerSignalList -type CookieManagerSignalList = ('[ '("changed", CookieManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CookieManager::delete_all_cookies --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_cookie_manager_delete_all_cookies" webkit_cookie_manager_delete_all_cookies :: - Ptr CookieManager -> -- _obj : TInterface "WebKit2" "CookieManager" - IO () - - -cookieManagerDeleteAllCookies :: - (MonadIO m, CookieManagerK a) => - a -- _obj - -> m () -- result -cookieManagerDeleteAllCookies _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_cookie_manager_delete_all_cookies _obj' - touchManagedPtr _obj - return () - -data CookieManagerDeleteAllCookiesMethodInfo -instance (signature ~ (m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerDeleteAllCookiesMethodInfo a signature where - overloadedMethod _ = cookieManagerDeleteAllCookies - --- method CookieManager::delete_cookies_for_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_cookie_manager_delete_cookies_for_domain" webkit_cookie_manager_delete_cookies_for_domain :: - Ptr CookieManager -> -- _obj : TInterface "WebKit2" "CookieManager" - CString -> -- domain : TBasicType TUTF8 - IO () - - -cookieManagerDeleteCookiesForDomain :: - (MonadIO m, CookieManagerK a) => - a -- _obj - -> T.Text -- domain - -> m () -- result -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 () - -data CookieManagerDeleteCookiesForDomainMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerDeleteCookiesForDomainMethodInfo a signature where - overloadedMethod _ = cookieManagerDeleteCookiesForDomain - --- method CookieManager::get_accept_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_cookie_manager_get_accept_policy" webkit_cookie_manager_get_accept_policy :: - Ptr CookieManager -> -- _obj : TInterface "WebKit2" "CookieManager" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -cookieManagerGetAcceptPolicy :: - (MonadIO m, CookieManagerK a, Gio.CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -cookieManagerGetAcceptPolicy _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - webkit_cookie_manager_get_accept_policy _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data CookieManagerGetAcceptPolicyMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, CookieManagerK a, Gio.CancellableK b) => MethodInfo CookieManagerGetAcceptPolicyMethodInfo a signature where - overloadedMethod _ = cookieManagerGetAcceptPolicy - --- method CookieManager::get_accept_policy_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data CookieManagerGetAcceptPolicyFinishMethodInfo -instance (signature ~ (b -> m CookieAcceptPolicy), MonadIO m, CookieManagerK a, Gio.AsyncResultK b) => MethodInfo CookieManagerGetAcceptPolicyFinishMethodInfo a signature where - overloadedMethod _ = cookieManagerGetAcceptPolicyFinish - --- method CookieManager::get_domains_with_cookies --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_cookie_manager_get_domains_with_cookies" webkit_cookie_manager_get_domains_with_cookies :: - Ptr CookieManager -> -- _obj : TInterface "WebKit2" "CookieManager" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -cookieManagerGetDomainsWithCookies :: - (MonadIO m, CookieManagerK a, Gio.CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -cookieManagerGetDomainsWithCookies _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - webkit_cookie_manager_get_domains_with_cookies _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data CookieManagerGetDomainsWithCookiesMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, CookieManagerK a, Gio.CancellableK b) => MethodInfo CookieManagerGetDomainsWithCookiesMethodInfo a signature where - overloadedMethod _ = cookieManagerGetDomainsWithCookies - --- method CookieManager::get_domains_with_cookies_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : True --- Skip return : False - -foreign import ccall "webkit_cookie_manager_get_domains_with_cookies_finish" webkit_cookie_manager_get_domains_with_cookies_finish :: - Ptr CookieManager -> -- _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] -- result -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 () - ) - -data CookieManagerGetDomainsWithCookiesFinishMethodInfo -instance (signature ~ (b -> m [T.Text]), MonadIO m, CookieManagerK a, Gio.AsyncResultK b) => MethodInfo CookieManagerGetDomainsWithCookiesFinishMethodInfo a signature where - overloadedMethod _ = cookieManagerGetDomainsWithCookiesFinish - --- method CookieManager::set_accept_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "WebKit2" "CookieAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data CookieManagerSetAcceptPolicyMethodInfo -instance (signature ~ (CookieAcceptPolicy -> m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerSetAcceptPolicyMethodInfo a signature where - overloadedMethod _ = cookieManagerSetAcceptPolicy - --- method CookieManager::set_persistent_storage --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "storage", argType = TInterface "WebKit2" "CookiePersistentStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data CookieManagerSetPersistentStorageMethodInfo -instance (signature ~ (T.Text -> CookiePersistentStorage -> m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerSetPersistentStorageMethodInfo a signature where - overloadedMethod _ = cookieManagerSetPersistentStorage - - diff --git a/GI/WebKit2/Objects/CookieManager.hs-boot b/GI/WebKit2/Objects/CookieManager.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/CookieManager.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.WebKit2.Objects.CookieManager where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype CookieManager = CookieManager (ForeignPtr CookieManager) -instance GObject CookieManager where -class GObject o => CookieManagerK o -instance (GObject o, IsDescendantOf CookieManager o) => CookieManagerK o -data CookieManagerChangedSignalInfo -data CookieManagerDeleteAllCookiesMethodInfo -data CookieManagerDeleteCookiesForDomainMethodInfo -data CookieManagerGetAcceptPolicyMethodInfo -data CookieManagerGetAcceptPolicyFinishMethodInfo -data CookieManagerGetDomainsWithCookiesMethodInfo -data CookieManagerGetDomainsWithCookiesFinishMethodInfo -data CookieManagerSetAcceptPolicyMethodInfo -data CookieManagerSetPersistentStorageMethodInfo diff --git a/GI/WebKit2/Objects/Download.hs b/GI/WebKit2/Objects/Download.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/Download.hs +++ /dev/null @@ -1,898 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.Download - ( - --- * Exported types - Download(..) , - DownloadK , - toDownload , - noDownload , - - - -- * Methods --- ** downloadCancel - DownloadCancelMethodInfo , - downloadCancel , - - --- ** downloadGetAllowOverwrite - DownloadGetAllowOverwriteMethodInfo , - downloadGetAllowOverwrite , - - --- ** downloadGetDestination - DownloadGetDestinationMethodInfo , - downloadGetDestination , - - --- ** downloadGetElapsedTime - DownloadGetElapsedTimeMethodInfo , - downloadGetElapsedTime , - - --- ** downloadGetEstimatedProgress - DownloadGetEstimatedProgressMethodInfo , - downloadGetEstimatedProgress , - - --- ** downloadGetReceivedDataLength - DownloadGetReceivedDataLengthMethodInfo , - downloadGetReceivedDataLength , - - --- ** downloadGetRequest - DownloadGetRequestMethodInfo , - downloadGetRequest , - - --- ** downloadGetResponse - DownloadGetResponseMethodInfo , - downloadGetResponse , - - --- ** downloadGetWebView - DownloadGetWebViewMethodInfo , - downloadGetWebView , - - --- ** downloadSetAllowOverwrite - DownloadSetAllowOverwriteMethodInfo , - downloadSetAllowOverwrite , - - --- ** downloadSetDestination - DownloadSetDestinationMethodInfo , - downloadSetDestination , - - - - - -- * Properties --- ** AllowOverwrite - DownloadAllowOverwritePropertyInfo , - constructDownloadAllowOverwrite , - downloadAllowOverwrite , - getDownloadAllowOverwrite , - setDownloadAllowOverwrite , - - --- ** Destination - DownloadDestinationPropertyInfo , - downloadDestination , - getDownloadDestination , - - --- ** EstimatedProgress - DownloadEstimatedProgressPropertyInfo , - downloadEstimatedProgress , - getDownloadEstimatedProgress , - - --- ** Response - DownloadResponsePropertyInfo , - downloadResponse , - getDownloadResponse , - - - - - -- * Signals --- ** CreatedDestination - DownloadCreatedDestinationCallback , - DownloadCreatedDestinationCallbackC , - DownloadCreatedDestinationSignalInfo , - afterDownloadCreatedDestination , - downloadCreatedDestinationCallbackWrapper, - downloadCreatedDestinationClosure , - mkDownloadCreatedDestinationCallback , - noDownloadCreatedDestinationCallback , - onDownloadCreatedDestination , - - --- ** DecideDestination - DownloadDecideDestinationCallback , - DownloadDecideDestinationCallbackC , - DownloadDecideDestinationSignalInfo , - afterDownloadDecideDestination , - downloadDecideDestinationCallbackWrapper, - downloadDecideDestinationClosure , - mkDownloadDecideDestinationCallback , - noDownloadDecideDestinationCallback , - onDownloadDecideDestination , - - --- ** Failed - DownloadFailedCallback , - DownloadFailedCallbackC , - DownloadFailedSignalInfo , - afterDownloadFailed , - downloadFailedCallbackWrapper , - downloadFailedClosure , - mkDownloadFailedCallback , - noDownloadFailedCallback , - onDownloadFailed , - - --- ** Finished - DownloadFinishedCallback , - DownloadFinishedCallbackC , - DownloadFinishedSignalInfo , - afterDownloadFinished , - downloadFinishedCallbackWrapper , - downloadFinishedClosure , - mkDownloadFinishedCallback , - noDownloadFinishedCallback , - onDownloadFinished , - - --- ** ReceivedData - DownloadReceivedDataCallback , - DownloadReceivedDataCallbackC , - DownloadReceivedDataSignalInfo , - afterDownloadReceivedData , - downloadReceivedDataCallbackWrapper , - downloadReceivedDataClosure , - mkDownloadReceivedDataCallback , - noDownloadReceivedDataCallback , - onDownloadReceivedData , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype Download = Download (ForeignPtr Download) -foreign import ccall "webkit_download_get_type" - c_webkit_download_get_type :: IO GType - -type instance ParentTypes Download = DownloadParentTypes -type DownloadParentTypes = '[GObject.Object] - -instance GObject Download where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_download_get_type - - -class GObject o => DownloadK o -instance (GObject o, IsDescendantOf Download o) => DownloadK o - -toDownload :: DownloadK o => o -> IO Download -toDownload = unsafeCastTo Download - -noDownload :: Maybe Download -noDownload = Nothing - -type family ResolveDownloadMethod (t :: Symbol) (o :: *) :: * where - ResolveDownloadMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDownloadMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDownloadMethod "cancel" o = DownloadCancelMethodInfo - ResolveDownloadMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDownloadMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDownloadMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDownloadMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDownloadMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDownloadMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDownloadMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDownloadMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDownloadMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDownloadMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDownloadMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDownloadMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDownloadMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDownloadMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDownloadMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDownloadMethod "getAllowOverwrite" o = DownloadGetAllowOverwriteMethodInfo - ResolveDownloadMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDownloadMethod "getDestination" o = DownloadGetDestinationMethodInfo - ResolveDownloadMethod "getElapsedTime" o = DownloadGetElapsedTimeMethodInfo - ResolveDownloadMethod "getEstimatedProgress" o = DownloadGetEstimatedProgressMethodInfo - ResolveDownloadMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDownloadMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDownloadMethod "getReceivedDataLength" o = DownloadGetReceivedDataLengthMethodInfo - ResolveDownloadMethod "getRequest" o = DownloadGetRequestMethodInfo - ResolveDownloadMethod "getResponse" o = DownloadGetResponseMethodInfo - ResolveDownloadMethod "getWebView" o = DownloadGetWebViewMethodInfo - ResolveDownloadMethod "setAllowOverwrite" o = DownloadSetAllowOverwriteMethodInfo - ResolveDownloadMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDownloadMethod "setDestination" o = DownloadSetDestinationMethodInfo - ResolveDownloadMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDownloadMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDownloadMethod t Download, MethodInfo info Download p) => IsLabelProxy t (Download -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDownloadMethod t Download, MethodInfo info Download p) => IsLabel t (Download -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Download::created-destination -type DownloadCreatedDestinationCallback = - T.Text -> - 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 _ suggestedFilename _ = do - suggestedFilename' <- cstringToText suggestedFilename - result <- _cb suggestedFilename' - 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 = - GError -> - IO () - -noDownloadFailedCallback :: Maybe DownloadFailedCallback -noDownloadFailedCallback = Nothing - -type DownloadFailedCallbackC = - Ptr () -> -- object - Ptr GError -> - 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 GError -> - Ptr () -> - IO () -downloadFailedCallbackWrapper _cb _ error_ _ = do - error_' <- (newBoxed GError) error_ - _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 _ dataLength _ = do - _cb dataLength - -onDownloadReceivedData :: (GObject a, MonadIO m) => a -> DownloadReceivedDataCallback -> m SignalHandlerId -onDownloadReceivedData obj cb = liftIO $ connectDownloadReceivedData obj cb SignalConnectBefore -afterDownloadReceivedData :: (GObject a, MonadIO m) => a -> DownloadReceivedDataCallback -> m SignalHandlerId -afterDownloadReceivedData obj cb = connectDownloadReceivedData obj cb SignalConnectAfter - -connectDownloadReceivedData :: (GObject a, MonadIO m) => - a -> DownloadReceivedDataCallback -> SignalConnectMode -> m SignalHandlerId -connectDownloadReceivedData obj cb after = liftIO $ do - cb' <- mkDownloadReceivedDataCallback (downloadReceivedDataCallbackWrapper cb) - connectSignalFunPtr obj "received-data" cb' after - --- VVV Prop "allow-overwrite" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "allow-overwrite" - attrGet _ = getDownloadAllowOverwrite - attrSet _ = setDownloadAllowOverwrite - attrConstruct _ = constructDownloadAllowOverwrite - attrClear _ = undefined - --- VVV Prop "destination" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Just False) - -getDownloadDestination :: (MonadIO m, DownloadK o) => o -> m T.Text -getDownloadDestination obj = liftIO $ checkUnexpectedNothing "getDownloadDestination" $ 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 = "destination" - attrGet _ = getDownloadDestination - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "estimated-progress" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "estimated-progress" - attrGet _ = getDownloadEstimatedProgress - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "response" - -- Type: TInterface "WebKit2" "URIResponse" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDownloadResponse :: (MonadIO m, DownloadK o) => o -> m URIResponse -getDownloadResponse obj = liftIO $ checkUnexpectedNothing "getDownloadResponse" $ getObjectPropertyObject obj "response" URIResponse - -data DownloadResponsePropertyInfo -instance AttrInfo DownloadResponsePropertyInfo where - type AttrAllowedOps DownloadResponsePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DownloadResponsePropertyInfo = (~) () - type AttrBaseTypeConstraint DownloadResponsePropertyInfo = DownloadK - type AttrGetType DownloadResponsePropertyInfo = URIResponse - type AttrLabel DownloadResponsePropertyInfo = "response" - attrGet _ = getDownloadResponse - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList Download = DownloadAttributeList -type DownloadAttributeList = ('[ '("allowOverwrite", DownloadAllowOverwritePropertyInfo), '("destination", DownloadDestinationPropertyInfo), '("estimatedProgress", DownloadEstimatedProgressPropertyInfo), '("response", DownloadResponsePropertyInfo)] :: [(Symbol, *)]) - -downloadAllowOverwrite :: AttrLabelProxy "allowOverwrite" -downloadAllowOverwrite = AttrLabelProxy - -downloadDestination :: AttrLabelProxy "destination" -downloadDestination = AttrLabelProxy - -downloadEstimatedProgress :: AttrLabelProxy "estimatedProgress" -downloadEstimatedProgress = AttrLabelProxy - -downloadResponse :: AttrLabelProxy "response" -downloadResponse = AttrLabelProxy - -data DownloadCreatedDestinationSignalInfo -instance SignalInfo DownloadCreatedDestinationSignalInfo where - type HaskellCallbackType DownloadCreatedDestinationSignalInfo = DownloadCreatedDestinationCallback - connectSignal _ = connectDownloadCreatedDestination - -data DownloadDecideDestinationSignalInfo -instance SignalInfo DownloadDecideDestinationSignalInfo where - type HaskellCallbackType DownloadDecideDestinationSignalInfo = DownloadDecideDestinationCallback - connectSignal _ = connectDownloadDecideDestination - -data DownloadFailedSignalInfo -instance SignalInfo DownloadFailedSignalInfo where - type HaskellCallbackType DownloadFailedSignalInfo = DownloadFailedCallback - connectSignal _ = connectDownloadFailed - -data DownloadFinishedSignalInfo -instance SignalInfo DownloadFinishedSignalInfo where - type HaskellCallbackType DownloadFinishedSignalInfo = DownloadFinishedCallback - connectSignal _ = connectDownloadFinished - -data DownloadReceivedDataSignalInfo -instance SignalInfo DownloadReceivedDataSignalInfo where - type HaskellCallbackType DownloadReceivedDataSignalInfo = DownloadReceivedDataCallback - connectSignal _ = connectDownloadReceivedData - -type instance SignalList Download = DownloadSignalList -type DownloadSignalList = ('[ '("createdDestination", DownloadCreatedDestinationSignalInfo), '("decideDestination", DownloadDecideDestinationSignalInfo), '("failed", DownloadFailedSignalInfo), '("finished", DownloadFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("receivedData", DownloadReceivedDataSignalInfo)] :: [(Symbol, *)]) - --- method Download::cancel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_download_cancel" webkit_download_cancel :: - Ptr Download -> -- _obj : TInterface "WebKit2" "Download" - IO () - - -downloadCancel :: - (MonadIO m, DownloadK a) => - a -- _obj - -> m () -- result -downloadCancel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_download_cancel _obj' - touchManagedPtr _obj - return () - -data DownloadCancelMethodInfo -instance (signature ~ (m ()), MonadIO m, DownloadK a) => MethodInfo DownloadCancelMethodInfo a signature where - overloadedMethod _ = downloadCancel - --- method Download::get_allow_overwrite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_download_get_allow_overwrite" webkit_download_get_allow_overwrite :: - Ptr Download -> -- _obj : TInterface "WebKit2" "Download" - IO CInt - - -downloadGetAllowOverwrite :: - (MonadIO m, DownloadK a) => - a -- _obj - -> m Bool -- result -downloadGetAllowOverwrite _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_download_get_allow_overwrite _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DownloadGetAllowOverwriteMethodInfo -instance (signature ~ (m Bool), MonadIO m, DownloadK a) => MethodInfo DownloadGetAllowOverwriteMethodInfo a signature where - overloadedMethod _ = downloadGetAllowOverwrite - --- method Download::get_destination --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_download_get_destination" webkit_download_get_destination :: - Ptr Download -> -- _obj : TInterface "WebKit2" "Download" - IO CString - - -downloadGetDestination :: - (MonadIO m, DownloadK a) => - a -- _obj - -> m T.Text -- result -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' - -data DownloadGetDestinationMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DownloadK a) => MethodInfo DownloadGetDestinationMethodInfo a signature where - overloadedMethod _ = downloadGetDestination - --- method Download::get_elapsed_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "webkit_download_get_elapsed_time" webkit_download_get_elapsed_time :: - Ptr Download -> -- _obj : TInterface "WebKit2" "Download" - IO CDouble - - -downloadGetElapsedTime :: - (MonadIO m, DownloadK a) => - a -- _obj - -> m Double -- result -downloadGetElapsedTime _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_download_get_elapsed_time _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data DownloadGetElapsedTimeMethodInfo -instance (signature ~ (m Double), MonadIO m, DownloadK a) => MethodInfo DownloadGetElapsedTimeMethodInfo a signature where - overloadedMethod _ = downloadGetElapsedTime - --- method Download::get_estimated_progress --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "webkit_download_get_estimated_progress" webkit_download_get_estimated_progress :: - Ptr Download -> -- _obj : TInterface "WebKit2" "Download" - IO CDouble - - -downloadGetEstimatedProgress :: - (MonadIO m, DownloadK a) => - a -- _obj - -> m Double -- result -downloadGetEstimatedProgress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_download_get_estimated_progress _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data DownloadGetEstimatedProgressMethodInfo -instance (signature ~ (m Double), MonadIO m, DownloadK a) => MethodInfo DownloadGetEstimatedProgressMethodInfo a signature where - overloadedMethod _ = downloadGetEstimatedProgress - --- method Download::get_received_data_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "webkit_download_get_received_data_length" webkit_download_get_received_data_length :: - Ptr Download -> -- _obj : TInterface "WebKit2" "Download" - IO Word64 - - -downloadGetReceivedDataLength :: - (MonadIO m, DownloadK a) => - a -- _obj - -> m Word64 -- result -downloadGetReceivedDataLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_download_get_received_data_length _obj' - touchManagedPtr _obj - return result - -data DownloadGetReceivedDataLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DownloadK a) => MethodInfo DownloadGetReceivedDataLengthMethodInfo a signature where - overloadedMethod _ = downloadGetReceivedDataLength - --- method Download::get_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DownloadGetRequestMethodInfo -instance (signature ~ (m URIRequest), MonadIO m, DownloadK a) => MethodInfo DownloadGetRequestMethodInfo a signature where - overloadedMethod _ = downloadGetRequest - --- method Download::get_response --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DownloadGetResponseMethodInfo -instance (signature ~ (m URIResponse), MonadIO m, DownloadK a) => MethodInfo DownloadGetResponseMethodInfo a signature where - overloadedMethod _ = downloadGetResponse - --- method Download::get_web_view --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DownloadGetWebViewMethodInfo -instance (signature ~ (m WebView), MonadIO m, DownloadK a) => MethodInfo DownloadGetWebViewMethodInfo a signature where - overloadedMethod _ = downloadGetWebView - --- method Download::set_allow_overwrite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -downloadSetAllowOverwrite _obj allowed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allowed' = (fromIntegral . fromEnum) allowed - webkit_download_set_allow_overwrite _obj' allowed' - touchManagedPtr _obj - return () - -data DownloadSetAllowOverwriteMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DownloadK a) => MethodInfo DownloadSetAllowOverwriteMethodInfo a signature where - overloadedMethod _ = downloadSetAllowOverwrite - --- method Download::set_destination --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -downloadSetDestination _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - webkit_download_set_destination _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - -data DownloadSetDestinationMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DownloadK a) => MethodInfo DownloadSetDestinationMethodInfo a signature where - overloadedMethod _ = downloadSetDestination - - diff --git a/GI/WebKit2/Objects/Download.hs-boot b/GI/WebKit2/Objects/Download.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/Download.hs-boot +++ /dev/null @@ -1,33 +0,0 @@ -module GI.WebKit2.Objects.Download where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Download = Download (ForeignPtr Download) -instance GObject Download where -class GObject o => DownloadK o -instance (GObject o, IsDescendantOf Download o) => DownloadK o -data DownloadAllowOverwritePropertyInfo -data DownloadDestinationPropertyInfo -data DownloadEstimatedProgressPropertyInfo -data DownloadResponsePropertyInfo -data DownloadCreatedDestinationSignalInfo -data DownloadDecideDestinationSignalInfo -data DownloadFailedSignalInfo -data DownloadFinishedSignalInfo -data DownloadReceivedDataSignalInfo -data DownloadCancelMethodInfo -data DownloadGetAllowOverwriteMethodInfo -data DownloadGetDestinationMethodInfo -data DownloadGetElapsedTimeMethodInfo -data DownloadGetEstimatedProgressMethodInfo -data DownloadGetReceivedDataLengthMethodInfo -data DownloadGetRequestMethodInfo -data DownloadGetResponseMethodInfo -data DownloadGetWebViewMethodInfo -data DownloadSetAllowOverwriteMethodInfo -data DownloadSetDestinationMethodInfo diff --git a/GI/WebKit2/Objects/EditorState.hs b/GI/WebKit2/Objects/EditorState.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/EditorState.hs +++ /dev/null @@ -1,160 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.EditorState - ( - --- * Exported types - EditorState(..) , - EditorStateK , - toEditorState , - noEditorState , - - - -- * Methods --- ** editorStateGetTypingAttributes - EditorStateGetTypingAttributesMethodInfo, - editorStateGetTypingAttributes , - - - - - -- * Properties --- ** TypingAttributes - EditorStateTypingAttributesPropertyInfo , - editorStateTypingAttributes , - getEditorStateTypingAttributes , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype EditorState = EditorState (ForeignPtr EditorState) -foreign import ccall "webkit_editor_state_get_type" - c_webkit_editor_state_get_type :: IO GType - -type instance ParentTypes EditorState = EditorStateParentTypes -type EditorStateParentTypes = '[GObject.Object] - -instance GObject EditorState where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_editor_state_get_type - - -class GObject o => EditorStateK o -instance (GObject o, IsDescendantOf EditorState o) => EditorStateK o - -toEditorState :: EditorStateK o => o -> IO EditorState -toEditorState = unsafeCastTo EditorState - -noEditorState :: Maybe EditorState -noEditorState = Nothing - -type family ResolveEditorStateMethod (t :: Symbol) (o :: *) :: * where - ResolveEditorStateMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveEditorStateMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveEditorStateMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveEditorStateMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveEditorStateMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveEditorStateMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveEditorStateMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveEditorStateMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveEditorStateMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveEditorStateMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveEditorStateMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveEditorStateMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveEditorStateMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveEditorStateMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveEditorStateMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveEditorStateMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveEditorStateMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveEditorStateMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveEditorStateMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveEditorStateMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveEditorStateMethod "getTypingAttributes" o = EditorStateGetTypingAttributesMethodInfo - ResolveEditorStateMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveEditorStateMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveEditorStateMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEditorStateMethod t EditorState, MethodInfo info EditorState p) => IsLabelProxy t (EditorState -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEditorStateMethod t EditorState, MethodInfo info EditorState p) => IsLabel t (EditorState -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "typing-attributes" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getEditorStateTypingAttributes :: (MonadIO m, EditorStateK o) => o -> m Word32 -getEditorStateTypingAttributes obj = liftIO $ getObjectPropertyUInt32 obj "typing-attributes" - -data EditorStateTypingAttributesPropertyInfo -instance AttrInfo EditorStateTypingAttributesPropertyInfo where - type AttrAllowedOps EditorStateTypingAttributesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EditorStateTypingAttributesPropertyInfo = (~) () - type AttrBaseTypeConstraint EditorStateTypingAttributesPropertyInfo = EditorStateK - type AttrGetType EditorStateTypingAttributesPropertyInfo = Word32 - type AttrLabel EditorStateTypingAttributesPropertyInfo = "typing-attributes" - attrGet _ = getEditorStateTypingAttributes - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList EditorState = EditorStateAttributeList -type EditorStateAttributeList = ('[ '("typingAttributes", EditorStateTypingAttributesPropertyInfo)] :: [(Symbol, *)]) - -editorStateTypingAttributes :: AttrLabelProxy "typingAttributes" -editorStateTypingAttributes = AttrLabelProxy - -type instance SignalList EditorState = EditorStateSignalList -type EditorStateSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method EditorState::get_typing_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "EditorState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_editor_state_get_typing_attributes" webkit_editor_state_get_typing_attributes :: - Ptr EditorState -> -- _obj : TInterface "WebKit2" "EditorState" - IO Word32 - - -editorStateGetTypingAttributes :: - (MonadIO m, EditorStateK a) => - a -- _obj - -> m Word32 -- result -editorStateGetTypingAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_editor_state_get_typing_attributes _obj' - touchManagedPtr _obj - return result - -data EditorStateGetTypingAttributesMethodInfo -instance (signature ~ (m Word32), MonadIO m, EditorStateK a) => MethodInfo EditorStateGetTypingAttributesMethodInfo a signature where - overloadedMethod _ = editorStateGetTypingAttributes - - diff --git a/GI/WebKit2/Objects/EditorState.hs-boot b/GI/WebKit2/Objects/EditorState.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/EditorState.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.WebKit2.Objects.EditorState where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EditorState = EditorState (ForeignPtr EditorState) -instance GObject EditorState where -class GObject o => EditorStateK o -instance (GObject o, IsDescendantOf EditorState o) => EditorStateK o -data EditorStateTypingAttributesPropertyInfo -data EditorStateGetTypingAttributesMethodInfo diff --git a/GI/WebKit2/Objects/FaviconDatabase.hs b/GI/WebKit2/Objects/FaviconDatabase.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/FaviconDatabase.hs +++ /dev/null @@ -1,336 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.FaviconDatabase - ( - --- * Exported types - FaviconDatabase(..) , - FaviconDatabaseK , - toFaviconDatabase , - noFaviconDatabase , - - - -- * Methods --- ** faviconDatabaseClear - FaviconDatabaseClearMethodInfo , - faviconDatabaseClear , - - --- ** faviconDatabaseGetFavicon - FaviconDatabaseGetFaviconMethodInfo , - faviconDatabaseGetFavicon , - - --- ** faviconDatabaseGetFaviconFinish - FaviconDatabaseGetFaviconFinishMethodInfo, - faviconDatabaseGetFaviconFinish , - - --- ** faviconDatabaseGetFaviconUri - FaviconDatabaseGetFaviconUriMethodInfo , - faviconDatabaseGetFaviconUri , - - - - - -- * Signals --- ** FaviconChanged - FaviconDatabaseFaviconChangedCallback , - FaviconDatabaseFaviconChangedCallbackC , - FaviconDatabaseFaviconChangedSignalInfo , - afterFaviconDatabaseFaviconChanged , - faviconDatabaseFaviconChangedCallbackWrapper, - faviconDatabaseFaviconChangedClosure , - mkFaviconDatabaseFaviconChangedCallback , - noFaviconDatabaseFaviconChangedCallback , - onFaviconDatabaseFaviconChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio -import qualified GI.Cairo as Cairo - -newtype FaviconDatabase = FaviconDatabase (ForeignPtr FaviconDatabase) -foreign import ccall "webkit_favicon_database_get_type" - c_webkit_favicon_database_get_type :: IO GType - -type instance ParentTypes FaviconDatabase = FaviconDatabaseParentTypes -type FaviconDatabaseParentTypes = '[GObject.Object] - -instance GObject FaviconDatabase where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_favicon_database_get_type - - -class GObject o => FaviconDatabaseK o -instance (GObject o, IsDescendantOf FaviconDatabase o) => FaviconDatabaseK o - -toFaviconDatabase :: FaviconDatabaseK o => o -> IO FaviconDatabase -toFaviconDatabase = unsafeCastTo FaviconDatabase - -noFaviconDatabase :: Maybe FaviconDatabase -noFaviconDatabase = Nothing - -type family ResolveFaviconDatabaseMethod (t :: Symbol) (o :: *) :: * where - ResolveFaviconDatabaseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFaviconDatabaseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFaviconDatabaseMethod "clear" o = FaviconDatabaseClearMethodInfo - ResolveFaviconDatabaseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFaviconDatabaseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFaviconDatabaseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFaviconDatabaseMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFaviconDatabaseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFaviconDatabaseMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFaviconDatabaseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFaviconDatabaseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFaviconDatabaseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFaviconDatabaseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFaviconDatabaseMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFaviconDatabaseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFaviconDatabaseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFaviconDatabaseMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFaviconDatabaseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFaviconDatabaseMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFaviconDatabaseMethod "getFavicon" o = FaviconDatabaseGetFaviconMethodInfo - ResolveFaviconDatabaseMethod "getFaviconFinish" o = FaviconDatabaseGetFaviconFinishMethodInfo - ResolveFaviconDatabaseMethod "getFaviconUri" o = FaviconDatabaseGetFaviconUriMethodInfo - ResolveFaviconDatabaseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFaviconDatabaseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFaviconDatabaseMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFaviconDatabaseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFaviconDatabaseMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFaviconDatabaseMethod t FaviconDatabase, MethodInfo info FaviconDatabase p) => IsLabelProxy t (FaviconDatabase -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFaviconDatabaseMethod t FaviconDatabase, MethodInfo info FaviconDatabase p) => IsLabel t (FaviconDatabase -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FaviconDatabase::favicon-changed -type FaviconDatabaseFaviconChangedCallback = - T.Text -> - 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 _ pageUri faviconUri _ = do - pageUri' <- cstringToText pageUri - faviconUri' <- cstringToText faviconUri - _cb pageUri' faviconUri' - -onFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) => a -> FaviconDatabaseFaviconChangedCallback -> m SignalHandlerId -onFaviconDatabaseFaviconChanged obj cb = liftIO $ connectFaviconDatabaseFaviconChanged obj cb SignalConnectBefore -afterFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) => a -> FaviconDatabaseFaviconChangedCallback -> m SignalHandlerId -afterFaviconDatabaseFaviconChanged obj cb = connectFaviconDatabaseFaviconChanged obj cb SignalConnectAfter - -connectFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) => - a -> FaviconDatabaseFaviconChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectFaviconDatabaseFaviconChanged obj cb after = liftIO $ do - cb' <- mkFaviconDatabaseFaviconChangedCallback (faviconDatabaseFaviconChangedCallbackWrapper cb) - connectSignalFunPtr obj "favicon-changed" cb' after - -type instance AttributeList FaviconDatabase = FaviconDatabaseAttributeList -type FaviconDatabaseAttributeList = ('[ ] :: [(Symbol, *)]) - -data FaviconDatabaseFaviconChangedSignalInfo -instance SignalInfo FaviconDatabaseFaviconChangedSignalInfo where - type HaskellCallbackType FaviconDatabaseFaviconChangedSignalInfo = FaviconDatabaseFaviconChangedCallback - connectSignal _ = connectFaviconDatabaseFaviconChanged - -type instance SignalList FaviconDatabase = FaviconDatabaseSignalList -type FaviconDatabaseSignalList = ('[ '("faviconChanged", FaviconDatabaseFaviconChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FaviconDatabase::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_favicon_database_clear" webkit_favicon_database_clear :: - Ptr FaviconDatabase -> -- _obj : TInterface "WebKit2" "FaviconDatabase" - IO () - - -faviconDatabaseClear :: - (MonadIO m, FaviconDatabaseK a) => - a -- _obj - -> m () -- result -faviconDatabaseClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_favicon_database_clear _obj' - touchManagedPtr _obj - return () - -data FaviconDatabaseClearMethodInfo -instance (signature ~ (m ()), MonadIO m, FaviconDatabaseK a) => MethodInfo FaviconDatabaseClearMethodInfo a signature where - overloadedMethod _ = faviconDatabaseClear - --- method FaviconDatabase::get_favicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_favicon_database_get_favicon" webkit_favicon_database_get_favicon :: - Ptr FaviconDatabase -> -- _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 TPtr - IO () - - -faviconDatabaseGetFavicon :: - (MonadIO m, FaviconDatabaseK a, Gio.CancellableK b) => - a -- _obj - -> T.Text -- pageUri - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -faviconDatabaseGetFavicon _obj pageUri cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pageUri' <- textToCString pageUri - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - webkit_favicon_database_get_favicon _obj' pageUri' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem pageUri' - return () - -data FaviconDatabaseGetFaviconMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, FaviconDatabaseK a, Gio.CancellableK b) => MethodInfo FaviconDatabaseGetFaviconMethodInfo a signature where - overloadedMethod _ = faviconDatabaseGetFavicon - --- method FaviconDatabase::get_favicon_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data FaviconDatabaseGetFaviconFinishMethodInfo -instance (signature ~ (b -> m Cairo.Surface), MonadIO m, FaviconDatabaseK a, Gio.AsyncResultK b) => MethodInfo FaviconDatabaseGetFaviconFinishMethodInfo a signature where - overloadedMethod _ = faviconDatabaseGetFaviconFinish - --- method FaviconDatabase::get_favicon_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_favicon_database_get_favicon_uri" webkit_favicon_database_get_favicon_uri :: - Ptr FaviconDatabase -> -- _obj : TInterface "WebKit2" "FaviconDatabase" - CString -> -- page_uri : TBasicType TUTF8 - IO CString - - -faviconDatabaseGetFaviconUri :: - (MonadIO m, FaviconDatabaseK a) => - a -- _obj - -> T.Text -- pageUri - -> m T.Text -- result -faviconDatabaseGetFaviconUri _obj pageUri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pageUri' <- textToCString pageUri - result <- webkit_favicon_database_get_favicon_uri _obj' pageUri' - checkUnexpectedReturnNULL "webkit_favicon_database_get_favicon_uri" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem pageUri' - return result' - -data FaviconDatabaseGetFaviconUriMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, FaviconDatabaseK a) => MethodInfo FaviconDatabaseGetFaviconUriMethodInfo a signature where - overloadedMethod _ = faviconDatabaseGetFaviconUri - - diff --git a/GI/WebKit2/Objects/FaviconDatabase.hs-boot b/GI/WebKit2/Objects/FaviconDatabase.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/FaviconDatabase.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2.Objects.FaviconDatabase where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FaviconDatabase = FaviconDatabase (ForeignPtr FaviconDatabase) -instance GObject FaviconDatabase where -class GObject o => FaviconDatabaseK o -instance (GObject o, IsDescendantOf FaviconDatabase o) => FaviconDatabaseK o -data FaviconDatabaseFaviconChangedSignalInfo -data FaviconDatabaseClearMethodInfo -data FaviconDatabaseGetFaviconMethodInfo -data FaviconDatabaseGetFaviconFinishMethodInfo -data FaviconDatabaseGetFaviconUriMethodInfo diff --git a/GI/WebKit2/Objects/FileChooserRequest.hs b/GI/WebKit2/Objects/FileChooserRequest.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/FileChooserRequest.hs +++ /dev/null @@ -1,425 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.FileChooserRequest - ( - --- * Exported types - FileChooserRequest(..) , - FileChooserRequestK , - toFileChooserRequest , - noFileChooserRequest , - - - -- * Methods --- ** fileChooserRequestCancel - FileChooserRequestCancelMethodInfo , - fileChooserRequestCancel , - - --- ** fileChooserRequestGetMimeTypes - FileChooserRequestGetMimeTypesMethodInfo, - fileChooserRequestGetMimeTypes , - - --- ** fileChooserRequestGetMimeTypesFilter - FileChooserRequestGetMimeTypesFilterMethodInfo, - fileChooserRequestGetMimeTypesFilter , - - --- ** fileChooserRequestGetSelectMultiple - FileChooserRequestGetSelectMultipleMethodInfo, - fileChooserRequestGetSelectMultiple , - - --- ** fileChooserRequestGetSelectedFiles - FileChooserRequestGetSelectedFilesMethodInfo, - fileChooserRequestGetSelectedFiles , - - --- ** fileChooserRequestSelectFiles - FileChooserRequestSelectFilesMethodInfo , - fileChooserRequestSelectFiles , - - - - - -- * Properties --- ** Filter - FileChooserRequestFilterPropertyInfo , - fileChooserRequestFilter , - getFileChooserRequestFilter , - - --- ** MimeTypes - FileChooserRequestMimeTypesPropertyInfo , - fileChooserRequestMimeTypes , - getFileChooserRequestMimeTypes , - - --- ** SelectMultiple - FileChooserRequestSelectMultiplePropertyInfo, - fileChooserRequestSelectMultiple , - getFileChooserRequestSelectMultiple , - - --- ** SelectedFiles - FileChooserRequestSelectedFilesPropertyInfo, - fileChooserRequestSelectedFiles , - getFileChooserRequestSelectedFiles , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gtk as Gtk - -newtype FileChooserRequest = FileChooserRequest (ForeignPtr FileChooserRequest) -foreign import ccall "webkit_file_chooser_request_get_type" - c_webkit_file_chooser_request_get_type :: IO GType - -type instance ParentTypes FileChooserRequest = FileChooserRequestParentTypes -type FileChooserRequestParentTypes = '[GObject.Object] - -instance GObject FileChooserRequest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_file_chooser_request_get_type - - -class GObject o => FileChooserRequestK o -instance (GObject o, IsDescendantOf FileChooserRequest o) => FileChooserRequestK o - -toFileChooserRequest :: FileChooserRequestK o => o -> IO FileChooserRequest -toFileChooserRequest = unsafeCastTo FileChooserRequest - -noFileChooserRequest :: Maybe FileChooserRequest -noFileChooserRequest = Nothing - -type family ResolveFileChooserRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveFileChooserRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileChooserRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileChooserRequestMethod "cancel" o = FileChooserRequestCancelMethodInfo - ResolveFileChooserRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileChooserRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileChooserRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileChooserRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileChooserRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileChooserRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileChooserRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileChooserRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileChooserRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileChooserRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileChooserRequestMethod "selectFiles" o = FileChooserRequestSelectFilesMethodInfo - ResolveFileChooserRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileChooserRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileChooserRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileChooserRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileChooserRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileChooserRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileChooserRequestMethod "getMimeTypes" o = FileChooserRequestGetMimeTypesMethodInfo - ResolveFileChooserRequestMethod "getMimeTypesFilter" o = FileChooserRequestGetMimeTypesFilterMethodInfo - ResolveFileChooserRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileChooserRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileChooserRequestMethod "getSelectMultiple" o = FileChooserRequestGetSelectMultipleMethodInfo - ResolveFileChooserRequestMethod "getSelectedFiles" o = FileChooserRequestGetSelectedFilesMethodInfo - ResolveFileChooserRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileChooserRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileChooserRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileChooserRequestMethod t FileChooserRequest, MethodInfo info FileChooserRequest p) => IsLabelProxy t (FileChooserRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileChooserRequestMethod t FileChooserRequest, MethodInfo info FileChooserRequest p) => IsLabel t (FileChooserRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "filter" - -- Type: TInterface "Gtk" "FileFilter" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getFileChooserRequestFilter :: (MonadIO m, FileChooserRequestK o) => o -> m (Maybe Gtk.FileFilter) -getFileChooserRequestFilter obj = liftIO $ getObjectPropertyObject obj "filter" Gtk.FileFilter - -data FileChooserRequestFilterPropertyInfo -instance AttrInfo FileChooserRequestFilterPropertyInfo where - type AttrAllowedOps FileChooserRequestFilterPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FileChooserRequestFilterPropertyInfo = (~) () - type AttrBaseTypeConstraint FileChooserRequestFilterPropertyInfo = FileChooserRequestK - type AttrGetType FileChooserRequestFilterPropertyInfo = (Maybe Gtk.FileFilter) - type AttrLabel FileChooserRequestFilterPropertyInfo = "filter" - attrGet _ = getFileChooserRequestFilter - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "mime-types" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getFileChooserRequestMimeTypes :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text] -getFileChooserRequestMimeTypes obj = liftIO $ checkUnexpectedNothing "getFileChooserRequestMimeTypes" $ getObjectPropertyStringArray obj "mime-types" - -data FileChooserRequestMimeTypesPropertyInfo -instance AttrInfo FileChooserRequestMimeTypesPropertyInfo where - type AttrAllowedOps FileChooserRequestMimeTypesPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FileChooserRequestMimeTypesPropertyInfo = (~) () - type AttrBaseTypeConstraint FileChooserRequestMimeTypesPropertyInfo = FileChooserRequestK - type AttrGetType FileChooserRequestMimeTypesPropertyInfo = [T.Text] - type AttrLabel FileChooserRequestMimeTypesPropertyInfo = "mime-types" - attrGet _ = getFileChooserRequestMimeTypes - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "select-multiple" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "select-multiple" - attrGet _ = getFileChooserRequestSelectMultiple - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "selected-files" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getFileChooserRequestSelectedFiles :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text] -getFileChooserRequestSelectedFiles obj = liftIO $ checkUnexpectedNothing "getFileChooserRequestSelectedFiles" $ getObjectPropertyStringArray obj "selected-files" - -data FileChooserRequestSelectedFilesPropertyInfo -instance AttrInfo FileChooserRequestSelectedFilesPropertyInfo where - type AttrAllowedOps FileChooserRequestSelectedFilesPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = (~) () - type AttrBaseTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = FileChooserRequestK - type AttrGetType FileChooserRequestSelectedFilesPropertyInfo = [T.Text] - type AttrLabel FileChooserRequestSelectedFilesPropertyInfo = "selected-files" - attrGet _ = getFileChooserRequestSelectedFiles - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList FileChooserRequest = FileChooserRequestAttributeList -type FileChooserRequestAttributeList = ('[ '("filter", FileChooserRequestFilterPropertyInfo), '("mimeTypes", FileChooserRequestMimeTypesPropertyInfo), '("selectMultiple", FileChooserRequestSelectMultiplePropertyInfo), '("selectedFiles", FileChooserRequestSelectedFilesPropertyInfo)] :: [(Symbol, *)]) - -fileChooserRequestFilter :: AttrLabelProxy "filter" -fileChooserRequestFilter = AttrLabelProxy - -fileChooserRequestMimeTypes :: AttrLabelProxy "mimeTypes" -fileChooserRequestMimeTypes = AttrLabelProxy - -fileChooserRequestSelectMultiple :: AttrLabelProxy "selectMultiple" -fileChooserRequestSelectMultiple = AttrLabelProxy - -fileChooserRequestSelectedFiles :: AttrLabelProxy "selectedFiles" -fileChooserRequestSelectedFiles = AttrLabelProxy - -type instance SignalList FileChooserRequest = FileChooserRequestSignalList -type FileChooserRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileChooserRequest::cancel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_file_chooser_request_cancel" webkit_file_chooser_request_cancel :: - Ptr FileChooserRequest -> -- _obj : TInterface "WebKit2" "FileChooserRequest" - IO () - - -fileChooserRequestCancel :: - (MonadIO m, FileChooserRequestK a) => - a -- _obj - -> m () -- result -fileChooserRequestCancel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_file_chooser_request_cancel _obj' - touchManagedPtr _obj - return () - -data FileChooserRequestCancelMethodInfo -instance (signature ~ (m ()), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestCancelMethodInfo a signature where - overloadedMethod _ = fileChooserRequestCancel - --- method FileChooserRequest::get_mime_types --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "webkit_file_chooser_request_get_mime_types" webkit_file_chooser_request_get_mime_types :: - Ptr FileChooserRequest -> -- _obj : TInterface "WebKit2" "FileChooserRequest" - IO (Ptr CString) - - -fileChooserRequestGetMimeTypes :: - (MonadIO m, FileChooserRequestK a) => - a -- _obj - -> m [T.Text] -- result -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' - -data FileChooserRequestGetMimeTypesMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetMimeTypesMethodInfo a signature where - overloadedMethod _ = fileChooserRequestGetMimeTypes - --- method FileChooserRequest::get_mime_types_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data FileChooserRequestGetMimeTypesFilterMethodInfo -instance (signature ~ (m Gtk.FileFilter), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetMimeTypesFilterMethodInfo a signature where - overloadedMethod _ = fileChooserRequestGetMimeTypesFilter - --- method FileChooserRequest::get_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_file_chooser_request_get_select_multiple" webkit_file_chooser_request_get_select_multiple :: - Ptr FileChooserRequest -> -- _obj : TInterface "WebKit2" "FileChooserRequest" - IO CInt - - -fileChooserRequestGetSelectMultiple :: - (MonadIO m, FileChooserRequestK a) => - a -- _obj - -> m Bool -- result -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' - -data FileChooserRequestGetSelectMultipleMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetSelectMultipleMethodInfo a signature where - overloadedMethod _ = fileChooserRequestGetSelectMultiple - --- method FileChooserRequest::get_selected_files --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "webkit_file_chooser_request_get_selected_files" webkit_file_chooser_request_get_selected_files :: - Ptr FileChooserRequest -> -- _obj : TInterface "WebKit2" "FileChooserRequest" - IO (Ptr CString) - - -fileChooserRequestGetSelectedFiles :: - (MonadIO m, FileChooserRequestK a) => - a -- _obj - -> m [T.Text] -- result -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' - -data FileChooserRequestGetSelectedFilesMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetSelectedFilesMethodInfo a signature where - overloadedMethod _ = fileChooserRequestGetSelectedFiles - --- method FileChooserRequest::select_files --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data FileChooserRequestSelectFilesMethodInfo -instance (signature ~ ([T.Text] -> m ()), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestSelectFilesMethodInfo a signature where - overloadedMethod _ = fileChooserRequestSelectFiles - - diff --git a/GI/WebKit2/Objects/FileChooserRequest.hs-boot b/GI/WebKit2/Objects/FileChooserRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/FileChooserRequest.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.WebKit2.Objects.FileChooserRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileChooserRequest = FileChooserRequest (ForeignPtr FileChooserRequest) -instance GObject FileChooserRequest where -class GObject o => FileChooserRequestK o -instance (GObject o, IsDescendantOf FileChooserRequest o) => FileChooserRequestK o -data FileChooserRequestFilterPropertyInfo -data FileChooserRequestMimeTypesPropertyInfo -data FileChooserRequestSelectMultiplePropertyInfo -data FileChooserRequestSelectedFilesPropertyInfo -data FileChooserRequestCancelMethodInfo -data FileChooserRequestGetMimeTypesMethodInfo -data FileChooserRequestGetMimeTypesFilterMethodInfo -data FileChooserRequestGetSelectMultipleMethodInfo -data FileChooserRequestGetSelectedFilesMethodInfo -data FileChooserRequestSelectFilesMethodInfo diff --git a/GI/WebKit2/Objects/FindController.hs b/GI/WebKit2/Objects/FindController.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/FindController.hs +++ /dev/null @@ -1,709 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.FindController - ( - --- * Exported types - FindController(..) , - FindControllerK , - toFindController , - noFindController , - - - -- * Methods --- ** findControllerCountMatches - FindControllerCountMatchesMethodInfo , - findControllerCountMatches , - - --- ** findControllerGetMaxMatchCount - FindControllerGetMaxMatchCountMethodInfo, - findControllerGetMaxMatchCount , - - --- ** findControllerGetOptions - FindControllerGetOptionsMethodInfo , - findControllerGetOptions , - - --- ** findControllerGetSearchText - FindControllerGetSearchTextMethodInfo , - findControllerGetSearchText , - - --- ** findControllerGetWebView - FindControllerGetWebViewMethodInfo , - findControllerGetWebView , - - --- ** findControllerSearch - FindControllerSearchMethodInfo , - findControllerSearch , - - --- ** findControllerSearchFinish - FindControllerSearchFinishMethodInfo , - findControllerSearchFinish , - - --- ** findControllerSearchNext - FindControllerSearchNextMethodInfo , - findControllerSearchNext , - - --- ** findControllerSearchPrevious - FindControllerSearchPreviousMethodInfo , - findControllerSearchPrevious , - - - - - -- * Properties --- ** MaxMatchCount - FindControllerMaxMatchCountPropertyInfo , - findControllerMaxMatchCount , - getFindControllerMaxMatchCount , - - --- ** Options - FindControllerOptionsPropertyInfo , - findControllerOptions , - getFindControllerOptions , - - --- ** Text - FindControllerTextPropertyInfo , - findControllerText , - getFindControllerText , - - --- ** WebView - FindControllerWebViewPropertyInfo , - constructFindControllerWebView , - findControllerWebView , - getFindControllerWebView , - - - - - -- * Signals --- ** CountedMatches - FindControllerCountedMatchesCallback , - FindControllerCountedMatchesCallbackC , - FindControllerCountedMatchesSignalInfo , - afterFindControllerCountedMatches , - findControllerCountedMatchesCallbackWrapper, - findControllerCountedMatchesClosure , - mkFindControllerCountedMatchesCallback , - noFindControllerCountedMatchesCallback , - onFindControllerCountedMatches , - - --- ** FailedToFindText - FindControllerFailedToFindTextCallback , - FindControllerFailedToFindTextCallbackC , - FindControllerFailedToFindTextSignalInfo, - afterFindControllerFailedToFindText , - findControllerFailedToFindTextCallbackWrapper, - findControllerFailedToFindTextClosure , - mkFindControllerFailedToFindTextCallback, - noFindControllerFailedToFindTextCallback, - onFindControllerFailedToFindText , - - --- ** FoundText - FindControllerFoundTextCallback , - FindControllerFoundTextCallbackC , - FindControllerFoundTextSignalInfo , - afterFindControllerFoundText , - findControllerFoundTextCallbackWrapper , - findControllerFoundTextClosure , - mkFindControllerFoundTextCallback , - noFindControllerFoundTextCallback , - onFindControllerFoundText , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype FindController = FindController (ForeignPtr FindController) -foreign import ccall "webkit_find_controller_get_type" - c_webkit_find_controller_get_type :: IO GType - -type instance ParentTypes FindController = FindControllerParentTypes -type FindControllerParentTypes = '[GObject.Object] - -instance GObject FindController where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_find_controller_get_type - - -class GObject o => FindControllerK o -instance (GObject o, IsDescendantOf FindController o) => FindControllerK o - -toFindController :: FindControllerK o => o -> IO FindController -toFindController = unsafeCastTo FindController - -noFindController :: Maybe FindController -noFindController = Nothing - -type family ResolveFindControllerMethod (t :: Symbol) (o :: *) :: * where - ResolveFindControllerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFindControllerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFindControllerMethod "countMatches" o = FindControllerCountMatchesMethodInfo - ResolveFindControllerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFindControllerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFindControllerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFindControllerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFindControllerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFindControllerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFindControllerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFindControllerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFindControllerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFindControllerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFindControllerMethod "search" o = FindControllerSearchMethodInfo - ResolveFindControllerMethod "searchFinish" o = FindControllerSearchFinishMethodInfo - ResolveFindControllerMethod "searchNext" o = FindControllerSearchNextMethodInfo - ResolveFindControllerMethod "searchPrevious" o = FindControllerSearchPreviousMethodInfo - ResolveFindControllerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFindControllerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFindControllerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFindControllerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFindControllerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFindControllerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFindControllerMethod "getMaxMatchCount" o = FindControllerGetMaxMatchCountMethodInfo - ResolveFindControllerMethod "getOptions" o = FindControllerGetOptionsMethodInfo - ResolveFindControllerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFindControllerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFindControllerMethod "getSearchText" o = FindControllerGetSearchTextMethodInfo - ResolveFindControllerMethod "getWebView" o = FindControllerGetWebViewMethodInfo - ResolveFindControllerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFindControllerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFindControllerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFindControllerMethod t FindController, MethodInfo info FindController p) => IsLabelProxy t (FindController -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFindControllerMethod t FindController, MethodInfo info FindController p) => IsLabel t (FindController -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FindController::counted-matches -type FindControllerCountedMatchesCallback = - Word32 -> - 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 _ matchCount _ = do - _cb matchCount - -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 _ matchCount _ = do - _cb matchCount - -onFindControllerFoundText :: (GObject a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId -onFindControllerFoundText obj cb = liftIO $ connectFindControllerFoundText obj cb SignalConnectBefore -afterFindControllerFoundText :: (GObject a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId -afterFindControllerFoundText obj cb = connectFindControllerFoundText obj cb SignalConnectAfter - -connectFindControllerFoundText :: (GObject a, MonadIO m) => - a -> FindControllerFoundTextCallback -> SignalConnectMode -> m SignalHandlerId -connectFindControllerFoundText obj cb after = liftIO $ do - cb' <- mkFindControllerFoundTextCallback (findControllerFoundTextCallbackWrapper cb) - connectSignalFunPtr obj "found-text" cb' after - --- VVV Prop "max-match-count" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getFindControllerMaxMatchCount :: (MonadIO m, FindControllerK o) => o -> m Word32 -getFindControllerMaxMatchCount obj = liftIO $ getObjectPropertyUInt32 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 = "max-match-count" - attrGet _ = getFindControllerMaxMatchCount - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "options" - -- Type: TInterface "WebKit2" "FindOptions" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "options" - attrGet _ = getFindControllerOptions - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getFindControllerText :: (MonadIO m, FindControllerK o) => o -> m (Maybe T.Text) -getFindControllerText obj = liftIO $ getObjectPropertyString obj "text" - -data FindControllerTextPropertyInfo -instance AttrInfo FindControllerTextPropertyInfo where - type AttrAllowedOps FindControllerTextPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FindControllerTextPropertyInfo = (~) () - type AttrBaseTypeConstraint FindControllerTextPropertyInfo = FindControllerK - type AttrGetType FindControllerTextPropertyInfo = (Maybe T.Text) - type AttrLabel FindControllerTextPropertyInfo = "text" - attrGet _ = getFindControllerText - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "web-view" - -- Type: TInterface "WebKit2" "WebView" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getFindControllerWebView :: (MonadIO m, FindControllerK o) => o -> m WebView -getFindControllerWebView obj = liftIO $ checkUnexpectedNothing "getFindControllerWebView" $ getObjectPropertyObject obj "web-view" WebView - -constructFindControllerWebView :: (WebViewK a) => a -> IO ([Char], GValue) -constructFindControllerWebView val = constructObjectPropertyObject "web-view" (Just val) - -data FindControllerWebViewPropertyInfo -instance AttrInfo FindControllerWebViewPropertyInfo where - type AttrAllowedOps FindControllerWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FindControllerWebViewPropertyInfo = WebViewK - type AttrBaseTypeConstraint FindControllerWebViewPropertyInfo = FindControllerK - type AttrGetType FindControllerWebViewPropertyInfo = WebView - type AttrLabel FindControllerWebViewPropertyInfo = "web-view" - attrGet _ = getFindControllerWebView - attrSet _ = undefined - attrConstruct _ = constructFindControllerWebView - attrClear _ = undefined - -type instance AttributeList FindController = FindControllerAttributeList -type FindControllerAttributeList = ('[ '("maxMatchCount", FindControllerMaxMatchCountPropertyInfo), '("options", FindControllerOptionsPropertyInfo), '("text", FindControllerTextPropertyInfo), '("webView", FindControllerWebViewPropertyInfo)] :: [(Symbol, *)]) - -findControllerMaxMatchCount :: AttrLabelProxy "maxMatchCount" -findControllerMaxMatchCount = AttrLabelProxy - -findControllerOptions :: AttrLabelProxy "options" -findControllerOptions = AttrLabelProxy - -findControllerText :: AttrLabelProxy "text" -findControllerText = AttrLabelProxy - -findControllerWebView :: AttrLabelProxy "webView" -findControllerWebView = AttrLabelProxy - -data FindControllerCountedMatchesSignalInfo -instance SignalInfo FindControllerCountedMatchesSignalInfo where - type HaskellCallbackType FindControllerCountedMatchesSignalInfo = FindControllerCountedMatchesCallback - connectSignal _ = connectFindControllerCountedMatches - -data FindControllerFailedToFindTextSignalInfo -instance SignalInfo FindControllerFailedToFindTextSignalInfo where - type HaskellCallbackType FindControllerFailedToFindTextSignalInfo = FindControllerFailedToFindTextCallback - connectSignal _ = connectFindControllerFailedToFindText - -data FindControllerFoundTextSignalInfo -instance SignalInfo FindControllerFoundTextSignalInfo where - type HaskellCallbackType FindControllerFoundTextSignalInfo = FindControllerFoundTextCallback - connectSignal _ = connectFindControllerFoundText - -type instance SignalList FindController = FindControllerSignalList -type FindControllerSignalList = ('[ '("countedMatches", FindControllerCountedMatchesSignalInfo), '("failedToFindText", FindControllerFailedToFindTextSignalInfo), '("foundText", FindControllerFoundTextSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FindController::count_matches --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_match_count", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_find_controller_count_matches" webkit_find_controller_count_matches :: - Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController" - CString -> -- search_text : TBasicType TUTF8 - Word32 -> -- find_options : TBasicType TUInt32 - Word32 -> -- max_match_count : TBasicType TUInt - IO () - - -findControllerCountMatches :: - (MonadIO m, FindControllerK a) => - a -- _obj - -> T.Text -- searchText - -> Word32 -- findOptions - -> Word32 -- maxMatchCount - -> m () -- result -findControllerCountMatches _obj searchText findOptions maxMatchCount = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - searchText' <- textToCString searchText - webkit_find_controller_count_matches _obj' searchText' findOptions maxMatchCount - touchManagedPtr _obj - freeMem searchText' - return () - -data FindControllerCountMatchesMethodInfo -instance (signature ~ (T.Text -> Word32 -> Word32 -> m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerCountMatchesMethodInfo a signature where - overloadedMethod _ = findControllerCountMatches - --- method FindController::get_max_match_count --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_find_controller_get_max_match_count" webkit_find_controller_get_max_match_count :: - Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController" - IO Word32 - - -findControllerGetMaxMatchCount :: - (MonadIO m, FindControllerK a) => - a -- _obj - -> m Word32 -- result -findControllerGetMaxMatchCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_find_controller_get_max_match_count _obj' - touchManagedPtr _obj - return result - -data FindControllerGetMaxMatchCountMethodInfo -instance (signature ~ (m Word32), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetMaxMatchCountMethodInfo a signature where - overloadedMethod _ = findControllerGetMaxMatchCount - --- method FindController::get_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "webkit_find_controller_get_options" webkit_find_controller_get_options :: - Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController" - IO Word32 - - -findControllerGetOptions :: - (MonadIO m, FindControllerK a) => - a -- _obj - -> m Word32 -- result -findControllerGetOptions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_find_controller_get_options _obj' - touchManagedPtr _obj - return result - -data FindControllerGetOptionsMethodInfo -instance (signature ~ (m Word32), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetOptionsMethodInfo a signature where - overloadedMethod _ = findControllerGetOptions - --- method FindController::get_search_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_find_controller_get_search_text" webkit_find_controller_get_search_text :: - Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController" - IO CString - - -findControllerGetSearchText :: - (MonadIO m, FindControllerK a) => - a -- _obj - -> m T.Text -- result -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' - -data FindControllerGetSearchTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetSearchTextMethodInfo a signature where - overloadedMethod _ = findControllerGetSearchText - --- method FindController::get_web_view --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data FindControllerGetWebViewMethodInfo -instance (signature ~ (m WebView), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetWebViewMethodInfo a signature where - overloadedMethod _ = findControllerGetWebView - --- method FindController::search --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_match_count", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_find_controller_search" webkit_find_controller_search :: - Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController" - CString -> -- search_text : TBasicType TUTF8 - Word32 -> -- find_options : TBasicType TUInt32 - Word32 -> -- max_match_count : TBasicType TUInt - IO () - - -findControllerSearch :: - (MonadIO m, FindControllerK a) => - a -- _obj - -> T.Text -- searchText - -> Word32 -- findOptions - -> Word32 -- maxMatchCount - -> m () -- result -findControllerSearch _obj searchText findOptions maxMatchCount = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - searchText' <- textToCString searchText - webkit_find_controller_search _obj' searchText' findOptions maxMatchCount - touchManagedPtr _obj - freeMem searchText' - return () - -data FindControllerSearchMethodInfo -instance (signature ~ (T.Text -> Word32 -> Word32 -> m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchMethodInfo a signature where - overloadedMethod _ = findControllerSearch - --- method FindController::search_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_find_controller_search_finish" webkit_find_controller_search_finish :: - Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController" - IO () - - -findControllerSearchFinish :: - (MonadIO m, FindControllerK a) => - a -- _obj - -> m () -- result -findControllerSearchFinish _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_find_controller_search_finish _obj' - touchManagedPtr _obj - return () - -data FindControllerSearchFinishMethodInfo -instance (signature ~ (m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchFinishMethodInfo a signature where - overloadedMethod _ = findControllerSearchFinish - --- method FindController::search_next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_find_controller_search_next" webkit_find_controller_search_next :: - Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController" - IO () - - -findControllerSearchNext :: - (MonadIO m, FindControllerK a) => - a -- _obj - -> m () -- result -findControllerSearchNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_find_controller_search_next _obj' - touchManagedPtr _obj - return () - -data FindControllerSearchNextMethodInfo -instance (signature ~ (m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchNextMethodInfo a signature where - overloadedMethod _ = findControllerSearchNext - --- method FindController::search_previous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_find_controller_search_previous" webkit_find_controller_search_previous :: - Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController" - IO () - - -findControllerSearchPrevious :: - (MonadIO m, FindControllerK a) => - a -- _obj - -> m () -- result -findControllerSearchPrevious _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_find_controller_search_previous _obj' - touchManagedPtr _obj - return () - -data FindControllerSearchPreviousMethodInfo -instance (signature ~ (m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchPreviousMethodInfo a signature where - overloadedMethod _ = findControllerSearchPrevious - - diff --git a/GI/WebKit2/Objects/FindController.hs-boot b/GI/WebKit2/Objects/FindController.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/FindController.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -module GI.WebKit2.Objects.FindController where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FindController = FindController (ForeignPtr FindController) -instance GObject FindController where -class GObject o => FindControllerK o -instance (GObject o, IsDescendantOf FindController o) => FindControllerK o -data FindControllerMaxMatchCountPropertyInfo -data FindControllerOptionsPropertyInfo -data FindControllerTextPropertyInfo -data FindControllerWebViewPropertyInfo -data FindControllerCountedMatchesSignalInfo -data FindControllerFailedToFindTextSignalInfo -data FindControllerFoundTextSignalInfo -data FindControllerCountMatchesMethodInfo -data FindControllerGetMaxMatchCountMethodInfo -data FindControllerGetOptionsMethodInfo -data FindControllerGetSearchTextMethodInfo -data FindControllerGetWebViewMethodInfo -data FindControllerSearchMethodInfo -data FindControllerSearchFinishMethodInfo -data FindControllerSearchNextMethodInfo -data FindControllerSearchPreviousMethodInfo diff --git a/GI/WebKit2/Objects/FormSubmissionRequest.hs b/GI/WebKit2/Objects/FormSubmissionRequest.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/FormSubmissionRequest.hs +++ /dev/null @@ -1,166 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.FormSubmissionRequest - ( - --- * Exported types - FormSubmissionRequest(..) , - FormSubmissionRequestK , - toFormSubmissionRequest , - noFormSubmissionRequest , - - - -- * Methods --- ** formSubmissionRequestGetTextFields - FormSubmissionRequestGetTextFieldsMethodInfo, - formSubmissionRequestGetTextFields , - - --- ** formSubmissionRequestSubmit - FormSubmissionRequestSubmitMethodInfo , - formSubmissionRequestSubmit , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype FormSubmissionRequest = FormSubmissionRequest (ForeignPtr FormSubmissionRequest) -foreign import ccall "webkit_form_submission_request_get_type" - c_webkit_form_submission_request_get_type :: IO GType - -type instance ParentTypes FormSubmissionRequest = FormSubmissionRequestParentTypes -type FormSubmissionRequestParentTypes = '[GObject.Object] - -instance GObject FormSubmissionRequest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_form_submission_request_get_type - - -class GObject o => FormSubmissionRequestK o -instance (GObject o, IsDescendantOf FormSubmissionRequest o) => FormSubmissionRequestK o - -toFormSubmissionRequest :: FormSubmissionRequestK o => o -> IO FormSubmissionRequest -toFormSubmissionRequest = unsafeCastTo FormSubmissionRequest - -noFormSubmissionRequest :: Maybe FormSubmissionRequest -noFormSubmissionRequest = Nothing - -type family ResolveFormSubmissionRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveFormSubmissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFormSubmissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFormSubmissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFormSubmissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFormSubmissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFormSubmissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFormSubmissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFormSubmissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFormSubmissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFormSubmissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFormSubmissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFormSubmissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFormSubmissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFormSubmissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFormSubmissionRequestMethod "submit" o = FormSubmissionRequestSubmitMethodInfo - ResolveFormSubmissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFormSubmissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFormSubmissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFormSubmissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFormSubmissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFormSubmissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFormSubmissionRequestMethod "getTextFields" o = FormSubmissionRequestGetTextFieldsMethodInfo - ResolveFormSubmissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFormSubmissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFormSubmissionRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFormSubmissionRequestMethod t FormSubmissionRequest, MethodInfo info FormSubmissionRequest p) => IsLabelProxy t (FormSubmissionRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFormSubmissionRequestMethod t FormSubmissionRequest, MethodInfo info FormSubmissionRequest p) => IsLabel t (FormSubmissionRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FormSubmissionRequest = FormSubmissionRequestAttributeList -type FormSubmissionRequestAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList FormSubmissionRequest = FormSubmissionRequestSignalList -type FormSubmissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FormSubmissionRequest::get_text_fields --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FormSubmissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGHash (TBasicType TPtr) (TBasicType TPtr)) --- throws : False --- Skip return : False - -foreign import ccall "webkit_form_submission_request_get_text_fields" webkit_form_submission_request_get_text_fields :: - Ptr FormSubmissionRequest -> -- _obj : TInterface "WebKit2" "FormSubmissionRequest" - IO (Ptr (GHashTable (Ptr ()) (Ptr ()))) - - -formSubmissionRequestGetTextFields :: - (MonadIO m, FormSubmissionRequestK a) => - a -- _obj - -> m (Map.Map (Ptr ()) (Ptr ())) -- result -formSubmissionRequestGetTextFields _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_form_submission_request_get_text_fields _obj' - 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'''' - -data FormSubmissionRequestGetTextFieldsMethodInfo -instance (signature ~ (m (Map.Map (Ptr ()) (Ptr ()))), MonadIO m, FormSubmissionRequestK a) => MethodInfo FormSubmissionRequestGetTextFieldsMethodInfo a signature where - overloadedMethod _ = formSubmissionRequestGetTextFields - --- method FormSubmissionRequest::submit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FormSubmissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_form_submission_request_submit" webkit_form_submission_request_submit :: - Ptr FormSubmissionRequest -> -- _obj : TInterface "WebKit2" "FormSubmissionRequest" - IO () - - -formSubmissionRequestSubmit :: - (MonadIO m, FormSubmissionRequestK a) => - a -- _obj - -> m () -- result -formSubmissionRequestSubmit _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_form_submission_request_submit _obj' - touchManagedPtr _obj - return () - -data FormSubmissionRequestSubmitMethodInfo -instance (signature ~ (m ()), MonadIO m, FormSubmissionRequestK a) => MethodInfo FormSubmissionRequestSubmitMethodInfo a signature where - overloadedMethod _ = formSubmissionRequestSubmit - - diff --git a/GI/WebKit2/Objects/FormSubmissionRequest.hs-boot b/GI/WebKit2/Objects/FormSubmissionRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/FormSubmissionRequest.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.WebKit2.Objects.FormSubmissionRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FormSubmissionRequest = FormSubmissionRequest (ForeignPtr FormSubmissionRequest) -instance GObject FormSubmissionRequest where -class GObject o => FormSubmissionRequestK o -instance (GObject o, IsDescendantOf FormSubmissionRequest o) => FormSubmissionRequestK o -data FormSubmissionRequestGetTextFieldsMethodInfo -data FormSubmissionRequestSubmitMethodInfo diff --git a/GI/WebKit2/Objects/GeolocationPermissionRequest.hs b/GI/WebKit2/Objects/GeolocationPermissionRequest.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/GeolocationPermissionRequest.hs +++ /dev/null @@ -1,94 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.GeolocationPermissionRequest - ( - --- * Exported types - GeolocationPermissionRequest(..) , - GeolocationPermissionRequestK , - toGeolocationPermissionRequest , - noGeolocationPermissionRequest , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype GeolocationPermissionRequest = GeolocationPermissionRequest (ForeignPtr GeolocationPermissionRequest) -foreign import ccall "webkit_geolocation_permission_request_get_type" - c_webkit_geolocation_permission_request_get_type :: IO GType - -type instance ParentTypes GeolocationPermissionRequest = GeolocationPermissionRequestParentTypes -type GeolocationPermissionRequestParentTypes = '[GObject.Object, PermissionRequest] - -instance GObject GeolocationPermissionRequest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_geolocation_permission_request_get_type - - -class GObject o => GeolocationPermissionRequestK o -instance (GObject o, IsDescendantOf GeolocationPermissionRequest o) => GeolocationPermissionRequestK o - -toGeolocationPermissionRequest :: GeolocationPermissionRequestK o => o -> IO GeolocationPermissionRequest -toGeolocationPermissionRequest = unsafeCastTo GeolocationPermissionRequest - -noGeolocationPermissionRequest :: Maybe GeolocationPermissionRequest -noGeolocationPermissionRequest = Nothing - -type family ResolveGeolocationPermissionRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveGeolocationPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo - ResolveGeolocationPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGeolocationPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGeolocationPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo - ResolveGeolocationPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGeolocationPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGeolocationPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGeolocationPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGeolocationPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGeolocationPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGeolocationPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGeolocationPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGeolocationPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGeolocationPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGeolocationPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGeolocationPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGeolocationPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGeolocationPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGeolocationPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGeolocationPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGeolocationPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGeolocationPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGeolocationPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGeolocationPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGeolocationPermissionRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGeolocationPermissionRequestMethod t GeolocationPermissionRequest, MethodInfo info GeolocationPermissionRequest p) => IsLabelProxy t (GeolocationPermissionRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGeolocationPermissionRequestMethod t GeolocationPermissionRequest, MethodInfo info GeolocationPermissionRequest p) => IsLabel t (GeolocationPermissionRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList GeolocationPermissionRequest = GeolocationPermissionRequestAttributeList -type GeolocationPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList GeolocationPermissionRequest = GeolocationPermissionRequestSignalList -type GeolocationPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/WebKit2/Objects/GeolocationPermissionRequest.hs-boot b/GI/WebKit2/Objects/GeolocationPermissionRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/GeolocationPermissionRequest.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.WebKit2.Objects.GeolocationPermissionRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype GeolocationPermissionRequest = GeolocationPermissionRequest (ForeignPtr GeolocationPermissionRequest) -instance GObject GeolocationPermissionRequest where -class GObject o => GeolocationPermissionRequestK o -instance (GObject o, IsDescendantOf GeolocationPermissionRequest o) => GeolocationPermissionRequestK o diff --git a/GI/WebKit2/Objects/HitTestResult.hs b/GI/WebKit2/Objects/HitTestResult.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/HitTestResult.hs +++ /dev/null @@ -1,708 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.HitTestResult - ( - --- * Exported types - HitTestResult(..) , - HitTestResultK , - toHitTestResult , - noHitTestResult , - - - -- * Methods --- ** hitTestResultContextIsEditable - HitTestResultContextIsEditableMethodInfo, - hitTestResultContextIsEditable , - - --- ** hitTestResultContextIsImage - HitTestResultContextIsImageMethodInfo , - hitTestResultContextIsImage , - - --- ** hitTestResultContextIsLink - HitTestResultContextIsLinkMethodInfo , - hitTestResultContextIsLink , - - --- ** hitTestResultContextIsMedia - HitTestResultContextIsMediaMethodInfo , - hitTestResultContextIsMedia , - - --- ** hitTestResultContextIsScrollbar - HitTestResultContextIsScrollbarMethodInfo, - hitTestResultContextIsScrollbar , - - --- ** hitTestResultContextIsSelection - HitTestResultContextIsSelectionMethodInfo, - hitTestResultContextIsSelection , - - --- ** hitTestResultGetContext - HitTestResultGetContextMethodInfo , - hitTestResultGetContext , - - --- ** hitTestResultGetImageUri - HitTestResultGetImageUriMethodInfo , - hitTestResultGetImageUri , - - --- ** hitTestResultGetLinkLabel - HitTestResultGetLinkLabelMethodInfo , - hitTestResultGetLinkLabel , - - --- ** hitTestResultGetLinkTitle - HitTestResultGetLinkTitleMethodInfo , - hitTestResultGetLinkTitle , - - --- ** hitTestResultGetLinkUri - HitTestResultGetLinkUriMethodInfo , - hitTestResultGetLinkUri , - - --- ** hitTestResultGetMediaUri - HitTestResultGetMediaUriMethodInfo , - hitTestResultGetMediaUri , - - - - - -- * Properties --- ** Context - HitTestResultContextPropertyInfo , - constructHitTestResultContext , - getHitTestResultContext , - hitTestResultContext , - - --- ** ImageUri - HitTestResultImageUriPropertyInfo , - constructHitTestResultImageUri , - getHitTestResultImageUri , - hitTestResultImageUri , - - --- ** LinkLabel - HitTestResultLinkLabelPropertyInfo , - constructHitTestResultLinkLabel , - getHitTestResultLinkLabel , - hitTestResultLinkLabel , - - --- ** LinkTitle - HitTestResultLinkTitlePropertyInfo , - constructHitTestResultLinkTitle , - getHitTestResultLinkTitle , - hitTestResultLinkTitle , - - --- ** LinkUri - HitTestResultLinkUriPropertyInfo , - constructHitTestResultLinkUri , - getHitTestResultLinkUri , - hitTestResultLinkUri , - - --- ** MediaUri - HitTestResultMediaUriPropertyInfo , - constructHitTestResultMediaUri , - getHitTestResultMediaUri , - hitTestResultMediaUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype HitTestResult = HitTestResult (ForeignPtr HitTestResult) -foreign import ccall "webkit_hit_test_result_get_type" - c_webkit_hit_test_result_get_type :: IO GType - -type instance ParentTypes HitTestResult = HitTestResultParentTypes -type HitTestResultParentTypes = '[GObject.Object] - -instance GObject HitTestResult where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_hit_test_result_get_type - - -class GObject o => HitTestResultK o -instance (GObject o, IsDescendantOf HitTestResult o) => HitTestResultK o - -toHitTestResult :: HitTestResultK o => o -> IO HitTestResult -toHitTestResult = unsafeCastTo HitTestResult - -noHitTestResult :: Maybe HitTestResult -noHitTestResult = Nothing - -type family ResolveHitTestResultMethod (t :: Symbol) (o :: *) :: * where - ResolveHitTestResultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveHitTestResultMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveHitTestResultMethod "contextIsEditable" o = HitTestResultContextIsEditableMethodInfo - ResolveHitTestResultMethod "contextIsImage" o = HitTestResultContextIsImageMethodInfo - ResolveHitTestResultMethod "contextIsLink" o = HitTestResultContextIsLinkMethodInfo - ResolveHitTestResultMethod "contextIsMedia" o = HitTestResultContextIsMediaMethodInfo - ResolveHitTestResultMethod "contextIsScrollbar" o = HitTestResultContextIsScrollbarMethodInfo - ResolveHitTestResultMethod "contextIsSelection" o = HitTestResultContextIsSelectionMethodInfo - ResolveHitTestResultMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveHitTestResultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveHitTestResultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveHitTestResultMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveHitTestResultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveHitTestResultMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveHitTestResultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveHitTestResultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveHitTestResultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveHitTestResultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveHitTestResultMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveHitTestResultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveHitTestResultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveHitTestResultMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveHitTestResultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveHitTestResultMethod "getContext" o = HitTestResultGetContextMethodInfo - ResolveHitTestResultMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveHitTestResultMethod "getImageUri" o = HitTestResultGetImageUriMethodInfo - ResolveHitTestResultMethod "getLinkLabel" o = HitTestResultGetLinkLabelMethodInfo - ResolveHitTestResultMethod "getLinkTitle" o = HitTestResultGetLinkTitleMethodInfo - ResolveHitTestResultMethod "getLinkUri" o = HitTestResultGetLinkUriMethodInfo - ResolveHitTestResultMethod "getMediaUri" o = HitTestResultGetMediaUriMethodInfo - ResolveHitTestResultMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveHitTestResultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveHitTestResultMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveHitTestResultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveHitTestResultMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHitTestResultMethod t HitTestResult, MethodInfo info HitTestResult p) => IsLabelProxy t (HitTestResult -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHitTestResultMethod t HitTestResult, MethodInfo info HitTestResult p) => IsLabel t (HitTestResult -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "context" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultContext :: (MonadIO m, HitTestResultK o) => o -> m Word32 -getHitTestResultContext obj = liftIO $ getObjectPropertyUInt32 obj "context" - -constructHitTestResultContext :: Word32 -> IO ([Char], GValue) -constructHitTestResultContext val = constructObjectPropertyUInt32 "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 = "context" - attrGet _ = getHitTestResultContext - attrSet _ = undefined - attrConstruct _ = constructHitTestResultContext - attrClear _ = undefined - --- VVV Prop "image-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultImageUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultImageUri" $ getObjectPropertyString obj "image-uri" - -constructHitTestResultImageUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultImageUri val = constructObjectPropertyString "image-uri" (Just val) - -data HitTestResultImageUriPropertyInfo -instance AttrInfo HitTestResultImageUriPropertyInfo where - type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultImageUriPropertyInfo = T.Text - type AttrLabel HitTestResultImageUriPropertyInfo = "image-uri" - attrGet _ = getHitTestResultImageUri - attrSet _ = undefined - attrConstruct _ = constructHitTestResultImageUri - attrClear _ = undefined - --- VVV Prop "link-label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultLinkLabel :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultLinkLabel obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkLabel" $ getObjectPropertyString obj "link-label" - -constructHitTestResultLinkLabel :: T.Text -> IO ([Char], GValue) -constructHitTestResultLinkLabel val = constructObjectPropertyString "link-label" (Just val) - -data HitTestResultLinkLabelPropertyInfo -instance AttrInfo HitTestResultLinkLabelPropertyInfo where - type AttrAllowedOps HitTestResultLinkLabelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HitTestResultLinkLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultLinkLabelPropertyInfo = HitTestResultK - type AttrGetType HitTestResultLinkLabelPropertyInfo = T.Text - type AttrLabel HitTestResultLinkLabelPropertyInfo = "link-label" - attrGet _ = getHitTestResultLinkLabel - attrSet _ = undefined - attrConstruct _ = constructHitTestResultLinkLabel - attrClear _ = undefined - --- VVV Prop "link-title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultLinkTitle :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultLinkTitle obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkTitle" $ getObjectPropertyString obj "link-title" - -constructHitTestResultLinkTitle :: T.Text -> IO ([Char], GValue) -constructHitTestResultLinkTitle val = constructObjectPropertyString "link-title" (Just val) - -data HitTestResultLinkTitlePropertyInfo -instance AttrInfo HitTestResultLinkTitlePropertyInfo where - type AttrAllowedOps HitTestResultLinkTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HitTestResultLinkTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultLinkTitlePropertyInfo = HitTestResultK - type AttrGetType HitTestResultLinkTitlePropertyInfo = T.Text - type AttrLabel HitTestResultLinkTitlePropertyInfo = "link-title" - attrGet _ = getHitTestResultLinkTitle - attrSet _ = undefined - attrConstruct _ = constructHitTestResultLinkTitle - attrClear _ = undefined - --- VVV Prop "link-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultLinkUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkUri" $ getObjectPropertyString obj "link-uri" - -constructHitTestResultLinkUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultLinkUri val = constructObjectPropertyString "link-uri" (Just val) - -data HitTestResultLinkUriPropertyInfo -instance AttrInfo HitTestResultLinkUriPropertyInfo where - type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultLinkUriPropertyInfo = T.Text - type AttrLabel HitTestResultLinkUriPropertyInfo = "link-uri" - attrGet _ = getHitTestResultLinkUri - attrSet _ = undefined - attrConstruct _ = constructHitTestResultLinkUri - attrClear _ = undefined - --- VVV Prop "media-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultMediaUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultMediaUri" $ getObjectPropertyString obj "media-uri" - -constructHitTestResultMediaUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultMediaUri val = constructObjectPropertyString "media-uri" (Just val) - -data HitTestResultMediaUriPropertyInfo -instance AttrInfo HitTestResultMediaUriPropertyInfo where - type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultMediaUriPropertyInfo = T.Text - type AttrLabel HitTestResultMediaUriPropertyInfo = "media-uri" - attrGet _ = getHitTestResultMediaUri - attrSet _ = undefined - attrConstruct _ = constructHitTestResultMediaUri - attrClear _ = undefined - -type instance AttributeList HitTestResult = HitTestResultAttributeList -type HitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("imageUri", HitTestResultImageUriPropertyInfo), '("linkLabel", HitTestResultLinkLabelPropertyInfo), '("linkTitle", HitTestResultLinkTitlePropertyInfo), '("linkUri", HitTestResultLinkUriPropertyInfo), '("mediaUri", HitTestResultMediaUriPropertyInfo)] :: [(Symbol, *)]) - -hitTestResultContext :: AttrLabelProxy "context" -hitTestResultContext = AttrLabelProxy - -hitTestResultImageUri :: AttrLabelProxy "imageUri" -hitTestResultImageUri = AttrLabelProxy - -hitTestResultLinkLabel :: AttrLabelProxy "linkLabel" -hitTestResultLinkLabel = AttrLabelProxy - -hitTestResultLinkTitle :: AttrLabelProxy "linkTitle" -hitTestResultLinkTitle = AttrLabelProxy - -hitTestResultLinkUri :: AttrLabelProxy "linkUri" -hitTestResultLinkUri = AttrLabelProxy - -hitTestResultMediaUri :: AttrLabelProxy "mediaUri" -hitTestResultMediaUri = AttrLabelProxy - -type instance SignalList HitTestResult = HitTestResultSignalList -type HitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method HitTestResult::context_is_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_context_is_editable" webkit_hit_test_result_context_is_editable :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO CInt - - -hitTestResultContextIsEditable :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m Bool -- result -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' - -data HitTestResultContextIsEditableMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsEditableMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsEditable - --- method HitTestResult::context_is_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_context_is_image" webkit_hit_test_result_context_is_image :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO CInt - - -hitTestResultContextIsImage :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m Bool -- result -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' - -data HitTestResultContextIsImageMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsImageMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsImage - --- method HitTestResult::context_is_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_context_is_link" webkit_hit_test_result_context_is_link :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO CInt - - -hitTestResultContextIsLink :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m Bool -- result -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' - -data HitTestResultContextIsLinkMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsLinkMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsLink - --- method HitTestResult::context_is_media --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_context_is_media" webkit_hit_test_result_context_is_media :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO CInt - - -hitTestResultContextIsMedia :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m Bool -- result -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' - -data HitTestResultContextIsMediaMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsMediaMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsMedia - --- method HitTestResult::context_is_scrollbar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_context_is_scrollbar" webkit_hit_test_result_context_is_scrollbar :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO CInt - - -hitTestResultContextIsScrollbar :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m Bool -- result -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' - -data HitTestResultContextIsScrollbarMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsScrollbarMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsScrollbar - --- method HitTestResult::context_is_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_context_is_selection" webkit_hit_test_result_context_is_selection :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO CInt - - -hitTestResultContextIsSelection :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m Bool -- result -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' - -data HitTestResultContextIsSelectionMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsSelectionMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsSelection - --- method HitTestResult::get_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_get_context" webkit_hit_test_result_get_context :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO Word32 - - -hitTestResultGetContext :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m Word32 -- result -hitTestResultGetContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_hit_test_result_get_context _obj' - touchManagedPtr _obj - return result - -data HitTestResultGetContextMethodInfo -instance (signature ~ (m Word32), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetContextMethodInfo a signature where - overloadedMethod _ = hitTestResultGetContext - --- method HitTestResult::get_image_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_get_image_uri" webkit_hit_test_result_get_image_uri :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO CString - - -hitTestResultGetImageUri :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m T.Text -- result -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' - -data HitTestResultGetImageUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetImageUriMethodInfo a signature where - overloadedMethod _ = hitTestResultGetImageUri - --- method HitTestResult::get_link_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_get_link_label" webkit_hit_test_result_get_link_label :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO CString - - -hitTestResultGetLinkLabel :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m T.Text -- result -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' - -data HitTestResultGetLinkLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkLabelMethodInfo a signature where - overloadedMethod _ = hitTestResultGetLinkLabel - --- method HitTestResult::get_link_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_get_link_title" webkit_hit_test_result_get_link_title :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO CString - - -hitTestResultGetLinkTitle :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m T.Text -- result -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' - -data HitTestResultGetLinkTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkTitleMethodInfo a signature where - overloadedMethod _ = hitTestResultGetLinkTitle - --- method HitTestResult::get_link_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_get_link_uri" webkit_hit_test_result_get_link_uri :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO CString - - -hitTestResultGetLinkUri :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m T.Text -- result -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' - -data HitTestResultGetLinkUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkUriMethodInfo a signature where - overloadedMethod _ = hitTestResultGetLinkUri - --- method HitTestResult::get_media_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_hit_test_result_get_media_uri" webkit_hit_test_result_get_media_uri :: - Ptr HitTestResult -> -- _obj : TInterface "WebKit2" "HitTestResult" - IO CString - - -hitTestResultGetMediaUri :: - (MonadIO m, HitTestResultK a) => - a -- _obj - -> m T.Text -- result -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' - -data HitTestResultGetMediaUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetMediaUriMethodInfo a signature where - overloadedMethod _ = hitTestResultGetMediaUri - - diff --git a/GI/WebKit2/Objects/HitTestResult.hs-boot b/GI/WebKit2/Objects/HitTestResult.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/HitTestResult.hs-boot +++ /dev/null @@ -1,31 +0,0 @@ -module GI.WebKit2.Objects.HitTestResult where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype HitTestResult = HitTestResult (ForeignPtr HitTestResult) -instance GObject HitTestResult where -class GObject o => HitTestResultK o -instance (GObject o, IsDescendantOf HitTestResult o) => HitTestResultK o -data HitTestResultContextPropertyInfo -data HitTestResultImageUriPropertyInfo -data HitTestResultLinkLabelPropertyInfo -data HitTestResultLinkTitlePropertyInfo -data HitTestResultLinkUriPropertyInfo -data HitTestResultMediaUriPropertyInfo -data HitTestResultContextIsEditableMethodInfo -data HitTestResultContextIsImageMethodInfo -data HitTestResultContextIsLinkMethodInfo -data HitTestResultContextIsMediaMethodInfo -data HitTestResultContextIsScrollbarMethodInfo -data HitTestResultContextIsSelectionMethodInfo -data HitTestResultGetContextMethodInfo -data HitTestResultGetImageUriMethodInfo -data HitTestResultGetLinkLabelMethodInfo -data HitTestResultGetLinkTitleMethodInfo -data HitTestResultGetLinkUriMethodInfo -data HitTestResultGetMediaUriMethodInfo diff --git a/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs b/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs +++ /dev/null @@ -1,132 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest - ( - --- * Exported types - InstallMissingMediaPluginsPermissionRequest(..), - InstallMissingMediaPluginsPermissionRequestK, - toInstallMissingMediaPluginsPermissionRequest, - noInstallMissingMediaPluginsPermissionRequest, - - - -- * Methods --- ** installMissingMediaPluginsPermissionRequestGetDescription - InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo, - installMissingMediaPluginsPermissionRequestGetDescription, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequest (ForeignPtr InstallMissingMediaPluginsPermissionRequest) -foreign import ccall "webkit_install_missing_media_plugins_permission_request_get_type" - c_webkit_install_missing_media_plugins_permission_request_get_type :: IO GType - -type instance ParentTypes InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequestParentTypes -type InstallMissingMediaPluginsPermissionRequestParentTypes = '[GObject.Object, PermissionRequest] - -instance GObject InstallMissingMediaPluginsPermissionRequest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_install_missing_media_plugins_permission_request_get_type - - -class GObject o => InstallMissingMediaPluginsPermissionRequestK o -instance (GObject o, IsDescendantOf InstallMissingMediaPluginsPermissionRequest o) => InstallMissingMediaPluginsPermissionRequestK o - -toInstallMissingMediaPluginsPermissionRequest :: InstallMissingMediaPluginsPermissionRequestK o => o -> IO InstallMissingMediaPluginsPermissionRequest -toInstallMissingMediaPluginsPermissionRequest = unsafeCastTo InstallMissingMediaPluginsPermissionRequest - -noInstallMissingMediaPluginsPermissionRequest :: Maybe InstallMissingMediaPluginsPermissionRequest -noInstallMissingMediaPluginsPermissionRequest = Nothing - -type family ResolveInstallMissingMediaPluginsPermissionRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveInstallMissingMediaPluginsPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "getDescription" o = InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveInstallMissingMediaPluginsPermissionRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveInstallMissingMediaPluginsPermissionRequestMethod t InstallMissingMediaPluginsPermissionRequest, MethodInfo info InstallMissingMediaPluginsPermissionRequest p) => IsLabelProxy t (InstallMissingMediaPluginsPermissionRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveInstallMissingMediaPluginsPermissionRequestMethod t InstallMissingMediaPluginsPermissionRequest, MethodInfo info InstallMissingMediaPluginsPermissionRequest p) => IsLabel t (InstallMissingMediaPluginsPermissionRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequestAttributeList -type InstallMissingMediaPluginsPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequestSignalList -type InstallMissingMediaPluginsPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method InstallMissingMediaPluginsPermissionRequest::get_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "InstallMissingMediaPluginsPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_install_missing_media_plugins_permission_request_get_description" webkit_install_missing_media_plugins_permission_request_get_description :: - Ptr InstallMissingMediaPluginsPermissionRequest -> -- _obj : TInterface "WebKit2" "InstallMissingMediaPluginsPermissionRequest" - IO CString - - -installMissingMediaPluginsPermissionRequestGetDescription :: - (MonadIO m, InstallMissingMediaPluginsPermissionRequestK a) => - a -- _obj - -> m T.Text -- result -installMissingMediaPluginsPermissionRequestGetDescription _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_install_missing_media_plugins_permission_request_get_description _obj' - checkUnexpectedReturnNULL "webkit_install_missing_media_plugins_permission_request_get_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo -instance (signature ~ (m T.Text), MonadIO m, InstallMissingMediaPluginsPermissionRequestK a) => MethodInfo InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo a signature where - overloadedMethod _ = installMissingMediaPluginsPermissionRequestGetDescription - - diff --git a/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs-boot b/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequest (ForeignPtr InstallMissingMediaPluginsPermissionRequest) -instance GObject InstallMissingMediaPluginsPermissionRequest where -class GObject o => InstallMissingMediaPluginsPermissionRequestK o -instance (GObject o, IsDescendantOf InstallMissingMediaPluginsPermissionRequest o) => InstallMissingMediaPluginsPermissionRequestK o -data InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo diff --git a/GI/WebKit2/Objects/NavigationPolicyDecision.hs b/GI/WebKit2/Objects/NavigationPolicyDecision.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/NavigationPolicyDecision.hs +++ /dev/null @@ -1,480 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.NavigationPolicyDecision - ( - --- * Exported types - NavigationPolicyDecision(..) , - NavigationPolicyDecisionK , - toNavigationPolicyDecision , - noNavigationPolicyDecision , - - - -- * Methods --- ** navigationPolicyDecisionGetFrameName - NavigationPolicyDecisionGetFrameNameMethodInfo, - navigationPolicyDecisionGetFrameName , - - --- ** navigationPolicyDecisionGetModifiers - NavigationPolicyDecisionGetModifiersMethodInfo, - navigationPolicyDecisionGetModifiers , - - --- ** navigationPolicyDecisionGetMouseButton - NavigationPolicyDecisionGetMouseButtonMethodInfo, - navigationPolicyDecisionGetMouseButton , - - --- ** navigationPolicyDecisionGetNavigationAction - NavigationPolicyDecisionGetNavigationActionMethodInfo, - navigationPolicyDecisionGetNavigationAction, - - --- ** navigationPolicyDecisionGetNavigationType - NavigationPolicyDecisionGetNavigationTypeMethodInfo, - navigationPolicyDecisionGetNavigationType, - - --- ** navigationPolicyDecisionGetRequest - NavigationPolicyDecisionGetRequestMethodInfo, - navigationPolicyDecisionGetRequest , - - - - - -- * Properties --- ** FrameName - NavigationPolicyDecisionFrameNamePropertyInfo, - getNavigationPolicyDecisionFrameName , - navigationPolicyDecisionFrameName , - - --- ** Modifiers - NavigationPolicyDecisionModifiersPropertyInfo, - getNavigationPolicyDecisionModifiers , - navigationPolicyDecisionModifiers , - - --- ** MouseButton - NavigationPolicyDecisionMouseButtonPropertyInfo, - getNavigationPolicyDecisionMouseButton , - navigationPolicyDecisionMouseButton , - - --- ** NavigationAction - NavigationPolicyDecisionNavigationActionPropertyInfo, - getNavigationPolicyDecisionNavigationAction, - navigationPolicyDecisionNavigationAction, - - --- ** NavigationType - NavigationPolicyDecisionNavigationTypePropertyInfo, - getNavigationPolicyDecisionNavigationType, - navigationPolicyDecisionNavigationType , - - --- ** Request - NavigationPolicyDecisionRequestPropertyInfo, - getNavigationPolicyDecisionRequest , - navigationPolicyDecisionRequest , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype NavigationPolicyDecision = NavigationPolicyDecision (ForeignPtr NavigationPolicyDecision) -foreign import ccall "webkit_navigation_policy_decision_get_type" - c_webkit_navigation_policy_decision_get_type :: IO GType - -type instance ParentTypes NavigationPolicyDecision = NavigationPolicyDecisionParentTypes -type NavigationPolicyDecisionParentTypes = '[PolicyDecision, GObject.Object] - -instance GObject NavigationPolicyDecision where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_navigation_policy_decision_get_type - - -class GObject o => NavigationPolicyDecisionK o -instance (GObject o, IsDescendantOf NavigationPolicyDecision o) => NavigationPolicyDecisionK o - -toNavigationPolicyDecision :: NavigationPolicyDecisionK o => o -> IO NavigationPolicyDecision -toNavigationPolicyDecision = unsafeCastTo NavigationPolicyDecision - -noNavigationPolicyDecision :: Maybe NavigationPolicyDecision -noNavigationPolicyDecision = Nothing - -type family ResolveNavigationPolicyDecisionMethod (t :: Symbol) (o :: *) :: * where - ResolveNavigationPolicyDecisionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNavigationPolicyDecisionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNavigationPolicyDecisionMethod "download" o = PolicyDecisionDownloadMethodInfo - ResolveNavigationPolicyDecisionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNavigationPolicyDecisionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNavigationPolicyDecisionMethod "ignore" o = PolicyDecisionIgnoreMethodInfo - ResolveNavigationPolicyDecisionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNavigationPolicyDecisionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNavigationPolicyDecisionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNavigationPolicyDecisionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNavigationPolicyDecisionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNavigationPolicyDecisionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNavigationPolicyDecisionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNavigationPolicyDecisionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNavigationPolicyDecisionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNavigationPolicyDecisionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNavigationPolicyDecisionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNavigationPolicyDecisionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNavigationPolicyDecisionMethod "use" o = PolicyDecisionUseMethodInfo - ResolveNavigationPolicyDecisionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNavigationPolicyDecisionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNavigationPolicyDecisionMethod "getFrameName" o = NavigationPolicyDecisionGetFrameNameMethodInfo - ResolveNavigationPolicyDecisionMethod "getModifiers" o = NavigationPolicyDecisionGetModifiersMethodInfo - ResolveNavigationPolicyDecisionMethod "getMouseButton" o = NavigationPolicyDecisionGetMouseButtonMethodInfo - ResolveNavigationPolicyDecisionMethod "getNavigationAction" o = NavigationPolicyDecisionGetNavigationActionMethodInfo - ResolveNavigationPolicyDecisionMethod "getNavigationType" o = NavigationPolicyDecisionGetNavigationTypeMethodInfo - ResolveNavigationPolicyDecisionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNavigationPolicyDecisionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNavigationPolicyDecisionMethod "getRequest" o = NavigationPolicyDecisionGetRequestMethodInfo - ResolveNavigationPolicyDecisionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNavigationPolicyDecisionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNavigationPolicyDecisionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNavigationPolicyDecisionMethod t NavigationPolicyDecision, MethodInfo info NavigationPolicyDecision p) => IsLabelProxy t (NavigationPolicyDecision -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNavigationPolicyDecisionMethod t NavigationPolicyDecision, MethodInfo info NavigationPolicyDecision p) => IsLabel t (NavigationPolicyDecision -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "frame-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getNavigationPolicyDecisionFrameName :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m T.Text -getNavigationPolicyDecisionFrameName obj = liftIO $ checkUnexpectedNothing "getNavigationPolicyDecisionFrameName" $ getObjectPropertyString obj "frame-name" - -data NavigationPolicyDecisionFrameNamePropertyInfo -instance AttrInfo NavigationPolicyDecisionFrameNamePropertyInfo where - type AttrAllowedOps NavigationPolicyDecisionFrameNamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = (~) () - type AttrBaseTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = NavigationPolicyDecisionK - type AttrGetType NavigationPolicyDecisionFrameNamePropertyInfo = T.Text - type AttrLabel NavigationPolicyDecisionFrameNamePropertyInfo = "frame-name" - attrGet _ = getNavigationPolicyDecisionFrameName - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "modifiers" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getNavigationPolicyDecisionModifiers :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m Word32 -getNavigationPolicyDecisionModifiers obj = liftIO $ getObjectPropertyUInt32 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 = "modifiers" - attrGet _ = getNavigationPolicyDecisionModifiers - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "mouse-button" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getNavigationPolicyDecisionMouseButton :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m Word32 -getNavigationPolicyDecisionMouseButton obj = liftIO $ getObjectPropertyUInt32 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 = "mouse-button" - attrGet _ = getNavigationPolicyDecisionMouseButton - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "navigation-action" - -- Type: TInterface "WebKit2" "NavigationAction" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getNavigationPolicyDecisionNavigationAction :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m NavigationAction -getNavigationPolicyDecisionNavigationAction obj = liftIO $ checkUnexpectedNothing "getNavigationPolicyDecisionNavigationAction" $ getObjectPropertyBoxed obj "navigation-action" NavigationAction - -data NavigationPolicyDecisionNavigationActionPropertyInfo -instance AttrInfo NavigationPolicyDecisionNavigationActionPropertyInfo where - type AttrAllowedOps NavigationPolicyDecisionNavigationActionPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = (~) () - type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationPolicyDecisionK - type AttrGetType NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationAction - type AttrLabel NavigationPolicyDecisionNavigationActionPropertyInfo = "navigation-action" - attrGet _ = getNavigationPolicyDecisionNavigationAction - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "navigation-type" - -- Type: TInterface "WebKit2" "NavigationType" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "navigation-type" - attrGet _ = getNavigationPolicyDecisionNavigationType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "request" - -- Type: TInterface "WebKit2" "URIRequest" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getNavigationPolicyDecisionRequest :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m URIRequest -getNavigationPolicyDecisionRequest obj = liftIO $ checkUnexpectedNothing "getNavigationPolicyDecisionRequest" $ getObjectPropertyObject obj "request" URIRequest - -data NavigationPolicyDecisionRequestPropertyInfo -instance AttrInfo NavigationPolicyDecisionRequestPropertyInfo where - type AttrAllowedOps NavigationPolicyDecisionRequestPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = (~) () - type AttrBaseTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = NavigationPolicyDecisionK - type AttrGetType NavigationPolicyDecisionRequestPropertyInfo = URIRequest - type AttrLabel NavigationPolicyDecisionRequestPropertyInfo = "request" - attrGet _ = getNavigationPolicyDecisionRequest - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList NavigationPolicyDecision = NavigationPolicyDecisionAttributeList -type NavigationPolicyDecisionAttributeList = ('[ '("frameName", NavigationPolicyDecisionFrameNamePropertyInfo), '("modifiers", NavigationPolicyDecisionModifiersPropertyInfo), '("mouseButton", NavigationPolicyDecisionMouseButtonPropertyInfo), '("navigationAction", NavigationPolicyDecisionNavigationActionPropertyInfo), '("navigationType", NavigationPolicyDecisionNavigationTypePropertyInfo), '("request", NavigationPolicyDecisionRequestPropertyInfo)] :: [(Symbol, *)]) - -navigationPolicyDecisionFrameName :: AttrLabelProxy "frameName" -navigationPolicyDecisionFrameName = AttrLabelProxy - -navigationPolicyDecisionModifiers :: AttrLabelProxy "modifiers" -navigationPolicyDecisionModifiers = AttrLabelProxy - -navigationPolicyDecisionMouseButton :: AttrLabelProxy "mouseButton" -navigationPolicyDecisionMouseButton = AttrLabelProxy - -navigationPolicyDecisionNavigationAction :: AttrLabelProxy "navigationAction" -navigationPolicyDecisionNavigationAction = AttrLabelProxy - -navigationPolicyDecisionNavigationType :: AttrLabelProxy "navigationType" -navigationPolicyDecisionNavigationType = AttrLabelProxy - -navigationPolicyDecisionRequest :: AttrLabelProxy "request" -navigationPolicyDecisionRequest = AttrLabelProxy - -type instance SignalList NavigationPolicyDecision = NavigationPolicyDecisionSignalList -type NavigationPolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method NavigationPolicyDecision::get_frame_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_navigation_policy_decision_get_frame_name" webkit_navigation_policy_decision_get_frame_name :: - Ptr NavigationPolicyDecision -> -- _obj : TInterface "WebKit2" "NavigationPolicyDecision" - IO CString - - -navigationPolicyDecisionGetFrameName :: - (MonadIO m, NavigationPolicyDecisionK a) => - a -- _obj - -> m T.Text -- result -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' - -data NavigationPolicyDecisionGetFrameNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetFrameNameMethodInfo a signature where - overloadedMethod _ = navigationPolicyDecisionGetFrameName - --- method NavigationPolicyDecision::get_modifiers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_navigation_policy_decision_get_modifiers" webkit_navigation_policy_decision_get_modifiers :: - Ptr NavigationPolicyDecision -> -- _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 -- result -navigationPolicyDecisionGetModifiers _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_navigation_policy_decision_get_modifiers _obj' - touchManagedPtr _obj - return result - -data NavigationPolicyDecisionGetModifiersMethodInfo -instance (signature ~ (m Word32), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetModifiersMethodInfo a signature where - overloadedMethod _ = navigationPolicyDecisionGetModifiers - --- method NavigationPolicyDecision::get_mouse_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_navigation_policy_decision_get_mouse_button" webkit_navigation_policy_decision_get_mouse_button :: - Ptr NavigationPolicyDecision -> -- _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 -- result -navigationPolicyDecisionGetMouseButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_navigation_policy_decision_get_mouse_button _obj' - touchManagedPtr _obj - return result - -data NavigationPolicyDecisionGetMouseButtonMethodInfo -instance (signature ~ (m Word32), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetMouseButtonMethodInfo a signature where - overloadedMethod _ = navigationPolicyDecisionGetMouseButton - --- method NavigationPolicyDecision::get_navigation_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data NavigationPolicyDecisionGetNavigationActionMethodInfo -instance (signature ~ (m NavigationAction), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetNavigationActionMethodInfo a signature where - overloadedMethod _ = navigationPolicyDecisionGetNavigationAction - --- method NavigationPolicyDecision::get_navigation_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data NavigationPolicyDecisionGetNavigationTypeMethodInfo -instance (signature ~ (m NavigationType), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetNavigationTypeMethodInfo a signature where - overloadedMethod _ = navigationPolicyDecisionGetNavigationType - --- method NavigationPolicyDecision::get_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data NavigationPolicyDecisionGetRequestMethodInfo -instance (signature ~ (m URIRequest), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetRequestMethodInfo a signature where - overloadedMethod _ = navigationPolicyDecisionGetRequest - - diff --git a/GI/WebKit2/Objects/NavigationPolicyDecision.hs-boot b/GI/WebKit2/Objects/NavigationPolicyDecision.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/NavigationPolicyDecision.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.WebKit2.Objects.NavigationPolicyDecision where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype NavigationPolicyDecision = NavigationPolicyDecision (ForeignPtr NavigationPolicyDecision) -instance GObject NavigationPolicyDecision where -class GObject o => NavigationPolicyDecisionK o -instance (GObject o, IsDescendantOf NavigationPolicyDecision o) => NavigationPolicyDecisionK o -data NavigationPolicyDecisionFrameNamePropertyInfo -data NavigationPolicyDecisionModifiersPropertyInfo -data NavigationPolicyDecisionMouseButtonPropertyInfo -data NavigationPolicyDecisionNavigationActionPropertyInfo -data NavigationPolicyDecisionNavigationTypePropertyInfo -data NavigationPolicyDecisionRequestPropertyInfo -data NavigationPolicyDecisionGetFrameNameMethodInfo -data NavigationPolicyDecisionGetModifiersMethodInfo -data NavigationPolicyDecisionGetMouseButtonMethodInfo -data NavigationPolicyDecisionGetNavigationActionMethodInfo -data NavigationPolicyDecisionGetNavigationTypeMethodInfo -data NavigationPolicyDecisionGetRequestMethodInfo diff --git a/GI/WebKit2/Objects/Notification.hs b/GI/WebKit2/Objects/Notification.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/Notification.hs +++ /dev/null @@ -1,467 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.Notification - ( - --- * Exported types - Notification(..) , - NotificationK , - toNotification , - noNotification , - - - -- * Methods --- ** notificationClicked - NotificationClickedMethodInfo , - notificationClicked , - - --- ** notificationClose - NotificationCloseMethodInfo , - notificationClose , - - --- ** notificationGetBody - NotificationGetBodyMethodInfo , - notificationGetBody , - - --- ** notificationGetId - NotificationGetIdMethodInfo , - notificationGetId , - - --- ** notificationGetTitle - NotificationGetTitleMethodInfo , - notificationGetTitle , - - - - - -- * Properties --- ** Body - NotificationBodyPropertyInfo , - getNotificationBody , - notificationBody , - - --- ** Id - NotificationIdPropertyInfo , - getNotificationId , - notificationId , - - --- ** Title - NotificationTitlePropertyInfo , - getNotificationTitle , - notificationTitle , - - - - - -- * Signals --- ** Clicked - NotificationClickedCallback , - NotificationClickedCallbackC , - NotificationClickedSignalInfo , - afterNotificationClicked , - mkNotificationClickedCallback , - noNotificationClickedCallback , - notificationClickedCallbackWrapper , - notificationClickedClosure , - onNotificationClicked , - - --- ** Closed - NotificationClosedCallback , - NotificationClosedCallbackC , - NotificationClosedSignalInfo , - afterNotificationClosed , - mkNotificationClosedCallback , - noNotificationClosedCallback , - notificationClosedCallbackWrapper , - notificationClosedClosure , - onNotificationClosed , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype Notification = Notification (ForeignPtr Notification) -foreign import ccall "webkit_notification_get_type" - c_webkit_notification_get_type :: IO GType - -type instance ParentTypes Notification = NotificationParentTypes -type NotificationParentTypes = '[GObject.Object] - -instance GObject Notification where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_notification_get_type - - -class GObject o => NotificationK o -instance (GObject o, IsDescendantOf Notification o) => NotificationK o - -toNotification :: NotificationK o => o -> IO Notification -toNotification = unsafeCastTo Notification - -noNotification :: Maybe Notification -noNotification = Nothing - -type family ResolveNotificationMethod (t :: Symbol) (o :: *) :: * where - ResolveNotificationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNotificationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNotificationMethod "clicked" o = NotificationClickedMethodInfo - ResolveNotificationMethod "close" o = NotificationCloseMethodInfo - ResolveNotificationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNotificationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNotificationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNotificationMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNotificationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNotificationMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNotificationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNotificationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNotificationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNotificationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNotificationMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNotificationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNotificationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNotificationMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNotificationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNotificationMethod "getBody" o = NotificationGetBodyMethodInfo - ResolveNotificationMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNotificationMethod "getId" o = NotificationGetIdMethodInfo - ResolveNotificationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNotificationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNotificationMethod "getTitle" o = NotificationGetTitleMethodInfo - ResolveNotificationMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNotificationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNotificationMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabelProxy t (Notification -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabel t (Notification -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Notification::clicked -type NotificationClickedCallback = - IO () - -noNotificationClickedCallback :: Maybe NotificationClickedCallback -noNotificationClickedCallback = Nothing - -type NotificationClickedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotificationClickedCallback :: NotificationClickedCallbackC -> IO (FunPtr NotificationClickedCallbackC) - -notificationClickedClosure :: NotificationClickedCallback -> IO Closure -notificationClickedClosure cb = newCClosure =<< mkNotificationClickedCallback wrapped - where wrapped = notificationClickedCallbackWrapper cb - -notificationClickedCallbackWrapper :: - NotificationClickedCallback -> - Ptr () -> - Ptr () -> - IO () -notificationClickedCallbackWrapper _cb _ _ = do - _cb - -onNotificationClicked :: (GObject a, MonadIO m) => a -> NotificationClickedCallback -> m SignalHandlerId -onNotificationClicked obj cb = liftIO $ connectNotificationClicked obj cb SignalConnectBefore -afterNotificationClicked :: (GObject a, MonadIO m) => a -> NotificationClickedCallback -> m SignalHandlerId -afterNotificationClicked obj cb = connectNotificationClicked obj cb SignalConnectAfter - -connectNotificationClicked :: (GObject a, MonadIO m) => - a -> NotificationClickedCallback -> SignalConnectMode -> m SignalHandlerId -connectNotificationClicked obj cb after = liftIO $ do - cb' <- mkNotificationClickedCallback (notificationClickedCallbackWrapper cb) - connectSignalFunPtr obj "clicked" cb' after - --- signal Notification::closed -type NotificationClosedCallback = - IO () - -noNotificationClosedCallback :: Maybe NotificationClosedCallback -noNotificationClosedCallback = Nothing - -type NotificationClosedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotificationClosedCallback :: NotificationClosedCallbackC -> IO (FunPtr NotificationClosedCallbackC) - -notificationClosedClosure :: NotificationClosedCallback -> IO Closure -notificationClosedClosure cb = newCClosure =<< mkNotificationClosedCallback wrapped - where wrapped = notificationClosedCallbackWrapper cb - -notificationClosedCallbackWrapper :: - NotificationClosedCallback -> - Ptr () -> - Ptr () -> - IO () -notificationClosedCallbackWrapper _cb _ _ = do - _cb - -onNotificationClosed :: (GObject a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId -onNotificationClosed obj cb = liftIO $ connectNotificationClosed obj cb SignalConnectBefore -afterNotificationClosed :: (GObject a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId -afterNotificationClosed obj cb = connectNotificationClosed obj cb SignalConnectAfter - -connectNotificationClosed :: (GObject a, MonadIO m) => - a -> NotificationClosedCallback -> SignalConnectMode -> m SignalHandlerId -connectNotificationClosed obj cb after = liftIO $ do - cb' <- mkNotificationClosedCallback (notificationClosedCallbackWrapper cb) - connectSignalFunPtr obj "closed" cb' after - --- VVV Prop "body" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getNotificationBody :: (MonadIO m, NotificationK o) => o -> m T.Text -getNotificationBody obj = liftIO $ checkUnexpectedNothing "getNotificationBody" $ getObjectPropertyString obj "body" - -data NotificationBodyPropertyInfo -instance AttrInfo NotificationBodyPropertyInfo where - type AttrAllowedOps NotificationBodyPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NotificationBodyPropertyInfo = (~) () - type AttrBaseTypeConstraint NotificationBodyPropertyInfo = NotificationK - type AttrGetType NotificationBodyPropertyInfo = T.Text - type AttrLabel NotificationBodyPropertyInfo = "body" - attrGet _ = getNotificationBody - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "id" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "id" - attrGet _ = getNotificationId - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getNotificationTitle :: (MonadIO m, NotificationK o) => o -> m T.Text -getNotificationTitle obj = liftIO $ checkUnexpectedNothing "getNotificationTitle" $ getObjectPropertyString obj "title" - -data NotificationTitlePropertyInfo -instance AttrInfo NotificationTitlePropertyInfo where - type AttrAllowedOps NotificationTitlePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NotificationTitlePropertyInfo = (~) () - type AttrBaseTypeConstraint NotificationTitlePropertyInfo = NotificationK - type AttrGetType NotificationTitlePropertyInfo = T.Text - type AttrLabel NotificationTitlePropertyInfo = "title" - attrGet _ = getNotificationTitle - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList Notification = NotificationAttributeList -type NotificationAttributeList = ('[ '("body", NotificationBodyPropertyInfo), '("id", NotificationIdPropertyInfo), '("title", NotificationTitlePropertyInfo)] :: [(Symbol, *)]) - -notificationBody :: AttrLabelProxy "body" -notificationBody = AttrLabelProxy - -notificationId :: AttrLabelProxy "id" -notificationId = AttrLabelProxy - -notificationTitle :: AttrLabelProxy "title" -notificationTitle = AttrLabelProxy - -data NotificationClickedSignalInfo -instance SignalInfo NotificationClickedSignalInfo where - type HaskellCallbackType NotificationClickedSignalInfo = NotificationClickedCallback - connectSignal _ = connectNotificationClicked - -data NotificationClosedSignalInfo -instance SignalInfo NotificationClosedSignalInfo where - type HaskellCallbackType NotificationClosedSignalInfo = NotificationClosedCallback - connectSignal _ = connectNotificationClosed - -type instance SignalList Notification = NotificationSignalList -type NotificationSignalList = ('[ '("clicked", NotificationClickedSignalInfo), '("closed", NotificationClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Notification::clicked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_notification_clicked" webkit_notification_clicked :: - Ptr Notification -> -- _obj : TInterface "WebKit2" "Notification" - IO () - - -notificationClicked :: - (MonadIO m, NotificationK a) => - a -- _obj - -> m () -- result -notificationClicked _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_notification_clicked _obj' - touchManagedPtr _obj - return () - -data NotificationClickedMethodInfo -instance (signature ~ (m ()), MonadIO m, NotificationK a) => MethodInfo NotificationClickedMethodInfo a signature where - overloadedMethod _ = notificationClicked - --- method Notification::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_notification_close" webkit_notification_close :: - Ptr Notification -> -- _obj : TInterface "WebKit2" "Notification" - IO () - - -notificationClose :: - (MonadIO m, NotificationK a) => - a -- _obj - -> m () -- result -notificationClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_notification_close _obj' - touchManagedPtr _obj - return () - -data NotificationCloseMethodInfo -instance (signature ~ (m ()), MonadIO m, NotificationK a) => MethodInfo NotificationCloseMethodInfo a signature where - overloadedMethod _ = notificationClose - --- method Notification::get_body --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_notification_get_body" webkit_notification_get_body :: - Ptr Notification -> -- _obj : TInterface "WebKit2" "Notification" - IO CString - - -notificationGetBody :: - (MonadIO m, NotificationK a) => - a -- _obj - -> m T.Text -- result -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' - -data NotificationGetBodyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NotificationK a) => MethodInfo NotificationGetBodyMethodInfo a signature where - overloadedMethod _ = notificationGetBody - --- method Notification::get_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "webkit_notification_get_id" webkit_notification_get_id :: - Ptr Notification -> -- _obj : TInterface "WebKit2" "Notification" - IO Word64 - - -notificationGetId :: - (MonadIO m, NotificationK a) => - a -- _obj - -> m Word64 -- result -notificationGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_notification_get_id _obj' - touchManagedPtr _obj - return result - -data NotificationGetIdMethodInfo -instance (signature ~ (m Word64), MonadIO m, NotificationK a) => MethodInfo NotificationGetIdMethodInfo a signature where - overloadedMethod _ = notificationGetId - --- method Notification::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_notification_get_title" webkit_notification_get_title :: - Ptr Notification -> -- _obj : TInterface "WebKit2" "Notification" - IO CString - - -notificationGetTitle :: - (MonadIO m, NotificationK a) => - a -- _obj - -> m T.Text -- result -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' - -data NotificationGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NotificationK a) => MethodInfo NotificationGetTitleMethodInfo a signature where - overloadedMethod _ = notificationGetTitle - - diff --git a/GI/WebKit2/Objects/Notification.hs-boot b/GI/WebKit2/Objects/Notification.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/Notification.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.WebKit2.Objects.Notification where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Notification = Notification (ForeignPtr Notification) -instance GObject Notification where -class GObject o => NotificationK o -instance (GObject o, IsDescendantOf Notification o) => NotificationK o -data NotificationBodyPropertyInfo -data NotificationIdPropertyInfo -data NotificationTitlePropertyInfo -data NotificationClickedSignalInfo -data NotificationClosedSignalInfo -data NotificationClickedMethodInfo -data NotificationCloseMethodInfo -data NotificationGetBodyMethodInfo -data NotificationGetIdMethodInfo -data NotificationGetTitleMethodInfo diff --git a/GI/WebKit2/Objects/NotificationPermissionRequest.hs b/GI/WebKit2/Objects/NotificationPermissionRequest.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/NotificationPermissionRequest.hs +++ /dev/null @@ -1,94 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.NotificationPermissionRequest - ( - --- * Exported types - NotificationPermissionRequest(..) , - NotificationPermissionRequestK , - toNotificationPermissionRequest , - noNotificationPermissionRequest , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype NotificationPermissionRequest = NotificationPermissionRequest (ForeignPtr NotificationPermissionRequest) -foreign import ccall "webkit_notification_permission_request_get_type" - c_webkit_notification_permission_request_get_type :: IO GType - -type instance ParentTypes NotificationPermissionRequest = NotificationPermissionRequestParentTypes -type NotificationPermissionRequestParentTypes = '[GObject.Object, PermissionRequest] - -instance GObject NotificationPermissionRequest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_notification_permission_request_get_type - - -class GObject o => NotificationPermissionRequestK o -instance (GObject o, IsDescendantOf NotificationPermissionRequest o) => NotificationPermissionRequestK o - -toNotificationPermissionRequest :: NotificationPermissionRequestK o => o -> IO NotificationPermissionRequest -toNotificationPermissionRequest = unsafeCastTo NotificationPermissionRequest - -noNotificationPermissionRequest :: Maybe NotificationPermissionRequest -noNotificationPermissionRequest = Nothing - -type family ResolveNotificationPermissionRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveNotificationPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo - ResolveNotificationPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNotificationPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNotificationPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo - ResolveNotificationPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNotificationPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNotificationPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNotificationPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNotificationPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNotificationPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNotificationPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNotificationPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNotificationPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNotificationPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNotificationPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNotificationPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNotificationPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNotificationPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNotificationPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNotificationPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNotificationPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNotificationPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNotificationPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNotificationPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNotificationPermissionRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNotificationPermissionRequestMethod t NotificationPermissionRequest, MethodInfo info NotificationPermissionRequest p) => IsLabelProxy t (NotificationPermissionRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNotificationPermissionRequestMethod t NotificationPermissionRequest, MethodInfo info NotificationPermissionRequest p) => IsLabel t (NotificationPermissionRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList NotificationPermissionRequest = NotificationPermissionRequestAttributeList -type NotificationPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList NotificationPermissionRequest = NotificationPermissionRequestSignalList -type NotificationPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/WebKit2/Objects/NotificationPermissionRequest.hs-boot b/GI/WebKit2/Objects/NotificationPermissionRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/NotificationPermissionRequest.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.WebKit2.Objects.NotificationPermissionRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype NotificationPermissionRequest = NotificationPermissionRequest (ForeignPtr NotificationPermissionRequest) -instance GObject NotificationPermissionRequest where -class GObject o => NotificationPermissionRequestK o -instance (GObject o, IsDescendantOf NotificationPermissionRequest o) => NotificationPermissionRequestK o diff --git a/GI/WebKit2/Objects/Plugin.hs b/GI/WebKit2/Objects/Plugin.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/Plugin.hs +++ /dev/null @@ -1,235 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.Plugin - ( - --- * Exported types - Plugin(..) , - PluginK , - toPlugin , - noPlugin , - - - -- * Methods --- ** pluginGetDescription - PluginGetDescriptionMethodInfo , - pluginGetDescription , - - --- ** pluginGetMimeInfoList - PluginGetMimeInfoListMethodInfo , - pluginGetMimeInfoList , - - --- ** pluginGetName - PluginGetNameMethodInfo , - pluginGetName , - - --- ** pluginGetPath - PluginGetPathMethodInfo , - pluginGetPath , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype Plugin = Plugin (ForeignPtr Plugin) -foreign import ccall "webkit_plugin_get_type" - c_webkit_plugin_get_type :: IO GType - -type instance ParentTypes Plugin = PluginParentTypes -type PluginParentTypes = '[GObject.Object] - -instance GObject Plugin where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_plugin_get_type - - -class GObject o => PluginK o -instance (GObject o, IsDescendantOf Plugin o) => PluginK o - -toPlugin :: PluginK o => o -> IO Plugin -toPlugin = unsafeCastTo Plugin - -noPlugin :: Maybe Plugin -noPlugin = Nothing - -type family ResolvePluginMethod (t :: Symbol) (o :: *) :: * where - ResolvePluginMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePluginMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePluginMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePluginMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePluginMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePluginMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePluginMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePluginMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePluginMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePluginMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePluginMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePluginMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePluginMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePluginMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePluginMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePluginMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePluginMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePluginMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePluginMethod "getDescription" o = PluginGetDescriptionMethodInfo - ResolvePluginMethod "getMimeInfoList" o = PluginGetMimeInfoListMethodInfo - ResolvePluginMethod "getName" o = PluginGetNameMethodInfo - ResolvePluginMethod "getPath" o = PluginGetPathMethodInfo - ResolvePluginMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePluginMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePluginMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePluginMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePluginMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePluginMethod t Plugin, MethodInfo info Plugin p) => IsLabelProxy t (Plugin -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePluginMethod t Plugin, MethodInfo info Plugin p) => IsLabel t (Plugin -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Plugin = PluginAttributeList -type PluginAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Plugin = PluginSignalList -type PluginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Plugin::get_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_plugin_get_description" webkit_plugin_get_description :: - Ptr Plugin -> -- _obj : TInterface "WebKit2" "Plugin" - IO CString - - -pluginGetDescription :: - (MonadIO m, PluginK a) => - a -- _obj - -> m T.Text -- result -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' - -data PluginGetDescriptionMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PluginK a) => MethodInfo PluginGetDescriptionMethodInfo a signature where - overloadedMethod _ = pluginGetDescription - --- method Plugin::get_mime_info_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -pluginGetMimeInfoList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_plugin_get_mime_info_list _obj' - result' <- unpackGList result - result'' <- mapM (newBoxed MimeInfo) result' - touchManagedPtr _obj - return result'' - -data PluginGetMimeInfoListMethodInfo -instance (signature ~ (m [MimeInfo]), MonadIO m, PluginK a) => MethodInfo PluginGetMimeInfoListMethodInfo a signature where - overloadedMethod _ = pluginGetMimeInfoList - --- method Plugin::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_plugin_get_name" webkit_plugin_get_name :: - Ptr Plugin -> -- _obj : TInterface "WebKit2" "Plugin" - IO CString - - -pluginGetName :: - (MonadIO m, PluginK a) => - a -- _obj - -> m T.Text -- result -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' - -data PluginGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PluginK a) => MethodInfo PluginGetNameMethodInfo a signature where - overloadedMethod _ = pluginGetName - --- method Plugin::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_plugin_get_path" webkit_plugin_get_path :: - Ptr Plugin -> -- _obj : TInterface "WebKit2" "Plugin" - IO CString - - -pluginGetPath :: - (MonadIO m, PluginK a) => - a -- _obj - -> m T.Text -- result -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' - -data PluginGetPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PluginK a) => MethodInfo PluginGetPathMethodInfo a signature where - overloadedMethod _ = pluginGetPath - - diff --git a/GI/WebKit2/Objects/Plugin.hs-boot b/GI/WebKit2/Objects/Plugin.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/Plugin.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.WebKit2.Objects.Plugin where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Plugin = Plugin (ForeignPtr Plugin) -instance GObject Plugin where -class GObject o => PluginK o -instance (GObject o, IsDescendantOf Plugin o) => PluginK o -data PluginGetDescriptionMethodInfo -data PluginGetMimeInfoListMethodInfo -data PluginGetNameMethodInfo -data PluginGetPathMethodInfo diff --git a/GI/WebKit2/Objects/PolicyDecision.hs b/GI/WebKit2/Objects/PolicyDecision.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/PolicyDecision.hs +++ /dev/null @@ -1,194 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.PolicyDecision - ( - --- * Exported types - PolicyDecision(..) , - PolicyDecisionK , - toPolicyDecision , - noPolicyDecision , - - - -- * Methods --- ** policyDecisionDownload - PolicyDecisionDownloadMethodInfo , - policyDecisionDownload , - - --- ** policyDecisionIgnore - PolicyDecisionIgnoreMethodInfo , - policyDecisionIgnore , - - --- ** policyDecisionUse - PolicyDecisionUseMethodInfo , - policyDecisionUse , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype PolicyDecision = PolicyDecision (ForeignPtr PolicyDecision) -foreign import ccall "webkit_policy_decision_get_type" - c_webkit_policy_decision_get_type :: IO GType - -type instance ParentTypes PolicyDecision = PolicyDecisionParentTypes -type PolicyDecisionParentTypes = '[GObject.Object] - -instance GObject PolicyDecision where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_policy_decision_get_type - - -class GObject o => PolicyDecisionK o -instance (GObject o, IsDescendantOf PolicyDecision o) => PolicyDecisionK o - -toPolicyDecision :: PolicyDecisionK o => o -> IO PolicyDecision -toPolicyDecision = unsafeCastTo PolicyDecision - -noPolicyDecision :: Maybe PolicyDecision -noPolicyDecision = Nothing - -type family ResolvePolicyDecisionMethod (t :: Symbol) (o :: *) :: * where - ResolvePolicyDecisionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePolicyDecisionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePolicyDecisionMethod "download" o = PolicyDecisionDownloadMethodInfo - ResolvePolicyDecisionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePolicyDecisionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePolicyDecisionMethod "ignore" o = PolicyDecisionIgnoreMethodInfo - ResolvePolicyDecisionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePolicyDecisionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePolicyDecisionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePolicyDecisionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePolicyDecisionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePolicyDecisionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePolicyDecisionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePolicyDecisionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePolicyDecisionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePolicyDecisionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePolicyDecisionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePolicyDecisionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePolicyDecisionMethod "use" o = PolicyDecisionUseMethodInfo - ResolvePolicyDecisionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePolicyDecisionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePolicyDecisionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePolicyDecisionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePolicyDecisionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePolicyDecisionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePolicyDecisionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePolicyDecisionMethod t PolicyDecision, MethodInfo info PolicyDecision p) => IsLabelProxy t (PolicyDecision -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePolicyDecisionMethod t PolicyDecision, MethodInfo info PolicyDecision p) => IsLabel t (PolicyDecision -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList PolicyDecision = PolicyDecisionAttributeList -type PolicyDecisionAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PolicyDecision = PolicyDecisionSignalList -type PolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PolicyDecision::download --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_policy_decision_download" webkit_policy_decision_download :: - Ptr PolicyDecision -> -- _obj : TInterface "WebKit2" "PolicyDecision" - IO () - - -policyDecisionDownload :: - (MonadIO m, PolicyDecisionK a) => - a -- _obj - -> m () -- result -policyDecisionDownload _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_policy_decision_download _obj' - touchManagedPtr _obj - return () - -data PolicyDecisionDownloadMethodInfo -instance (signature ~ (m ()), MonadIO m, PolicyDecisionK a) => MethodInfo PolicyDecisionDownloadMethodInfo a signature where - overloadedMethod _ = policyDecisionDownload - --- method PolicyDecision::ignore --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_policy_decision_ignore" webkit_policy_decision_ignore :: - Ptr PolicyDecision -> -- _obj : TInterface "WebKit2" "PolicyDecision" - IO () - - -policyDecisionIgnore :: - (MonadIO m, PolicyDecisionK a) => - a -- _obj - -> m () -- result -policyDecisionIgnore _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_policy_decision_ignore _obj' - touchManagedPtr _obj - return () - -data PolicyDecisionIgnoreMethodInfo -instance (signature ~ (m ()), MonadIO m, PolicyDecisionK a) => MethodInfo PolicyDecisionIgnoreMethodInfo a signature where - overloadedMethod _ = policyDecisionIgnore - --- method PolicyDecision::use --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_policy_decision_use" webkit_policy_decision_use :: - Ptr PolicyDecision -> -- _obj : TInterface "WebKit2" "PolicyDecision" - IO () - - -policyDecisionUse :: - (MonadIO m, PolicyDecisionK a) => - a -- _obj - -> m () -- result -policyDecisionUse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_policy_decision_use _obj' - touchManagedPtr _obj - return () - -data PolicyDecisionUseMethodInfo -instance (signature ~ (m ()), MonadIO m, PolicyDecisionK a) => MethodInfo PolicyDecisionUseMethodInfo a signature where - overloadedMethod _ = policyDecisionUse - - diff --git a/GI/WebKit2/Objects/PolicyDecision.hs-boot b/GI/WebKit2/Objects/PolicyDecision.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/PolicyDecision.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2.Objects.PolicyDecision where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PolicyDecision = PolicyDecision (ForeignPtr PolicyDecision) -instance GObject PolicyDecision where -class GObject o => PolicyDecisionK o -instance (GObject o, IsDescendantOf PolicyDecision o) => PolicyDecisionK o -data PolicyDecisionDownloadMethodInfo -data PolicyDecisionIgnoreMethodInfo -data PolicyDecisionUseMethodInfo diff --git a/GI/WebKit2/Objects/PrintOperation.hs b/GI/WebKit2/Objects/PrintOperation.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/PrintOperation.hs +++ /dev/null @@ -1,571 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.PrintOperation - ( - --- * Exported types - PrintOperation(..) , - PrintOperationK , - toPrintOperation , - noPrintOperation , - - - -- * Methods --- ** printOperationGetPageSetup - PrintOperationGetPageSetupMethodInfo , - printOperationGetPageSetup , - - --- ** printOperationGetPrintSettings - PrintOperationGetPrintSettingsMethodInfo, - printOperationGetPrintSettings , - - --- ** printOperationNew - printOperationNew , - - --- ** printOperationPrint - PrintOperationPrintMethodInfo , - printOperationPrint , - - --- ** printOperationRunDialog - PrintOperationRunDialogMethodInfo , - printOperationRunDialog , - - --- ** printOperationSetPageSetup - PrintOperationSetPageSetupMethodInfo , - printOperationSetPageSetup , - - --- ** printOperationSetPrintSettings - PrintOperationSetPrintSettingsMethodInfo, - printOperationSetPrintSettings , - - - - - -- * Properties --- ** PageSetup - PrintOperationPageSetupPropertyInfo , - constructPrintOperationPageSetup , - getPrintOperationPageSetup , - printOperationPageSetup , - setPrintOperationPageSetup , - - --- ** PrintSettings - PrintOperationPrintSettingsPropertyInfo , - constructPrintOperationPrintSettings , - getPrintOperationPrintSettings , - printOperationPrintSettings , - setPrintOperationPrintSettings , - - --- ** WebView - PrintOperationWebViewPropertyInfo , - constructPrintOperationWebView , - getPrintOperationWebView , - printOperationWebView , - - - - - -- * Signals --- ** Failed - PrintOperationFailedCallback , - PrintOperationFailedCallbackC , - PrintOperationFailedSignalInfo , - afterPrintOperationFailed , - mkPrintOperationFailedCallback , - noPrintOperationFailedCallback , - onPrintOperationFailed , - printOperationFailedCallbackWrapper , - printOperationFailedClosure , - - --- ** Finished - PrintOperationFinishedCallback , - PrintOperationFinishedCallbackC , - PrintOperationFinishedSignalInfo , - afterPrintOperationFinished , - mkPrintOperationFinishedCallback , - noPrintOperationFinishedCallback , - onPrintOperationFinished , - printOperationFinishedCallbackWrapper , - printOperationFinishedClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gtk as Gtk - -newtype PrintOperation = PrintOperation (ForeignPtr PrintOperation) -foreign import ccall "webkit_print_operation_get_type" - c_webkit_print_operation_get_type :: IO GType - -type instance ParentTypes PrintOperation = PrintOperationParentTypes -type PrintOperationParentTypes = '[GObject.Object] - -instance GObject PrintOperation where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_print_operation_get_type - - -class GObject o => PrintOperationK o -instance (GObject o, IsDescendantOf PrintOperation o) => PrintOperationK o - -toPrintOperation :: PrintOperationK o => o -> IO PrintOperation -toPrintOperation = unsafeCastTo PrintOperation - -noPrintOperation :: Maybe PrintOperation -noPrintOperation = Nothing - -type family ResolvePrintOperationMethod (t :: Symbol) (o :: *) :: * where - ResolvePrintOperationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePrintOperationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePrintOperationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePrintOperationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePrintOperationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePrintOperationMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePrintOperationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePrintOperationMethod "print" o = PrintOperationPrintMethodInfo - ResolvePrintOperationMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePrintOperationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePrintOperationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePrintOperationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePrintOperationMethod "runDialog" o = PrintOperationRunDialogMethodInfo - ResolvePrintOperationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePrintOperationMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePrintOperationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePrintOperationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePrintOperationMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePrintOperationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePrintOperationMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePrintOperationMethod "getPageSetup" o = PrintOperationGetPageSetupMethodInfo - ResolvePrintOperationMethod "getPrintSettings" o = PrintOperationGetPrintSettingsMethodInfo - ResolvePrintOperationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePrintOperationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePrintOperationMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePrintOperationMethod "setPageSetup" o = PrintOperationSetPageSetupMethodInfo - ResolvePrintOperationMethod "setPrintSettings" o = PrintOperationSetPrintSettingsMethodInfo - ResolvePrintOperationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePrintOperationMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePrintOperationMethod t PrintOperation, MethodInfo info PrintOperation p) => IsLabelProxy t (PrintOperation -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePrintOperationMethod t PrintOperation, MethodInfo info PrintOperation p) => IsLabel t (PrintOperation -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal PrintOperation::failed -type PrintOperationFailedCallback = - GError -> - IO () - -noPrintOperationFailedCallback :: Maybe PrintOperationFailedCallback -noPrintOperationFailedCallback = Nothing - -type PrintOperationFailedCallbackC = - Ptr () -> -- object - Ptr GError -> - 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 GError -> - Ptr () -> - IO () -printOperationFailedCallbackWrapper _cb _ error_ _ = do - error_' <- (newBoxed GError) error_ - _cb error_' - -onPrintOperationFailed :: (GObject a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId -onPrintOperationFailed obj cb = liftIO $ connectPrintOperationFailed obj cb SignalConnectBefore -afterPrintOperationFailed :: (GObject a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId -afterPrintOperationFailed obj cb = connectPrintOperationFailed obj cb SignalConnectAfter - -connectPrintOperationFailed :: (GObject a, MonadIO m) => - a -> PrintOperationFailedCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationFailed obj cb after = liftIO $ do - cb' <- mkPrintOperationFailedCallback (printOperationFailedCallbackWrapper cb) - connectSignalFunPtr obj "failed" cb' after - --- signal PrintOperation::finished -type PrintOperationFinishedCallback = - IO () - -noPrintOperationFinishedCallback :: Maybe PrintOperationFinishedCallback -noPrintOperationFinishedCallback = Nothing - -type PrintOperationFinishedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPrintOperationFinishedCallback :: PrintOperationFinishedCallbackC -> IO (FunPtr PrintOperationFinishedCallbackC) - -printOperationFinishedClosure :: PrintOperationFinishedCallback -> IO Closure -printOperationFinishedClosure cb = newCClosure =<< mkPrintOperationFinishedCallback wrapped - where wrapped = printOperationFinishedCallbackWrapper cb - -printOperationFinishedCallbackWrapper :: - PrintOperationFinishedCallback -> - Ptr () -> - Ptr () -> - IO () -printOperationFinishedCallbackWrapper _cb _ _ = do - _cb - -onPrintOperationFinished :: (GObject a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId -onPrintOperationFinished obj cb = liftIO $ connectPrintOperationFinished obj cb SignalConnectBefore -afterPrintOperationFinished :: (GObject a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId -afterPrintOperationFinished obj cb = connectPrintOperationFinished obj cb SignalConnectAfter - -connectPrintOperationFinished :: (GObject a, MonadIO m) => - a -> PrintOperationFinishedCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationFinished obj cb after = liftIO $ do - cb' <- mkPrintOperationFinishedCallback (printOperationFinishedCallbackWrapper cb) - connectSignalFunPtr obj "finished" cb' after - --- VVV Prop "page-setup" - -- Type: TInterface "Gtk" "PageSetup" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPrintOperationPageSetup :: (MonadIO m, PrintOperationK o) => o -> m Gtk.PageSetup -getPrintOperationPageSetup obj = liftIO $ checkUnexpectedNothing "getPrintOperationPageSetup" $ 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" (Just val) - -constructPrintOperationPageSetup :: (Gtk.PageSetupK a) => a -> IO ([Char], GValue) -constructPrintOperationPageSetup val = constructObjectPropertyObject "page-setup" (Just 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 = "page-setup" - attrGet _ = getPrintOperationPageSetup - attrSet _ = setPrintOperationPageSetup - attrConstruct _ = constructPrintOperationPageSetup - attrClear _ = undefined - --- VVV Prop "print-settings" - -- Type: TInterface "Gtk" "PrintSettings" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m Gtk.PrintSettings -getPrintOperationPrintSettings obj = liftIO $ checkUnexpectedNothing "getPrintOperationPrintSettings" $ 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" (Just val) - -constructPrintOperationPrintSettings :: (Gtk.PrintSettingsK a) => a -> IO ([Char], GValue) -constructPrintOperationPrintSettings val = constructObjectPropertyObject "print-settings" (Just 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 = "print-settings" - attrGet _ = getPrintOperationPrintSettings - attrSet _ = setPrintOperationPrintSettings - attrConstruct _ = constructPrintOperationPrintSettings - attrClear _ = undefined - --- VVV Prop "web-view" - -- Type: TInterface "WebKit2" "WebView" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getPrintOperationWebView :: (MonadIO m, PrintOperationK o) => o -> m (Maybe WebView) -getPrintOperationWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView - -constructPrintOperationWebView :: (WebViewK a) => a -> IO ([Char], GValue) -constructPrintOperationWebView val = constructObjectPropertyObject "web-view" (Just val) - -data PrintOperationWebViewPropertyInfo -instance AttrInfo PrintOperationWebViewPropertyInfo where - type AttrAllowedOps PrintOperationWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PrintOperationWebViewPropertyInfo = WebViewK - type AttrBaseTypeConstraint PrintOperationWebViewPropertyInfo = PrintOperationK - type AttrGetType PrintOperationWebViewPropertyInfo = (Maybe WebView) - type AttrLabel PrintOperationWebViewPropertyInfo = "web-view" - attrGet _ = getPrintOperationWebView - attrSet _ = undefined - attrConstruct _ = constructPrintOperationWebView - attrClear _ = undefined - -type instance AttributeList PrintOperation = PrintOperationAttributeList -type PrintOperationAttributeList = ('[ '("pageSetup", PrintOperationPageSetupPropertyInfo), '("printSettings", PrintOperationPrintSettingsPropertyInfo), '("webView", PrintOperationWebViewPropertyInfo)] :: [(Symbol, *)]) - -printOperationPageSetup :: AttrLabelProxy "pageSetup" -printOperationPageSetup = AttrLabelProxy - -printOperationPrintSettings :: AttrLabelProxy "printSettings" -printOperationPrintSettings = AttrLabelProxy - -printOperationWebView :: AttrLabelProxy "webView" -printOperationWebView = AttrLabelProxy - -data PrintOperationFailedSignalInfo -instance SignalInfo PrintOperationFailedSignalInfo where - type HaskellCallbackType PrintOperationFailedSignalInfo = PrintOperationFailedCallback - connectSignal _ = connectPrintOperationFailed - -data PrintOperationFinishedSignalInfo -instance SignalInfo PrintOperationFinishedSignalInfo where - type HaskellCallbackType PrintOperationFinishedSignalInfo = PrintOperationFinishedCallback - connectSignal _ = connectPrintOperationFinished - -type instance SignalList PrintOperation = PrintOperationSignalList -type PrintOperationSignalList = ('[ '("failed", PrintOperationFailedSignalInfo), '("finished", PrintOperationFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PrintOperation::new --- method type : Constructor --- Args : [Arg {argCName = "web_view", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- webView - -> m PrintOperation -- result -printOperationNew webView = liftIO $ do - let webView' = unsafeManagedPtrCastPtr webView - result <- webkit_print_operation_new webView' - checkUnexpectedReturnNULL "webkit_print_operation_new" result - result' <- (wrapObject PrintOperation) result - touchManagedPtr webView - return result' - --- method PrintOperation::get_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data PrintOperationGetPageSetupMethodInfo -instance (signature ~ (m Gtk.PageSetup), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetPageSetupMethodInfo a signature where - overloadedMethod _ = printOperationGetPageSetup - --- method PrintOperation::get_print_settings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data PrintOperationGetPrintSettingsMethodInfo -instance (signature ~ (m Gtk.PrintSettings), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetPrintSettingsMethodInfo a signature where - overloadedMethod _ = printOperationGetPrintSettings - --- method PrintOperation::print --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_print_operation_print" webkit_print_operation_print :: - Ptr PrintOperation -> -- _obj : TInterface "WebKit2" "PrintOperation" - IO () - - -printOperationPrint :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m () -- result -printOperationPrint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_print_operation_print _obj' - touchManagedPtr _obj - return () - -data PrintOperationPrintMethodInfo -instance (signature ~ (m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationPrintMethodInfo a signature where - overloadedMethod _ = printOperationPrint - --- method PrintOperation::run_dialog --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data PrintOperationRunDialogMethodInfo -instance (signature ~ (Maybe (b) -> m PrintOperationResponse), MonadIO m, PrintOperationK a, Gtk.WindowK b) => MethodInfo PrintOperationRunDialogMethodInfo a signature where - overloadedMethod _ = printOperationRunDialog - --- method PrintOperation::set_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- pageSetup - -> m () -- result -printOperationSetPageSetup _obj pageSetup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pageSetup' = unsafeManagedPtrCastPtr pageSetup - webkit_print_operation_set_page_setup _obj' pageSetup' - touchManagedPtr _obj - touchManagedPtr pageSetup - return () - -data PrintOperationSetPageSetupMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, PrintOperationK a, Gtk.PageSetupK b) => MethodInfo PrintOperationSetPageSetupMethodInfo a signature where - overloadedMethod _ = printOperationSetPageSetup - --- method PrintOperation::set_print_settings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- printSettings - -> m () -- result -printOperationSetPrintSettings _obj printSettings = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let printSettings' = unsafeManagedPtrCastPtr printSettings - webkit_print_operation_set_print_settings _obj' printSettings' - touchManagedPtr _obj - touchManagedPtr printSettings - return () - -data PrintOperationSetPrintSettingsMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, PrintOperationK a, Gtk.PrintSettingsK b) => MethodInfo PrintOperationSetPrintSettingsMethodInfo a signature where - overloadedMethod _ = printOperationSetPrintSettings - - diff --git a/GI/WebKit2/Objects/PrintOperation.hs-boot b/GI/WebKit2/Objects/PrintOperation.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/PrintOperation.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.WebKit2.Objects.PrintOperation where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PrintOperation = PrintOperation (ForeignPtr PrintOperation) -instance GObject PrintOperation where -class GObject o => PrintOperationK o -instance (GObject o, IsDescendantOf PrintOperation o) => PrintOperationK o -data PrintOperationPageSetupPropertyInfo -data PrintOperationPrintSettingsPropertyInfo -data PrintOperationWebViewPropertyInfo -data PrintOperationFailedSignalInfo -data PrintOperationFinishedSignalInfo -data PrintOperationGetPageSetupMethodInfo -data PrintOperationGetPrintSettingsMethodInfo -data PrintOperationPrintMethodInfo -data PrintOperationRunDialogMethodInfo -data PrintOperationSetPageSetupMethodInfo -data PrintOperationSetPrintSettingsMethodInfo diff --git a/GI/WebKit2/Objects/ResponsePolicyDecision.hs b/GI/WebKit2/Objects/ResponsePolicyDecision.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/ResponsePolicyDecision.hs +++ /dev/null @@ -1,263 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.ResponsePolicyDecision - ( - --- * Exported types - ResponsePolicyDecision(..) , - ResponsePolicyDecisionK , - toResponsePolicyDecision , - noResponsePolicyDecision , - - - -- * Methods --- ** responsePolicyDecisionGetRequest - ResponsePolicyDecisionGetRequestMethodInfo, - responsePolicyDecisionGetRequest , - - --- ** responsePolicyDecisionGetResponse - ResponsePolicyDecisionGetResponseMethodInfo, - responsePolicyDecisionGetResponse , - - --- ** responsePolicyDecisionIsMimeTypeSupported - ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo, - responsePolicyDecisionIsMimeTypeSupported, - - - - - -- * Properties --- ** Request - ResponsePolicyDecisionRequestPropertyInfo, - getResponsePolicyDecisionRequest , - responsePolicyDecisionRequest , - - --- ** Response - ResponsePolicyDecisionResponsePropertyInfo, - getResponsePolicyDecisionResponse , - responsePolicyDecisionResponse , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype ResponsePolicyDecision = ResponsePolicyDecision (ForeignPtr ResponsePolicyDecision) -foreign import ccall "webkit_response_policy_decision_get_type" - c_webkit_response_policy_decision_get_type :: IO GType - -type instance ParentTypes ResponsePolicyDecision = ResponsePolicyDecisionParentTypes -type ResponsePolicyDecisionParentTypes = '[PolicyDecision, GObject.Object] - -instance GObject ResponsePolicyDecision where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_response_policy_decision_get_type - - -class GObject o => ResponsePolicyDecisionK o -instance (GObject o, IsDescendantOf ResponsePolicyDecision o) => ResponsePolicyDecisionK o - -toResponsePolicyDecision :: ResponsePolicyDecisionK o => o -> IO ResponsePolicyDecision -toResponsePolicyDecision = unsafeCastTo ResponsePolicyDecision - -noResponsePolicyDecision :: Maybe ResponsePolicyDecision -noResponsePolicyDecision = Nothing - -type family ResolveResponsePolicyDecisionMethod (t :: Symbol) (o :: *) :: * where - ResolveResponsePolicyDecisionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveResponsePolicyDecisionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveResponsePolicyDecisionMethod "download" o = PolicyDecisionDownloadMethodInfo - ResolveResponsePolicyDecisionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveResponsePolicyDecisionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveResponsePolicyDecisionMethod "ignore" o = PolicyDecisionIgnoreMethodInfo - ResolveResponsePolicyDecisionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveResponsePolicyDecisionMethod "isMimeTypeSupported" o = ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo - ResolveResponsePolicyDecisionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveResponsePolicyDecisionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveResponsePolicyDecisionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveResponsePolicyDecisionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveResponsePolicyDecisionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveResponsePolicyDecisionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveResponsePolicyDecisionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveResponsePolicyDecisionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveResponsePolicyDecisionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveResponsePolicyDecisionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveResponsePolicyDecisionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveResponsePolicyDecisionMethod "use" o = PolicyDecisionUseMethodInfo - ResolveResponsePolicyDecisionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveResponsePolicyDecisionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveResponsePolicyDecisionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveResponsePolicyDecisionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveResponsePolicyDecisionMethod "getRequest" o = ResponsePolicyDecisionGetRequestMethodInfo - ResolveResponsePolicyDecisionMethod "getResponse" o = ResponsePolicyDecisionGetResponseMethodInfo - ResolveResponsePolicyDecisionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveResponsePolicyDecisionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveResponsePolicyDecisionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveResponsePolicyDecisionMethod t ResponsePolicyDecision, MethodInfo info ResponsePolicyDecision p) => IsLabelProxy t (ResponsePolicyDecision -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveResponsePolicyDecisionMethod t ResponsePolicyDecision, MethodInfo info ResponsePolicyDecision p) => IsLabel t (ResponsePolicyDecision -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "request" - -- Type: TInterface "WebKit2" "URIRequest" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getResponsePolicyDecisionRequest :: (MonadIO m, ResponsePolicyDecisionK o) => o -> m URIRequest -getResponsePolicyDecisionRequest obj = liftIO $ checkUnexpectedNothing "getResponsePolicyDecisionRequest" $ getObjectPropertyObject obj "request" URIRequest - -data ResponsePolicyDecisionRequestPropertyInfo -instance AttrInfo ResponsePolicyDecisionRequestPropertyInfo where - type AttrAllowedOps ResponsePolicyDecisionRequestPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = (~) () - type AttrBaseTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = ResponsePolicyDecisionK - type AttrGetType ResponsePolicyDecisionRequestPropertyInfo = URIRequest - type AttrLabel ResponsePolicyDecisionRequestPropertyInfo = "request" - attrGet _ = getResponsePolicyDecisionRequest - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "response" - -- Type: TInterface "WebKit2" "URIResponse" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getResponsePolicyDecisionResponse :: (MonadIO m, ResponsePolicyDecisionK o) => o -> m URIResponse -getResponsePolicyDecisionResponse obj = liftIO $ checkUnexpectedNothing "getResponsePolicyDecisionResponse" $ getObjectPropertyObject obj "response" URIResponse - -data ResponsePolicyDecisionResponsePropertyInfo -instance AttrInfo ResponsePolicyDecisionResponsePropertyInfo where - type AttrAllowedOps ResponsePolicyDecisionResponsePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = (~) () - type AttrBaseTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = ResponsePolicyDecisionK - type AttrGetType ResponsePolicyDecisionResponsePropertyInfo = URIResponse - type AttrLabel ResponsePolicyDecisionResponsePropertyInfo = "response" - attrGet _ = getResponsePolicyDecisionResponse - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList ResponsePolicyDecision = ResponsePolicyDecisionAttributeList -type ResponsePolicyDecisionAttributeList = ('[ '("request", ResponsePolicyDecisionRequestPropertyInfo), '("response", ResponsePolicyDecisionResponsePropertyInfo)] :: [(Symbol, *)]) - -responsePolicyDecisionRequest :: AttrLabelProxy "request" -responsePolicyDecisionRequest = AttrLabelProxy - -responsePolicyDecisionResponse :: AttrLabelProxy "response" -responsePolicyDecisionResponse = AttrLabelProxy - -type instance SignalList ResponsePolicyDecision = ResponsePolicyDecisionSignalList -type ResponsePolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ResponsePolicyDecision::get_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ResponsePolicyDecisionGetRequestMethodInfo -instance (signature ~ (m URIRequest), MonadIO m, ResponsePolicyDecisionK a) => MethodInfo ResponsePolicyDecisionGetRequestMethodInfo a signature where - overloadedMethod _ = responsePolicyDecisionGetRequest - --- method ResponsePolicyDecision::get_response --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ResponsePolicyDecisionGetResponseMethodInfo -instance (signature ~ (m URIResponse), MonadIO m, ResponsePolicyDecisionK a) => MethodInfo ResponsePolicyDecisionGetResponseMethodInfo a signature where - overloadedMethod _ = responsePolicyDecisionGetResponse - --- method ResponsePolicyDecision::is_mime_type_supported --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_response_policy_decision_is_mime_type_supported" webkit_response_policy_decision_is_mime_type_supported :: - Ptr ResponsePolicyDecision -> -- _obj : TInterface "WebKit2" "ResponsePolicyDecision" - IO CInt - - -responsePolicyDecisionIsMimeTypeSupported :: - (MonadIO m, ResponsePolicyDecisionK a) => - a -- _obj - -> m Bool -- result -responsePolicyDecisionIsMimeTypeSupported _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_response_policy_decision_is_mime_type_supported _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo -instance (signature ~ (m Bool), MonadIO m, ResponsePolicyDecisionK a) => MethodInfo ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo a signature where - overloadedMethod _ = responsePolicyDecisionIsMimeTypeSupported - - diff --git a/GI/WebKit2/Objects/ResponsePolicyDecision.hs-boot b/GI/WebKit2/Objects/ResponsePolicyDecision.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/ResponsePolicyDecision.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2.Objects.ResponsePolicyDecision where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ResponsePolicyDecision = ResponsePolicyDecision (ForeignPtr ResponsePolicyDecision) -instance GObject ResponsePolicyDecision where -class GObject o => ResponsePolicyDecisionK o -instance (GObject o, IsDescendantOf ResponsePolicyDecision o) => ResponsePolicyDecisionK o -data ResponsePolicyDecisionRequestPropertyInfo -data ResponsePolicyDecisionResponsePropertyInfo -data ResponsePolicyDecisionGetRequestMethodInfo -data ResponsePolicyDecisionGetResponseMethodInfo -data ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo diff --git a/GI/WebKit2/Objects/SecurityManager.hs b/GI/WebKit2/Objects/SecurityManager.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/SecurityManager.hs +++ /dev/null @@ -1,545 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.SecurityManager - ( - --- * Exported types - SecurityManager(..) , - SecurityManagerK , - toSecurityManager , - noSecurityManager , - - - -- * Methods --- ** securityManagerRegisterUriSchemeAsCorsEnabled - SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo, - securityManagerRegisterUriSchemeAsCorsEnabled, - - --- ** securityManagerRegisterUriSchemeAsDisplayIsolated - SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo, - securityManagerRegisterUriSchemeAsDisplayIsolated, - - --- ** securityManagerRegisterUriSchemeAsEmptyDocument - SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo, - securityManagerRegisterUriSchemeAsEmptyDocument, - - --- ** securityManagerRegisterUriSchemeAsLocal - SecurityManagerRegisterUriSchemeAsLocalMethodInfo, - securityManagerRegisterUriSchemeAsLocal , - - --- ** securityManagerRegisterUriSchemeAsNoAccess - SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo, - securityManagerRegisterUriSchemeAsNoAccess, - - --- ** securityManagerRegisterUriSchemeAsSecure - SecurityManagerRegisterUriSchemeAsSecureMethodInfo, - securityManagerRegisterUriSchemeAsSecure, - - --- ** securityManagerUriSchemeIsCorsEnabled - SecurityManagerUriSchemeIsCorsEnabledMethodInfo, - securityManagerUriSchemeIsCorsEnabled , - - --- ** securityManagerUriSchemeIsDisplayIsolated - SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo, - securityManagerUriSchemeIsDisplayIsolated, - - --- ** securityManagerUriSchemeIsEmptyDocument - SecurityManagerUriSchemeIsEmptyDocumentMethodInfo, - securityManagerUriSchemeIsEmptyDocument , - - --- ** securityManagerUriSchemeIsLocal - SecurityManagerUriSchemeIsLocalMethodInfo, - securityManagerUriSchemeIsLocal , - - --- ** securityManagerUriSchemeIsNoAccess - SecurityManagerUriSchemeIsNoAccessMethodInfo, - securityManagerUriSchemeIsNoAccess , - - --- ** securityManagerUriSchemeIsSecure - SecurityManagerUriSchemeIsSecureMethodInfo, - securityManagerUriSchemeIsSecure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype SecurityManager = SecurityManager (ForeignPtr SecurityManager) -foreign import ccall "webkit_security_manager_get_type" - c_webkit_security_manager_get_type :: IO GType - -type instance ParentTypes SecurityManager = SecurityManagerParentTypes -type SecurityManagerParentTypes = '[GObject.Object] - -instance GObject SecurityManager where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_security_manager_get_type - - -class GObject o => SecurityManagerK o -instance (GObject o, IsDescendantOf SecurityManager o) => SecurityManagerK o - -toSecurityManager :: SecurityManagerK o => o -> IO SecurityManager -toSecurityManager = unsafeCastTo SecurityManager - -noSecurityManager :: Maybe SecurityManager -noSecurityManager = Nothing - -type family ResolveSecurityManagerMethod (t :: Symbol) (o :: *) :: * where - ResolveSecurityManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSecurityManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSecurityManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSecurityManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSecurityManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSecurityManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSecurityManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSecurityManagerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSecurityManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSecurityManagerMethod "registerUriSchemeAsCorsEnabled" o = SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo - ResolveSecurityManagerMethod "registerUriSchemeAsDisplayIsolated" o = SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo - ResolveSecurityManagerMethod "registerUriSchemeAsEmptyDocument" o = SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo - ResolveSecurityManagerMethod "registerUriSchemeAsLocal" o = SecurityManagerRegisterUriSchemeAsLocalMethodInfo - ResolveSecurityManagerMethod "registerUriSchemeAsNoAccess" o = SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo - ResolveSecurityManagerMethod "registerUriSchemeAsSecure" o = SecurityManagerRegisterUriSchemeAsSecureMethodInfo - ResolveSecurityManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSecurityManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSecurityManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSecurityManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSecurityManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSecurityManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSecurityManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSecurityManagerMethod "uriSchemeIsCorsEnabled" o = SecurityManagerUriSchemeIsCorsEnabledMethodInfo - ResolveSecurityManagerMethod "uriSchemeIsDisplayIsolated" o = SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo - ResolveSecurityManagerMethod "uriSchemeIsEmptyDocument" o = SecurityManagerUriSchemeIsEmptyDocumentMethodInfo - ResolveSecurityManagerMethod "uriSchemeIsLocal" o = SecurityManagerUriSchemeIsLocalMethodInfo - ResolveSecurityManagerMethod "uriSchemeIsNoAccess" o = SecurityManagerUriSchemeIsNoAccessMethodInfo - ResolveSecurityManagerMethod "uriSchemeIsSecure" o = SecurityManagerUriSchemeIsSecureMethodInfo - ResolveSecurityManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSecurityManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSecurityManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSecurityManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSecurityManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSecurityManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSecurityManagerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSecurityManagerMethod t SecurityManager, MethodInfo info SecurityManager p) => IsLabelProxy t (SecurityManager -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSecurityManagerMethod t SecurityManager, MethodInfo info SecurityManager p) => IsLabel t (SecurityManager -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SecurityManager = SecurityManagerAttributeList -type SecurityManagerAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList SecurityManager = SecurityManagerSignalList -type SecurityManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SecurityManager::register_uri_scheme_as_cors_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_register_uri_scheme_as_cors_enabled" webkit_security_manager_register_uri_scheme_as_cors_enabled :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO () - - -securityManagerRegisterUriSchemeAsCorsEnabled :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m () -- result -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 () - -data SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo a signature where - overloadedMethod _ = securityManagerRegisterUriSchemeAsCorsEnabled - --- method SecurityManager::register_uri_scheme_as_display_isolated --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_register_uri_scheme_as_display_isolated" webkit_security_manager_register_uri_scheme_as_display_isolated :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO () - - -securityManagerRegisterUriSchemeAsDisplayIsolated :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m () -- result -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 () - -data SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo a signature where - overloadedMethod _ = securityManagerRegisterUriSchemeAsDisplayIsolated - --- method SecurityManager::register_uri_scheme_as_empty_document --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_register_uri_scheme_as_empty_document" webkit_security_manager_register_uri_scheme_as_empty_document :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO () - - -securityManagerRegisterUriSchemeAsEmptyDocument :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m () -- result -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 () - -data SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo a signature where - overloadedMethod _ = securityManagerRegisterUriSchemeAsEmptyDocument - --- method SecurityManager::register_uri_scheme_as_local --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_register_uri_scheme_as_local" webkit_security_manager_register_uri_scheme_as_local :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO () - - -securityManagerRegisterUriSchemeAsLocal :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m () -- result -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 () - -data SecurityManagerRegisterUriSchemeAsLocalMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsLocalMethodInfo a signature where - overloadedMethod _ = securityManagerRegisterUriSchemeAsLocal - --- method SecurityManager::register_uri_scheme_as_no_access --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_register_uri_scheme_as_no_access" webkit_security_manager_register_uri_scheme_as_no_access :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO () - - -securityManagerRegisterUriSchemeAsNoAccess :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m () -- result -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 () - -data SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo a signature where - overloadedMethod _ = securityManagerRegisterUriSchemeAsNoAccess - --- method SecurityManager::register_uri_scheme_as_secure --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_register_uri_scheme_as_secure" webkit_security_manager_register_uri_scheme_as_secure :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO () - - -securityManagerRegisterUriSchemeAsSecure :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m () -- result -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 () - -data SecurityManagerRegisterUriSchemeAsSecureMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsSecureMethodInfo a signature where - overloadedMethod _ = securityManagerRegisterUriSchemeAsSecure - --- method SecurityManager::uri_scheme_is_cors_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_uri_scheme_is_cors_enabled" webkit_security_manager_uri_scheme_is_cors_enabled :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO CInt - - -securityManagerUriSchemeIsCorsEnabled :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m Bool -- result -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' - -data SecurityManagerUriSchemeIsCorsEnabledMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsCorsEnabledMethodInfo a signature where - overloadedMethod _ = securityManagerUriSchemeIsCorsEnabled - --- method SecurityManager::uri_scheme_is_display_isolated --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_uri_scheme_is_display_isolated" webkit_security_manager_uri_scheme_is_display_isolated :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO CInt - - -securityManagerUriSchemeIsDisplayIsolated :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m Bool -- result -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' - -data SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo a signature where - overloadedMethod _ = securityManagerUriSchemeIsDisplayIsolated - --- method SecurityManager::uri_scheme_is_empty_document --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_uri_scheme_is_empty_document" webkit_security_manager_uri_scheme_is_empty_document :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO CInt - - -securityManagerUriSchemeIsEmptyDocument :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m Bool -- result -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' - -data SecurityManagerUriSchemeIsEmptyDocumentMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsEmptyDocumentMethodInfo a signature where - overloadedMethod _ = securityManagerUriSchemeIsEmptyDocument - --- method SecurityManager::uri_scheme_is_local --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_uri_scheme_is_local" webkit_security_manager_uri_scheme_is_local :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO CInt - - -securityManagerUriSchemeIsLocal :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m Bool -- result -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' - -data SecurityManagerUriSchemeIsLocalMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsLocalMethodInfo a signature where - overloadedMethod _ = securityManagerUriSchemeIsLocal - --- method SecurityManager::uri_scheme_is_no_access --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_uri_scheme_is_no_access" webkit_security_manager_uri_scheme_is_no_access :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO CInt - - -securityManagerUriSchemeIsNoAccess :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m Bool -- result -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' - -data SecurityManagerUriSchemeIsNoAccessMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsNoAccessMethodInfo a signature where - overloadedMethod _ = securityManagerUriSchemeIsNoAccess - --- method SecurityManager::uri_scheme_is_secure --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_security_manager_uri_scheme_is_secure" webkit_security_manager_uri_scheme_is_secure :: - Ptr SecurityManager -> -- _obj : TInterface "WebKit2" "SecurityManager" - CString -> -- scheme : TBasicType TUTF8 - IO CInt - - -securityManagerUriSchemeIsSecure :: - (MonadIO m, SecurityManagerK a) => - a -- _obj - -> T.Text -- scheme - -> m Bool -- result -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' - -data SecurityManagerUriSchemeIsSecureMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsSecureMethodInfo a signature where - overloadedMethod _ = securityManagerUriSchemeIsSecure - - diff --git a/GI/WebKit2/Objects/SecurityManager.hs-boot b/GI/WebKit2/Objects/SecurityManager.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/SecurityManager.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.WebKit2.Objects.SecurityManager where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SecurityManager = SecurityManager (ForeignPtr SecurityManager) -instance GObject SecurityManager where -class GObject o => SecurityManagerK o -instance (GObject o, IsDescendantOf SecurityManager o) => SecurityManagerK o -data SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo -data SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo -data SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo -data SecurityManagerRegisterUriSchemeAsLocalMethodInfo -data SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo -data SecurityManagerRegisterUriSchemeAsSecureMethodInfo -data SecurityManagerUriSchemeIsCorsEnabledMethodInfo -data SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo -data SecurityManagerUriSchemeIsEmptyDocumentMethodInfo -data SecurityManagerUriSchemeIsLocalMethodInfo -data SecurityManagerUriSchemeIsNoAccessMethodInfo -data SecurityManagerUriSchemeIsSecureMethodInfo diff --git a/GI/WebKit2/Objects/Settings.hs b/GI/WebKit2/Objects/Settings.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/Settings.hs +++ /dev/null @@ -1,5435 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.Settings - ( - --- * Exported types - Settings(..) , - SettingsK , - toSettings , - noSettings , - - - -- * Methods --- ** settingsGetAllowFileAccessFromFileUrls - SettingsGetAllowFileAccessFromFileUrlsMethodInfo, - settingsGetAllowFileAccessFromFileUrls , - - --- ** settingsGetAllowModalDialogs - SettingsGetAllowModalDialogsMethodInfo , - settingsGetAllowModalDialogs , - - --- ** settingsGetAutoLoadImages - SettingsGetAutoLoadImagesMethodInfo , - settingsGetAutoLoadImages , - - --- ** settingsGetCursiveFontFamily - SettingsGetCursiveFontFamilyMethodInfo , - settingsGetCursiveFontFamily , - - --- ** settingsGetDefaultCharset - SettingsGetDefaultCharsetMethodInfo , - settingsGetDefaultCharset , - - --- ** settingsGetDefaultFontFamily - SettingsGetDefaultFontFamilyMethodInfo , - settingsGetDefaultFontFamily , - - --- ** settingsGetDefaultFontSize - SettingsGetDefaultFontSizeMethodInfo , - settingsGetDefaultFontSize , - - --- ** settingsGetDefaultMonospaceFontSize - SettingsGetDefaultMonospaceFontSizeMethodInfo, - settingsGetDefaultMonospaceFontSize , - - --- ** settingsGetDrawCompositingIndicators - SettingsGetDrawCompositingIndicatorsMethodInfo, - settingsGetDrawCompositingIndicators , - - --- ** settingsGetEnableAccelerated2dCanvas - SettingsGetEnableAccelerated2dCanvasMethodInfo, - settingsGetEnableAccelerated2dCanvas , - - --- ** settingsGetEnableCaretBrowsing - SettingsGetEnableCaretBrowsingMethodInfo, - settingsGetEnableCaretBrowsing , - - --- ** settingsGetEnableDeveloperExtras - SettingsGetEnableDeveloperExtrasMethodInfo, - settingsGetEnableDeveloperExtras , - - --- ** settingsGetEnableDnsPrefetching - SettingsGetEnableDnsPrefetchingMethodInfo, - settingsGetEnableDnsPrefetching , - - --- ** settingsGetEnableFrameFlattening - SettingsGetEnableFrameFlatteningMethodInfo, - settingsGetEnableFrameFlattening , - - --- ** settingsGetEnableFullscreen - SettingsGetEnableFullscreenMethodInfo , - settingsGetEnableFullscreen , - - --- ** settingsGetEnableHtml5Database - SettingsGetEnableHtml5DatabaseMethodInfo, - settingsGetEnableHtml5Database , - - --- ** settingsGetEnableHtml5LocalStorage - SettingsGetEnableHtml5LocalStorageMethodInfo, - settingsGetEnableHtml5LocalStorage , - - --- ** settingsGetEnableHyperlinkAuditing - SettingsGetEnableHyperlinkAuditingMethodInfo, - settingsGetEnableHyperlinkAuditing , - - --- ** settingsGetEnableJava - SettingsGetEnableJavaMethodInfo , - settingsGetEnableJava , - - --- ** settingsGetEnableJavascript - SettingsGetEnableJavascriptMethodInfo , - settingsGetEnableJavascript , - - --- ** settingsGetEnableMediaStream - SettingsGetEnableMediaStreamMethodInfo , - settingsGetEnableMediaStream , - - --- ** settingsGetEnableMediasource - SettingsGetEnableMediasourceMethodInfo , - settingsGetEnableMediasource , - - --- ** settingsGetEnableOfflineWebApplicationCache - SettingsGetEnableOfflineWebApplicationCacheMethodInfo, - settingsGetEnableOfflineWebApplicationCache, - - --- ** settingsGetEnablePageCache - SettingsGetEnablePageCacheMethodInfo , - settingsGetEnablePageCache , - - --- ** settingsGetEnablePlugins - SettingsGetEnablePluginsMethodInfo , - settingsGetEnablePlugins , - - --- ** settingsGetEnablePrivateBrowsing - SettingsGetEnablePrivateBrowsingMethodInfo, - settingsGetEnablePrivateBrowsing , - - --- ** settingsGetEnableResizableTextAreas - SettingsGetEnableResizableTextAreasMethodInfo, - settingsGetEnableResizableTextAreas , - - --- ** settingsGetEnableSiteSpecificQuirks - SettingsGetEnableSiteSpecificQuirksMethodInfo, - settingsGetEnableSiteSpecificQuirks , - - --- ** settingsGetEnableSmoothScrolling - SettingsGetEnableSmoothScrollingMethodInfo, - settingsGetEnableSmoothScrolling , - - --- ** settingsGetEnableSpatialNavigation - SettingsGetEnableSpatialNavigationMethodInfo, - settingsGetEnableSpatialNavigation , - - --- ** settingsGetEnableTabsToLinks - SettingsGetEnableTabsToLinksMethodInfo , - settingsGetEnableTabsToLinks , - - --- ** settingsGetEnableWebaudio - SettingsGetEnableWebaudioMethodInfo , - settingsGetEnableWebaudio , - - --- ** settingsGetEnableWebgl - SettingsGetEnableWebglMethodInfo , - settingsGetEnableWebgl , - - --- ** settingsGetEnableWriteConsoleMessagesToStdout - SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo, - settingsGetEnableWriteConsoleMessagesToStdout, - - --- ** settingsGetEnableXssAuditor - SettingsGetEnableXssAuditorMethodInfo , - settingsGetEnableXssAuditor , - - --- ** settingsGetFantasyFontFamily - SettingsGetFantasyFontFamilyMethodInfo , - settingsGetFantasyFontFamily , - - --- ** settingsGetJavascriptCanAccessClipboard - SettingsGetJavascriptCanAccessClipboardMethodInfo, - settingsGetJavascriptCanAccessClipboard , - - --- ** settingsGetJavascriptCanOpenWindowsAutomatically - SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo, - settingsGetJavascriptCanOpenWindowsAutomatically, - - --- ** settingsGetLoadIconsIgnoringImageLoadSetting - SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo, - settingsGetLoadIconsIgnoringImageLoadSetting, - - --- ** settingsGetMediaPlaybackAllowsInline - SettingsGetMediaPlaybackAllowsInlineMethodInfo, - settingsGetMediaPlaybackAllowsInline , - - --- ** settingsGetMediaPlaybackRequiresUserGesture - SettingsGetMediaPlaybackRequiresUserGestureMethodInfo, - settingsGetMediaPlaybackRequiresUserGesture, - - --- ** settingsGetMinimumFontSize - SettingsGetMinimumFontSizeMethodInfo , - settingsGetMinimumFontSize , - - --- ** settingsGetMonospaceFontFamily - SettingsGetMonospaceFontFamilyMethodInfo, - settingsGetMonospaceFontFamily , - - --- ** settingsGetPictographFontFamily - SettingsGetPictographFontFamilyMethodInfo, - settingsGetPictographFontFamily , - - --- ** settingsGetPrintBackgrounds - SettingsGetPrintBackgroundsMethodInfo , - settingsGetPrintBackgrounds , - - --- ** settingsGetSansSerifFontFamily - SettingsGetSansSerifFontFamilyMethodInfo, - settingsGetSansSerifFontFamily , - - --- ** settingsGetSerifFontFamily - SettingsGetSerifFontFamilyMethodInfo , - settingsGetSerifFontFamily , - - --- ** settingsGetUserAgent - SettingsGetUserAgentMethodInfo , - settingsGetUserAgent , - - --- ** settingsGetZoomTextOnly - SettingsGetZoomTextOnlyMethodInfo , - settingsGetZoomTextOnly , - - --- ** settingsNew - settingsNew , - - --- ** settingsSetAllowFileAccessFromFileUrls - SettingsSetAllowFileAccessFromFileUrlsMethodInfo, - settingsSetAllowFileAccessFromFileUrls , - - --- ** settingsSetAllowModalDialogs - SettingsSetAllowModalDialogsMethodInfo , - settingsSetAllowModalDialogs , - - --- ** settingsSetAutoLoadImages - SettingsSetAutoLoadImagesMethodInfo , - settingsSetAutoLoadImages , - - --- ** settingsSetCursiveFontFamily - SettingsSetCursiveFontFamilyMethodInfo , - settingsSetCursiveFontFamily , - - --- ** settingsSetDefaultCharset - SettingsSetDefaultCharsetMethodInfo , - settingsSetDefaultCharset , - - --- ** settingsSetDefaultFontFamily - SettingsSetDefaultFontFamilyMethodInfo , - settingsSetDefaultFontFamily , - - --- ** settingsSetDefaultFontSize - SettingsSetDefaultFontSizeMethodInfo , - settingsSetDefaultFontSize , - - --- ** settingsSetDefaultMonospaceFontSize - SettingsSetDefaultMonospaceFontSizeMethodInfo, - settingsSetDefaultMonospaceFontSize , - - --- ** settingsSetDrawCompositingIndicators - SettingsSetDrawCompositingIndicatorsMethodInfo, - settingsSetDrawCompositingIndicators , - - --- ** settingsSetEnableAccelerated2dCanvas - SettingsSetEnableAccelerated2dCanvasMethodInfo, - settingsSetEnableAccelerated2dCanvas , - - --- ** settingsSetEnableCaretBrowsing - SettingsSetEnableCaretBrowsingMethodInfo, - settingsSetEnableCaretBrowsing , - - --- ** settingsSetEnableDeveloperExtras - SettingsSetEnableDeveloperExtrasMethodInfo, - settingsSetEnableDeveloperExtras , - - --- ** settingsSetEnableDnsPrefetching - SettingsSetEnableDnsPrefetchingMethodInfo, - settingsSetEnableDnsPrefetching , - - --- ** settingsSetEnableFrameFlattening - SettingsSetEnableFrameFlatteningMethodInfo, - settingsSetEnableFrameFlattening , - - --- ** settingsSetEnableFullscreen - SettingsSetEnableFullscreenMethodInfo , - settingsSetEnableFullscreen , - - --- ** settingsSetEnableHtml5Database - SettingsSetEnableHtml5DatabaseMethodInfo, - settingsSetEnableHtml5Database , - - --- ** settingsSetEnableHtml5LocalStorage - SettingsSetEnableHtml5LocalStorageMethodInfo, - settingsSetEnableHtml5LocalStorage , - - --- ** settingsSetEnableHyperlinkAuditing - SettingsSetEnableHyperlinkAuditingMethodInfo, - settingsSetEnableHyperlinkAuditing , - - --- ** settingsSetEnableJava - SettingsSetEnableJavaMethodInfo , - settingsSetEnableJava , - - --- ** settingsSetEnableJavascript - SettingsSetEnableJavascriptMethodInfo , - settingsSetEnableJavascript , - - --- ** settingsSetEnableMediaStream - SettingsSetEnableMediaStreamMethodInfo , - settingsSetEnableMediaStream , - - --- ** settingsSetEnableMediasource - SettingsSetEnableMediasourceMethodInfo , - settingsSetEnableMediasource , - - --- ** settingsSetEnableOfflineWebApplicationCache - SettingsSetEnableOfflineWebApplicationCacheMethodInfo, - settingsSetEnableOfflineWebApplicationCache, - - --- ** settingsSetEnablePageCache - SettingsSetEnablePageCacheMethodInfo , - settingsSetEnablePageCache , - - --- ** settingsSetEnablePlugins - SettingsSetEnablePluginsMethodInfo , - settingsSetEnablePlugins , - - --- ** settingsSetEnablePrivateBrowsing - SettingsSetEnablePrivateBrowsingMethodInfo, - settingsSetEnablePrivateBrowsing , - - --- ** settingsSetEnableResizableTextAreas - SettingsSetEnableResizableTextAreasMethodInfo, - settingsSetEnableResizableTextAreas , - - --- ** settingsSetEnableSiteSpecificQuirks - SettingsSetEnableSiteSpecificQuirksMethodInfo, - settingsSetEnableSiteSpecificQuirks , - - --- ** settingsSetEnableSmoothScrolling - SettingsSetEnableSmoothScrollingMethodInfo, - settingsSetEnableSmoothScrolling , - - --- ** settingsSetEnableSpatialNavigation - SettingsSetEnableSpatialNavigationMethodInfo, - settingsSetEnableSpatialNavigation , - - --- ** settingsSetEnableTabsToLinks - SettingsSetEnableTabsToLinksMethodInfo , - settingsSetEnableTabsToLinks , - - --- ** settingsSetEnableWebaudio - SettingsSetEnableWebaudioMethodInfo , - settingsSetEnableWebaudio , - - --- ** settingsSetEnableWebgl - SettingsSetEnableWebglMethodInfo , - settingsSetEnableWebgl , - - --- ** settingsSetEnableWriteConsoleMessagesToStdout - SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo, - settingsSetEnableWriteConsoleMessagesToStdout, - - --- ** settingsSetEnableXssAuditor - SettingsSetEnableXssAuditorMethodInfo , - settingsSetEnableXssAuditor , - - --- ** settingsSetFantasyFontFamily - SettingsSetFantasyFontFamilyMethodInfo , - settingsSetFantasyFontFamily , - - --- ** settingsSetJavascriptCanAccessClipboard - SettingsSetJavascriptCanAccessClipboardMethodInfo, - settingsSetJavascriptCanAccessClipboard , - - --- ** settingsSetJavascriptCanOpenWindowsAutomatically - SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo, - settingsSetJavascriptCanOpenWindowsAutomatically, - - --- ** settingsSetLoadIconsIgnoringImageLoadSetting - SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo, - settingsSetLoadIconsIgnoringImageLoadSetting, - - --- ** settingsSetMediaPlaybackAllowsInline - SettingsSetMediaPlaybackAllowsInlineMethodInfo, - settingsSetMediaPlaybackAllowsInline , - - --- ** settingsSetMediaPlaybackRequiresUserGesture - SettingsSetMediaPlaybackRequiresUserGestureMethodInfo, - settingsSetMediaPlaybackRequiresUserGesture, - - --- ** settingsSetMinimumFontSize - SettingsSetMinimumFontSizeMethodInfo , - settingsSetMinimumFontSize , - - --- ** settingsSetMonospaceFontFamily - SettingsSetMonospaceFontFamilyMethodInfo, - settingsSetMonospaceFontFamily , - - --- ** settingsSetPictographFontFamily - SettingsSetPictographFontFamilyMethodInfo, - settingsSetPictographFontFamily , - - --- ** settingsSetPrintBackgrounds - SettingsSetPrintBackgroundsMethodInfo , - settingsSetPrintBackgrounds , - - --- ** settingsSetSansSerifFontFamily - SettingsSetSansSerifFontFamilyMethodInfo, - settingsSetSansSerifFontFamily , - - --- ** settingsSetSerifFontFamily - SettingsSetSerifFontFamilyMethodInfo , - settingsSetSerifFontFamily , - - --- ** settingsSetUserAgent - SettingsSetUserAgentMethodInfo , - settingsSetUserAgent , - - --- ** settingsSetUserAgentWithApplicationDetails - SettingsSetUserAgentWithApplicationDetailsMethodInfo, - settingsSetUserAgentWithApplicationDetails, - - --- ** settingsSetZoomTextOnly - SettingsSetZoomTextOnlyMethodInfo , - settingsSetZoomTextOnly , - - - - - -- * Properties --- ** AllowFileAccessFromFileUrls - SettingsAllowFileAccessFromFileUrlsPropertyInfo, - constructSettingsAllowFileAccessFromFileUrls, - getSettingsAllowFileAccessFromFileUrls , - setSettingsAllowFileAccessFromFileUrls , - settingsAllowFileAccessFromFileUrls , - - --- ** AllowModalDialogs - SettingsAllowModalDialogsPropertyInfo , - constructSettingsAllowModalDialogs , - getSettingsAllowModalDialogs , - setSettingsAllowModalDialogs , - settingsAllowModalDialogs , - - --- ** AutoLoadImages - SettingsAutoLoadImagesPropertyInfo , - constructSettingsAutoLoadImages , - getSettingsAutoLoadImages , - setSettingsAutoLoadImages , - settingsAutoLoadImages , - - --- ** CursiveFontFamily - SettingsCursiveFontFamilyPropertyInfo , - constructSettingsCursiveFontFamily , - getSettingsCursiveFontFamily , - setSettingsCursiveFontFamily , - settingsCursiveFontFamily , - - --- ** DefaultCharset - SettingsDefaultCharsetPropertyInfo , - constructSettingsDefaultCharset , - getSettingsDefaultCharset , - setSettingsDefaultCharset , - settingsDefaultCharset , - - --- ** DefaultFontFamily - SettingsDefaultFontFamilyPropertyInfo , - constructSettingsDefaultFontFamily , - getSettingsDefaultFontFamily , - setSettingsDefaultFontFamily , - settingsDefaultFontFamily , - - --- ** DefaultFontSize - SettingsDefaultFontSizePropertyInfo , - constructSettingsDefaultFontSize , - getSettingsDefaultFontSize , - setSettingsDefaultFontSize , - settingsDefaultFontSize , - - --- ** DefaultMonospaceFontSize - SettingsDefaultMonospaceFontSizePropertyInfo, - constructSettingsDefaultMonospaceFontSize, - getSettingsDefaultMonospaceFontSize , - setSettingsDefaultMonospaceFontSize , - settingsDefaultMonospaceFontSize , - - --- ** DrawCompositingIndicators - SettingsDrawCompositingIndicatorsPropertyInfo, - constructSettingsDrawCompositingIndicators, - getSettingsDrawCompositingIndicators , - setSettingsDrawCompositingIndicators , - settingsDrawCompositingIndicators , - - --- ** EnableAccelerated2dCanvas - SettingsEnableAccelerated2dCanvasPropertyInfo, - constructSettingsEnableAccelerated2dCanvas, - getSettingsEnableAccelerated2dCanvas , - setSettingsEnableAccelerated2dCanvas , - settingsEnableAccelerated2dCanvas , - - --- ** EnableCaretBrowsing - SettingsEnableCaretBrowsingPropertyInfo , - constructSettingsEnableCaretBrowsing , - getSettingsEnableCaretBrowsing , - setSettingsEnableCaretBrowsing , - settingsEnableCaretBrowsing , - - --- ** EnableDeveloperExtras - SettingsEnableDeveloperExtrasPropertyInfo, - constructSettingsEnableDeveloperExtras , - getSettingsEnableDeveloperExtras , - setSettingsEnableDeveloperExtras , - settingsEnableDeveloperExtras , - - --- ** EnableDnsPrefetching - SettingsEnableDnsPrefetchingPropertyInfo, - constructSettingsEnableDnsPrefetching , - getSettingsEnableDnsPrefetching , - setSettingsEnableDnsPrefetching , - settingsEnableDnsPrefetching , - - --- ** EnableFrameFlattening - SettingsEnableFrameFlatteningPropertyInfo, - constructSettingsEnableFrameFlattening , - getSettingsEnableFrameFlattening , - setSettingsEnableFrameFlattening , - settingsEnableFrameFlattening , - - --- ** EnableFullscreen - SettingsEnableFullscreenPropertyInfo , - constructSettingsEnableFullscreen , - getSettingsEnableFullscreen , - setSettingsEnableFullscreen , - settingsEnableFullscreen , - - --- ** EnableHtml5Database - SettingsEnableHtml5DatabasePropertyInfo , - constructSettingsEnableHtml5Database , - getSettingsEnableHtml5Database , - setSettingsEnableHtml5Database , - settingsEnableHtml5Database , - - --- ** EnableHtml5LocalStorage - SettingsEnableHtml5LocalStoragePropertyInfo, - constructSettingsEnableHtml5LocalStorage, - getSettingsEnableHtml5LocalStorage , - setSettingsEnableHtml5LocalStorage , - settingsEnableHtml5LocalStorage , - - --- ** EnableHyperlinkAuditing - SettingsEnableHyperlinkAuditingPropertyInfo, - constructSettingsEnableHyperlinkAuditing, - getSettingsEnableHyperlinkAuditing , - setSettingsEnableHyperlinkAuditing , - settingsEnableHyperlinkAuditing , - - --- ** EnableJava - SettingsEnableJavaPropertyInfo , - constructSettingsEnableJava , - getSettingsEnableJava , - setSettingsEnableJava , - settingsEnableJava , - - --- ** EnableJavascript - SettingsEnableJavascriptPropertyInfo , - constructSettingsEnableJavascript , - getSettingsEnableJavascript , - setSettingsEnableJavascript , - settingsEnableJavascript , - - --- ** EnableMediaStream - SettingsEnableMediaStreamPropertyInfo , - constructSettingsEnableMediaStream , - getSettingsEnableMediaStream , - setSettingsEnableMediaStream , - settingsEnableMediaStream , - - --- ** EnableMediasource - SettingsEnableMediasourcePropertyInfo , - constructSettingsEnableMediasource , - getSettingsEnableMediasource , - setSettingsEnableMediasource , - settingsEnableMediasource , - - --- ** EnableOfflineWebApplicationCache - SettingsEnableOfflineWebApplicationCachePropertyInfo, - constructSettingsEnableOfflineWebApplicationCache, - getSettingsEnableOfflineWebApplicationCache, - setSettingsEnableOfflineWebApplicationCache, - settingsEnableOfflineWebApplicationCache, - - --- ** EnablePageCache - SettingsEnablePageCachePropertyInfo , - constructSettingsEnablePageCache , - getSettingsEnablePageCache , - setSettingsEnablePageCache , - settingsEnablePageCache , - - --- ** EnablePlugins - SettingsEnablePluginsPropertyInfo , - constructSettingsEnablePlugins , - getSettingsEnablePlugins , - setSettingsEnablePlugins , - settingsEnablePlugins , - - --- ** EnablePrivateBrowsing - SettingsEnablePrivateBrowsingPropertyInfo, - constructSettingsEnablePrivateBrowsing , - getSettingsEnablePrivateBrowsing , - setSettingsEnablePrivateBrowsing , - settingsEnablePrivateBrowsing , - - --- ** EnableResizableTextAreas - SettingsEnableResizableTextAreasPropertyInfo, - constructSettingsEnableResizableTextAreas, - getSettingsEnableResizableTextAreas , - setSettingsEnableResizableTextAreas , - settingsEnableResizableTextAreas , - - --- ** EnableSiteSpecificQuirks - SettingsEnableSiteSpecificQuirksPropertyInfo, - constructSettingsEnableSiteSpecificQuirks, - getSettingsEnableSiteSpecificQuirks , - setSettingsEnableSiteSpecificQuirks , - settingsEnableSiteSpecificQuirks , - - --- ** EnableSmoothScrolling - SettingsEnableSmoothScrollingPropertyInfo, - constructSettingsEnableSmoothScrolling , - getSettingsEnableSmoothScrolling , - setSettingsEnableSmoothScrolling , - settingsEnableSmoothScrolling , - - --- ** EnableSpatialNavigation - SettingsEnableSpatialNavigationPropertyInfo, - constructSettingsEnableSpatialNavigation, - getSettingsEnableSpatialNavigation , - setSettingsEnableSpatialNavigation , - settingsEnableSpatialNavigation , - - --- ** EnableTabsToLinks - SettingsEnableTabsToLinksPropertyInfo , - constructSettingsEnableTabsToLinks , - getSettingsEnableTabsToLinks , - setSettingsEnableTabsToLinks , - settingsEnableTabsToLinks , - - --- ** EnableWebaudio - SettingsEnableWebaudioPropertyInfo , - constructSettingsEnableWebaudio , - getSettingsEnableWebaudio , - setSettingsEnableWebaudio , - settingsEnableWebaudio , - - --- ** EnableWebgl - SettingsEnableWebglPropertyInfo , - constructSettingsEnableWebgl , - getSettingsEnableWebgl , - setSettingsEnableWebgl , - settingsEnableWebgl , - - --- ** EnableWriteConsoleMessagesToStdout - SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo, - constructSettingsEnableWriteConsoleMessagesToStdout, - getSettingsEnableWriteConsoleMessagesToStdout, - setSettingsEnableWriteConsoleMessagesToStdout, - settingsEnableWriteConsoleMessagesToStdout, - - --- ** EnableXssAuditor - SettingsEnableXssAuditorPropertyInfo , - constructSettingsEnableXssAuditor , - getSettingsEnableXssAuditor , - setSettingsEnableXssAuditor , - settingsEnableXssAuditor , - - --- ** FantasyFontFamily - SettingsFantasyFontFamilyPropertyInfo , - constructSettingsFantasyFontFamily , - getSettingsFantasyFontFamily , - setSettingsFantasyFontFamily , - settingsFantasyFontFamily , - - --- ** JavascriptCanAccessClipboard - SettingsJavascriptCanAccessClipboardPropertyInfo, - constructSettingsJavascriptCanAccessClipboard, - getSettingsJavascriptCanAccessClipboard , - setSettingsJavascriptCanAccessClipboard , - settingsJavascriptCanAccessClipboard , - - --- ** JavascriptCanOpenWindowsAutomatically - SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo, - constructSettingsJavascriptCanOpenWindowsAutomatically, - getSettingsJavascriptCanOpenWindowsAutomatically, - setSettingsJavascriptCanOpenWindowsAutomatically, - settingsJavascriptCanOpenWindowsAutomatically, - - --- ** LoadIconsIgnoringImageLoadSetting - SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo, - constructSettingsLoadIconsIgnoringImageLoadSetting, - getSettingsLoadIconsIgnoringImageLoadSetting, - setSettingsLoadIconsIgnoringImageLoadSetting, - settingsLoadIconsIgnoringImageLoadSetting, - - --- ** MediaPlaybackAllowsInline - SettingsMediaPlaybackAllowsInlinePropertyInfo, - constructSettingsMediaPlaybackAllowsInline, - getSettingsMediaPlaybackAllowsInline , - setSettingsMediaPlaybackAllowsInline , - settingsMediaPlaybackAllowsInline , - - --- ** MediaPlaybackRequiresUserGesture - SettingsMediaPlaybackRequiresUserGesturePropertyInfo, - constructSettingsMediaPlaybackRequiresUserGesture, - getSettingsMediaPlaybackRequiresUserGesture, - setSettingsMediaPlaybackRequiresUserGesture, - settingsMediaPlaybackRequiresUserGesture, - - --- ** MinimumFontSize - SettingsMinimumFontSizePropertyInfo , - constructSettingsMinimumFontSize , - getSettingsMinimumFontSize , - setSettingsMinimumFontSize , - settingsMinimumFontSize , - - --- ** MonospaceFontFamily - SettingsMonospaceFontFamilyPropertyInfo , - constructSettingsMonospaceFontFamily , - getSettingsMonospaceFontFamily , - setSettingsMonospaceFontFamily , - settingsMonospaceFontFamily , - - --- ** PictographFontFamily - SettingsPictographFontFamilyPropertyInfo, - constructSettingsPictographFontFamily , - getSettingsPictographFontFamily , - setSettingsPictographFontFamily , - settingsPictographFontFamily , - - --- ** PrintBackgrounds - SettingsPrintBackgroundsPropertyInfo , - constructSettingsPrintBackgrounds , - getSettingsPrintBackgrounds , - setSettingsPrintBackgrounds , - settingsPrintBackgrounds , - - --- ** SansSerifFontFamily - SettingsSansSerifFontFamilyPropertyInfo , - constructSettingsSansSerifFontFamily , - getSettingsSansSerifFontFamily , - setSettingsSansSerifFontFamily , - settingsSansSerifFontFamily , - - --- ** SerifFontFamily - SettingsSerifFontFamilyPropertyInfo , - constructSettingsSerifFontFamily , - getSettingsSerifFontFamily , - setSettingsSerifFontFamily , - settingsSerifFontFamily , - - --- ** UserAgent - SettingsUserAgentPropertyInfo , - clearSettingsUserAgent , - constructSettingsUserAgent , - getSettingsUserAgent , - setSettingsUserAgent , - settingsUserAgent , - - --- ** ZoomTextOnly - SettingsZoomTextOnlyPropertyInfo , - constructSettingsZoomTextOnly , - getSettingsZoomTextOnly , - setSettingsZoomTextOnly , - settingsZoomTextOnly , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype Settings = Settings (ForeignPtr Settings) -foreign import ccall "webkit_settings_get_type" - c_webkit_settings_get_type :: IO GType - -type instance ParentTypes Settings = SettingsParentTypes -type SettingsParentTypes = '[GObject.Object] - -instance GObject Settings where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_settings_get_type - - -class GObject o => SettingsK o -instance (GObject o, IsDescendantOf Settings o) => SettingsK o - -toSettings :: SettingsK o => o -> IO Settings -toSettings = unsafeCastTo Settings - -noSettings :: Maybe Settings -noSettings = Nothing - -type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where - ResolveSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSettingsMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSettingsMethod "getAllowFileAccessFromFileUrls" o = SettingsGetAllowFileAccessFromFileUrlsMethodInfo - ResolveSettingsMethod "getAllowModalDialogs" o = SettingsGetAllowModalDialogsMethodInfo - ResolveSettingsMethod "getAutoLoadImages" o = SettingsGetAutoLoadImagesMethodInfo - ResolveSettingsMethod "getCursiveFontFamily" o = SettingsGetCursiveFontFamilyMethodInfo - ResolveSettingsMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSettingsMethod "getDefaultCharset" o = SettingsGetDefaultCharsetMethodInfo - ResolveSettingsMethod "getDefaultFontFamily" o = SettingsGetDefaultFontFamilyMethodInfo - ResolveSettingsMethod "getDefaultFontSize" o = SettingsGetDefaultFontSizeMethodInfo - ResolveSettingsMethod "getDefaultMonospaceFontSize" o = SettingsGetDefaultMonospaceFontSizeMethodInfo - ResolveSettingsMethod "getDrawCompositingIndicators" o = SettingsGetDrawCompositingIndicatorsMethodInfo - ResolveSettingsMethod "getEnableAccelerated2dCanvas" o = SettingsGetEnableAccelerated2dCanvasMethodInfo - ResolveSettingsMethod "getEnableCaretBrowsing" o = SettingsGetEnableCaretBrowsingMethodInfo - ResolveSettingsMethod "getEnableDeveloperExtras" o = SettingsGetEnableDeveloperExtrasMethodInfo - ResolveSettingsMethod "getEnableDnsPrefetching" o = SettingsGetEnableDnsPrefetchingMethodInfo - ResolveSettingsMethod "getEnableFrameFlattening" o = SettingsGetEnableFrameFlatteningMethodInfo - ResolveSettingsMethod "getEnableFullscreen" o = SettingsGetEnableFullscreenMethodInfo - ResolveSettingsMethod "getEnableHtml5Database" o = SettingsGetEnableHtml5DatabaseMethodInfo - ResolveSettingsMethod "getEnableHtml5LocalStorage" o = SettingsGetEnableHtml5LocalStorageMethodInfo - ResolveSettingsMethod "getEnableHyperlinkAuditing" o = SettingsGetEnableHyperlinkAuditingMethodInfo - ResolveSettingsMethod "getEnableJava" o = SettingsGetEnableJavaMethodInfo - ResolveSettingsMethod "getEnableJavascript" o = SettingsGetEnableJavascriptMethodInfo - ResolveSettingsMethod "getEnableMediaStream" o = SettingsGetEnableMediaStreamMethodInfo - ResolveSettingsMethod "getEnableMediasource" o = SettingsGetEnableMediasourceMethodInfo - ResolveSettingsMethod "getEnableOfflineWebApplicationCache" o = SettingsGetEnableOfflineWebApplicationCacheMethodInfo - ResolveSettingsMethod "getEnablePageCache" o = SettingsGetEnablePageCacheMethodInfo - ResolveSettingsMethod "getEnablePlugins" o = SettingsGetEnablePluginsMethodInfo - ResolveSettingsMethod "getEnablePrivateBrowsing" o = SettingsGetEnablePrivateBrowsingMethodInfo - ResolveSettingsMethod "getEnableResizableTextAreas" o = SettingsGetEnableResizableTextAreasMethodInfo - ResolveSettingsMethod "getEnableSiteSpecificQuirks" o = SettingsGetEnableSiteSpecificQuirksMethodInfo - ResolveSettingsMethod "getEnableSmoothScrolling" o = SettingsGetEnableSmoothScrollingMethodInfo - ResolveSettingsMethod "getEnableSpatialNavigation" o = SettingsGetEnableSpatialNavigationMethodInfo - ResolveSettingsMethod "getEnableTabsToLinks" o = SettingsGetEnableTabsToLinksMethodInfo - ResolveSettingsMethod "getEnableWebaudio" o = SettingsGetEnableWebaudioMethodInfo - ResolveSettingsMethod "getEnableWebgl" o = SettingsGetEnableWebglMethodInfo - ResolveSettingsMethod "getEnableWriteConsoleMessagesToStdout" o = SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo - ResolveSettingsMethod "getEnableXssAuditor" o = SettingsGetEnableXssAuditorMethodInfo - ResolveSettingsMethod "getFantasyFontFamily" o = SettingsGetFantasyFontFamilyMethodInfo - ResolveSettingsMethod "getJavascriptCanAccessClipboard" o = SettingsGetJavascriptCanAccessClipboardMethodInfo - ResolveSettingsMethod "getJavascriptCanOpenWindowsAutomatically" o = SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo - ResolveSettingsMethod "getLoadIconsIgnoringImageLoadSetting" o = SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo - ResolveSettingsMethod "getMediaPlaybackAllowsInline" o = SettingsGetMediaPlaybackAllowsInlineMethodInfo - ResolveSettingsMethod "getMediaPlaybackRequiresUserGesture" o = SettingsGetMediaPlaybackRequiresUserGestureMethodInfo - ResolveSettingsMethod "getMinimumFontSize" o = SettingsGetMinimumFontSizeMethodInfo - ResolveSettingsMethod "getMonospaceFontFamily" o = SettingsGetMonospaceFontFamilyMethodInfo - ResolveSettingsMethod "getPictographFontFamily" o = SettingsGetPictographFontFamilyMethodInfo - ResolveSettingsMethod "getPrintBackgrounds" o = SettingsGetPrintBackgroundsMethodInfo - ResolveSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSettingsMethod "getSansSerifFontFamily" o = SettingsGetSansSerifFontFamilyMethodInfo - ResolveSettingsMethod "getSerifFontFamily" o = SettingsGetSerifFontFamilyMethodInfo - ResolveSettingsMethod "getUserAgent" o = SettingsGetUserAgentMethodInfo - ResolveSettingsMethod "getZoomTextOnly" o = SettingsGetZoomTextOnlyMethodInfo - ResolveSettingsMethod "setAllowFileAccessFromFileUrls" o = SettingsSetAllowFileAccessFromFileUrlsMethodInfo - ResolveSettingsMethod "setAllowModalDialogs" o = SettingsSetAllowModalDialogsMethodInfo - ResolveSettingsMethod "setAutoLoadImages" o = SettingsSetAutoLoadImagesMethodInfo - ResolveSettingsMethod "setCursiveFontFamily" o = SettingsSetCursiveFontFamilyMethodInfo - ResolveSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSettingsMethod "setDefaultCharset" o = SettingsSetDefaultCharsetMethodInfo - ResolveSettingsMethod "setDefaultFontFamily" o = SettingsSetDefaultFontFamilyMethodInfo - ResolveSettingsMethod "setDefaultFontSize" o = SettingsSetDefaultFontSizeMethodInfo - ResolveSettingsMethod "setDefaultMonospaceFontSize" o = SettingsSetDefaultMonospaceFontSizeMethodInfo - ResolveSettingsMethod "setDrawCompositingIndicators" o = SettingsSetDrawCompositingIndicatorsMethodInfo - ResolveSettingsMethod "setEnableAccelerated2dCanvas" o = SettingsSetEnableAccelerated2dCanvasMethodInfo - ResolveSettingsMethod "setEnableCaretBrowsing" o = SettingsSetEnableCaretBrowsingMethodInfo - ResolveSettingsMethod "setEnableDeveloperExtras" o = SettingsSetEnableDeveloperExtrasMethodInfo - ResolveSettingsMethod "setEnableDnsPrefetching" o = SettingsSetEnableDnsPrefetchingMethodInfo - ResolveSettingsMethod "setEnableFrameFlattening" o = SettingsSetEnableFrameFlatteningMethodInfo - ResolveSettingsMethod "setEnableFullscreen" o = SettingsSetEnableFullscreenMethodInfo - ResolveSettingsMethod "setEnableHtml5Database" o = SettingsSetEnableHtml5DatabaseMethodInfo - ResolveSettingsMethod "setEnableHtml5LocalStorage" o = SettingsSetEnableHtml5LocalStorageMethodInfo - ResolveSettingsMethod "setEnableHyperlinkAuditing" o = SettingsSetEnableHyperlinkAuditingMethodInfo - ResolveSettingsMethod "setEnableJava" o = SettingsSetEnableJavaMethodInfo - ResolveSettingsMethod "setEnableJavascript" o = SettingsSetEnableJavascriptMethodInfo - ResolveSettingsMethod "setEnableMediaStream" o = SettingsSetEnableMediaStreamMethodInfo - ResolveSettingsMethod "setEnableMediasource" o = SettingsSetEnableMediasourceMethodInfo - ResolveSettingsMethod "setEnableOfflineWebApplicationCache" o = SettingsSetEnableOfflineWebApplicationCacheMethodInfo - ResolveSettingsMethod "setEnablePageCache" o = SettingsSetEnablePageCacheMethodInfo - ResolveSettingsMethod "setEnablePlugins" o = SettingsSetEnablePluginsMethodInfo - ResolveSettingsMethod "setEnablePrivateBrowsing" o = SettingsSetEnablePrivateBrowsingMethodInfo - ResolveSettingsMethod "setEnableResizableTextAreas" o = SettingsSetEnableResizableTextAreasMethodInfo - ResolveSettingsMethod "setEnableSiteSpecificQuirks" o = SettingsSetEnableSiteSpecificQuirksMethodInfo - ResolveSettingsMethod "setEnableSmoothScrolling" o = SettingsSetEnableSmoothScrollingMethodInfo - ResolveSettingsMethod "setEnableSpatialNavigation" o = SettingsSetEnableSpatialNavigationMethodInfo - ResolveSettingsMethod "setEnableTabsToLinks" o = SettingsSetEnableTabsToLinksMethodInfo - ResolveSettingsMethod "setEnableWebaudio" o = SettingsSetEnableWebaudioMethodInfo - ResolveSettingsMethod "setEnableWebgl" o = SettingsSetEnableWebglMethodInfo - ResolveSettingsMethod "setEnableWriteConsoleMessagesToStdout" o = SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo - ResolveSettingsMethod "setEnableXssAuditor" o = SettingsSetEnableXssAuditorMethodInfo - ResolveSettingsMethod "setFantasyFontFamily" o = SettingsSetFantasyFontFamilyMethodInfo - ResolveSettingsMethod "setJavascriptCanAccessClipboard" o = SettingsSetJavascriptCanAccessClipboardMethodInfo - ResolveSettingsMethod "setJavascriptCanOpenWindowsAutomatically" o = SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo - ResolveSettingsMethod "setLoadIconsIgnoringImageLoadSetting" o = SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo - ResolveSettingsMethod "setMediaPlaybackAllowsInline" o = SettingsSetMediaPlaybackAllowsInlineMethodInfo - ResolveSettingsMethod "setMediaPlaybackRequiresUserGesture" o = SettingsSetMediaPlaybackRequiresUserGestureMethodInfo - ResolveSettingsMethod "setMinimumFontSize" o = SettingsSetMinimumFontSizeMethodInfo - ResolveSettingsMethod "setMonospaceFontFamily" o = SettingsSetMonospaceFontFamilyMethodInfo - ResolveSettingsMethod "setPictographFontFamily" o = SettingsSetPictographFontFamilyMethodInfo - ResolveSettingsMethod "setPrintBackgrounds" o = SettingsSetPrintBackgroundsMethodInfo - ResolveSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSettingsMethod "setSansSerifFontFamily" o = SettingsSetSansSerifFontFamilyMethodInfo - ResolveSettingsMethod "setSerifFontFamily" o = SettingsSetSerifFontFamilyMethodInfo - ResolveSettingsMethod "setUserAgent" o = SettingsSetUserAgentMethodInfo - ResolveSettingsMethod "setUserAgentWithApplicationDetails" o = SettingsSetUserAgentWithApplicationDetailsMethodInfo - ResolveSettingsMethod "setZoomTextOnly" o = SettingsSetZoomTextOnlyMethodInfo - ResolveSettingsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabelProxy t (Settings -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabel t (Settings -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "allow-file-access-from-file-urls" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsAllowFileAccessFromFileUrls :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsAllowFileAccessFromFileUrls obj = liftIO $ getObjectPropertyBool obj "allow-file-access-from-file-urls" - -setSettingsAllowFileAccessFromFileUrls :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsAllowFileAccessFromFileUrls obj val = liftIO $ setObjectPropertyBool obj "allow-file-access-from-file-urls" val - -constructSettingsAllowFileAccessFromFileUrls :: Bool -> IO ([Char], GValue) -constructSettingsAllowFileAccessFromFileUrls val = constructObjectPropertyBool "allow-file-access-from-file-urls" val - -data SettingsAllowFileAccessFromFileUrlsPropertyInfo -instance AttrInfo SettingsAllowFileAccessFromFileUrlsPropertyInfo where - type AttrAllowedOps SettingsAllowFileAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = SettingsK - type AttrGetType SettingsAllowFileAccessFromFileUrlsPropertyInfo = Bool - type AttrLabel SettingsAllowFileAccessFromFileUrlsPropertyInfo = "allow-file-access-from-file-urls" - attrGet _ = getSettingsAllowFileAccessFromFileUrls - attrSet _ = setSettingsAllowFileAccessFromFileUrls - attrConstruct _ = constructSettingsAllowFileAccessFromFileUrls - attrClear _ = undefined - --- VVV Prop "allow-modal-dialogs" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsAllowModalDialogs :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsAllowModalDialogs obj = liftIO $ getObjectPropertyBool obj "allow-modal-dialogs" - -setSettingsAllowModalDialogs :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsAllowModalDialogs obj val = liftIO $ setObjectPropertyBool obj "allow-modal-dialogs" val - -constructSettingsAllowModalDialogs :: Bool -> IO ([Char], GValue) -constructSettingsAllowModalDialogs val = constructObjectPropertyBool "allow-modal-dialogs" val - -data SettingsAllowModalDialogsPropertyInfo -instance AttrInfo SettingsAllowModalDialogsPropertyInfo where - type AttrAllowedOps SettingsAllowModalDialogsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsAllowModalDialogsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsAllowModalDialogsPropertyInfo = SettingsK - type AttrGetType SettingsAllowModalDialogsPropertyInfo = Bool - type AttrLabel SettingsAllowModalDialogsPropertyInfo = "allow-modal-dialogs" - attrGet _ = getSettingsAllowModalDialogs - attrSet _ = setSettingsAllowModalDialogs - attrConstruct _ = constructSettingsAllowModalDialogs - attrClear _ = undefined - --- VVV Prop "auto-load-images" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsAutoLoadImages :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsAutoLoadImages obj = liftIO $ getObjectPropertyBool obj "auto-load-images" - -setSettingsAutoLoadImages :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsAutoLoadImages obj val = liftIO $ setObjectPropertyBool obj "auto-load-images" val - -constructSettingsAutoLoadImages :: Bool -> IO ([Char], GValue) -constructSettingsAutoLoadImages val = constructObjectPropertyBool "auto-load-images" val - -data SettingsAutoLoadImagesPropertyInfo -instance AttrInfo SettingsAutoLoadImagesPropertyInfo where - type AttrAllowedOps SettingsAutoLoadImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsAutoLoadImagesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsAutoLoadImagesPropertyInfo = SettingsK - type AttrGetType SettingsAutoLoadImagesPropertyInfo = Bool - type AttrLabel SettingsAutoLoadImagesPropertyInfo = "auto-load-images" - attrGet _ = getSettingsAutoLoadImages - attrSet _ = setSettingsAutoLoadImages - attrConstruct _ = constructSettingsAutoLoadImages - attrClear _ = undefined - --- VVV Prop "cursive-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsCursiveFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsCursiveFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsCursiveFontFamily" $ getObjectPropertyString obj "cursive-font-family" - -setSettingsCursiveFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsCursiveFontFamily obj val = liftIO $ setObjectPropertyString obj "cursive-font-family" (Just val) - -constructSettingsCursiveFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsCursiveFontFamily val = constructObjectPropertyString "cursive-font-family" (Just val) - -data SettingsCursiveFontFamilyPropertyInfo -instance AttrInfo SettingsCursiveFontFamilyPropertyInfo where - type AttrAllowedOps SettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsCursiveFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsCursiveFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsCursiveFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsCursiveFontFamilyPropertyInfo = "cursive-font-family" - attrGet _ = getSettingsCursiveFontFamily - attrSet _ = setSettingsCursiveFontFamily - attrConstruct _ = constructSettingsCursiveFontFamily - attrClear _ = undefined - --- VVV Prop "default-charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsDefaultCharset :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsDefaultCharset obj = liftIO $ checkUnexpectedNothing "getSettingsDefaultCharset" $ getObjectPropertyString obj "default-charset" - -setSettingsDefaultCharset :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsDefaultCharset obj val = liftIO $ setObjectPropertyString obj "default-charset" (Just val) - -constructSettingsDefaultCharset :: T.Text -> IO ([Char], GValue) -constructSettingsDefaultCharset val = constructObjectPropertyString "default-charset" (Just val) - -data SettingsDefaultCharsetPropertyInfo -instance AttrInfo SettingsDefaultCharsetPropertyInfo where - type AttrAllowedOps SettingsDefaultCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsDefaultCharsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsDefaultCharsetPropertyInfo = SettingsK - type AttrGetType SettingsDefaultCharsetPropertyInfo = T.Text - type AttrLabel SettingsDefaultCharsetPropertyInfo = "default-charset" - attrGet _ = getSettingsDefaultCharset - attrSet _ = setSettingsDefaultCharset - attrConstruct _ = constructSettingsDefaultCharset - attrClear _ = undefined - --- VVV Prop "default-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsDefaultFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsDefaultFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsDefaultFontFamily" $ getObjectPropertyString obj "default-font-family" - -setSettingsDefaultFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsDefaultFontFamily obj val = liftIO $ setObjectPropertyString obj "default-font-family" (Just val) - -constructSettingsDefaultFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsDefaultFontFamily val = constructObjectPropertyString "default-font-family" (Just val) - -data SettingsDefaultFontFamilyPropertyInfo -instance AttrInfo SettingsDefaultFontFamilyPropertyInfo where - type AttrAllowedOps SettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsDefaultFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsDefaultFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsDefaultFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsDefaultFontFamilyPropertyInfo = "default-font-family" - attrGet _ = getSettingsDefaultFontFamily - attrSet _ = setSettingsDefaultFontFamily - attrConstruct _ = constructSettingsDefaultFontFamily - attrClear _ = undefined - --- VVV Prop "default-font-size" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getSettingsDefaultFontSize :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsDefaultFontSize obj = liftIO $ getObjectPropertyUInt32 obj "default-font-size" - -setSettingsDefaultFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsDefaultFontSize obj val = liftIO $ setObjectPropertyUInt32 obj "default-font-size" val - -constructSettingsDefaultFontSize :: Word32 -> IO ([Char], GValue) -constructSettingsDefaultFontSize val = constructObjectPropertyUInt32 "default-font-size" val - -data SettingsDefaultFontSizePropertyInfo -instance AttrInfo SettingsDefaultFontSizePropertyInfo where - type AttrAllowedOps SettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsDefaultFontSizePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsDefaultFontSizePropertyInfo = SettingsK - type AttrGetType SettingsDefaultFontSizePropertyInfo = Word32 - type AttrLabel SettingsDefaultFontSizePropertyInfo = "default-font-size" - attrGet _ = getSettingsDefaultFontSize - attrSet _ = setSettingsDefaultFontSize - attrConstruct _ = constructSettingsDefaultFontSize - attrClear _ = undefined - --- VVV Prop "default-monospace-font-size" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getSettingsDefaultMonospaceFontSize :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsDefaultMonospaceFontSize obj = liftIO $ getObjectPropertyUInt32 obj "default-monospace-font-size" - -setSettingsDefaultMonospaceFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsDefaultMonospaceFontSize obj val = liftIO $ setObjectPropertyUInt32 obj "default-monospace-font-size" val - -constructSettingsDefaultMonospaceFontSize :: Word32 -> IO ([Char], GValue) -constructSettingsDefaultMonospaceFontSize val = constructObjectPropertyUInt32 "default-monospace-font-size" val - -data SettingsDefaultMonospaceFontSizePropertyInfo -instance AttrInfo SettingsDefaultMonospaceFontSizePropertyInfo where - type AttrAllowedOps SettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = SettingsK - type AttrGetType SettingsDefaultMonospaceFontSizePropertyInfo = Word32 - type AttrLabel SettingsDefaultMonospaceFontSizePropertyInfo = "default-monospace-font-size" - attrGet _ = getSettingsDefaultMonospaceFontSize - attrSet _ = setSettingsDefaultMonospaceFontSize - attrConstruct _ = constructSettingsDefaultMonospaceFontSize - attrClear _ = undefined - --- VVV Prop "draw-compositing-indicators" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsDrawCompositingIndicators :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsDrawCompositingIndicators obj = liftIO $ getObjectPropertyBool obj "draw-compositing-indicators" - -setSettingsDrawCompositingIndicators :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsDrawCompositingIndicators obj val = liftIO $ setObjectPropertyBool obj "draw-compositing-indicators" val - -constructSettingsDrawCompositingIndicators :: Bool -> IO ([Char], GValue) -constructSettingsDrawCompositingIndicators val = constructObjectPropertyBool "draw-compositing-indicators" val - -data SettingsDrawCompositingIndicatorsPropertyInfo -instance AttrInfo SettingsDrawCompositingIndicatorsPropertyInfo where - type AttrAllowedOps SettingsDrawCompositingIndicatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = SettingsK - type AttrGetType SettingsDrawCompositingIndicatorsPropertyInfo = Bool - type AttrLabel SettingsDrawCompositingIndicatorsPropertyInfo = "draw-compositing-indicators" - attrGet _ = getSettingsDrawCompositingIndicators - attrSet _ = setSettingsDrawCompositingIndicators - attrConstruct _ = constructSettingsDrawCompositingIndicators - attrClear _ = undefined - --- VVV Prop "enable-accelerated-2d-canvas" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableAccelerated2dCanvas :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableAccelerated2dCanvas obj = liftIO $ getObjectPropertyBool obj "enable-accelerated-2d-canvas" - -setSettingsEnableAccelerated2dCanvas :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableAccelerated2dCanvas obj val = liftIO $ setObjectPropertyBool obj "enable-accelerated-2d-canvas" val - -constructSettingsEnableAccelerated2dCanvas :: Bool -> IO ([Char], GValue) -constructSettingsEnableAccelerated2dCanvas val = constructObjectPropertyBool "enable-accelerated-2d-canvas" val - -data SettingsEnableAccelerated2dCanvasPropertyInfo -instance AttrInfo SettingsEnableAccelerated2dCanvasPropertyInfo where - type AttrAllowedOps SettingsEnableAccelerated2dCanvasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = SettingsK - type AttrGetType SettingsEnableAccelerated2dCanvasPropertyInfo = Bool - type AttrLabel SettingsEnableAccelerated2dCanvasPropertyInfo = "enable-accelerated-2d-canvas" - attrGet _ = getSettingsEnableAccelerated2dCanvas - attrSet _ = setSettingsEnableAccelerated2dCanvas - attrConstruct _ = constructSettingsEnableAccelerated2dCanvas - attrClear _ = undefined - --- VVV Prop "enable-caret-browsing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableCaretBrowsing :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableCaretBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-caret-browsing" - -setSettingsEnableCaretBrowsing :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableCaretBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-caret-browsing" val - -constructSettingsEnableCaretBrowsing :: Bool -> IO ([Char], GValue) -constructSettingsEnableCaretBrowsing val = constructObjectPropertyBool "enable-caret-browsing" val - -data SettingsEnableCaretBrowsingPropertyInfo -instance AttrInfo SettingsEnableCaretBrowsingPropertyInfo where - type AttrAllowedOps SettingsEnableCaretBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = SettingsK - type AttrGetType SettingsEnableCaretBrowsingPropertyInfo = Bool - type AttrLabel SettingsEnableCaretBrowsingPropertyInfo = "enable-caret-browsing" - attrGet _ = getSettingsEnableCaretBrowsing - attrSet _ = setSettingsEnableCaretBrowsing - attrConstruct _ = constructSettingsEnableCaretBrowsing - attrClear _ = undefined - --- VVV Prop "enable-developer-extras" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableDeveloperExtras :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableDeveloperExtras obj = liftIO $ getObjectPropertyBool obj "enable-developer-extras" - -setSettingsEnableDeveloperExtras :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableDeveloperExtras obj val = liftIO $ setObjectPropertyBool obj "enable-developer-extras" val - -constructSettingsEnableDeveloperExtras :: Bool -> IO ([Char], GValue) -constructSettingsEnableDeveloperExtras val = constructObjectPropertyBool "enable-developer-extras" val - -data SettingsEnableDeveloperExtrasPropertyInfo -instance AttrInfo SettingsEnableDeveloperExtrasPropertyInfo where - type AttrAllowedOps SettingsEnableDeveloperExtrasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = SettingsK - type AttrGetType SettingsEnableDeveloperExtrasPropertyInfo = Bool - type AttrLabel SettingsEnableDeveloperExtrasPropertyInfo = "enable-developer-extras" - attrGet _ = getSettingsEnableDeveloperExtras - attrSet _ = setSettingsEnableDeveloperExtras - attrConstruct _ = constructSettingsEnableDeveloperExtras - attrClear _ = undefined - --- VVV Prop "enable-dns-prefetching" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableDnsPrefetching :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableDnsPrefetching obj = liftIO $ getObjectPropertyBool obj "enable-dns-prefetching" - -setSettingsEnableDnsPrefetching :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableDnsPrefetching obj val = liftIO $ setObjectPropertyBool obj "enable-dns-prefetching" val - -constructSettingsEnableDnsPrefetching :: Bool -> IO ([Char], GValue) -constructSettingsEnableDnsPrefetching val = constructObjectPropertyBool "enable-dns-prefetching" val - -data SettingsEnableDnsPrefetchingPropertyInfo -instance AttrInfo SettingsEnableDnsPrefetchingPropertyInfo where - type AttrAllowedOps SettingsEnableDnsPrefetchingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = SettingsK - type AttrGetType SettingsEnableDnsPrefetchingPropertyInfo = Bool - type AttrLabel SettingsEnableDnsPrefetchingPropertyInfo = "enable-dns-prefetching" - attrGet _ = getSettingsEnableDnsPrefetching - attrSet _ = setSettingsEnableDnsPrefetching - attrConstruct _ = constructSettingsEnableDnsPrefetching - attrClear _ = undefined - --- VVV Prop "enable-frame-flattening" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableFrameFlattening :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableFrameFlattening obj = liftIO $ getObjectPropertyBool obj "enable-frame-flattening" - -setSettingsEnableFrameFlattening :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableFrameFlattening obj val = liftIO $ setObjectPropertyBool obj "enable-frame-flattening" val - -constructSettingsEnableFrameFlattening :: Bool -> IO ([Char], GValue) -constructSettingsEnableFrameFlattening val = constructObjectPropertyBool "enable-frame-flattening" val - -data SettingsEnableFrameFlatteningPropertyInfo -instance AttrInfo SettingsEnableFrameFlatteningPropertyInfo where - type AttrAllowedOps SettingsEnableFrameFlatteningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = SettingsK - type AttrGetType SettingsEnableFrameFlatteningPropertyInfo = Bool - type AttrLabel SettingsEnableFrameFlatteningPropertyInfo = "enable-frame-flattening" - attrGet _ = getSettingsEnableFrameFlattening - attrSet _ = setSettingsEnableFrameFlattening - attrConstruct _ = constructSettingsEnableFrameFlattening - attrClear _ = undefined - --- VVV Prop "enable-fullscreen" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableFullscreen :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableFullscreen obj = liftIO $ getObjectPropertyBool obj "enable-fullscreen" - -setSettingsEnableFullscreen :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableFullscreen obj val = liftIO $ setObjectPropertyBool obj "enable-fullscreen" val - -constructSettingsEnableFullscreen :: Bool -> IO ([Char], GValue) -constructSettingsEnableFullscreen val = constructObjectPropertyBool "enable-fullscreen" val - -data SettingsEnableFullscreenPropertyInfo -instance AttrInfo SettingsEnableFullscreenPropertyInfo where - type AttrAllowedOps SettingsEnableFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableFullscreenPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableFullscreenPropertyInfo = SettingsK - type AttrGetType SettingsEnableFullscreenPropertyInfo = Bool - type AttrLabel SettingsEnableFullscreenPropertyInfo = "enable-fullscreen" - attrGet _ = getSettingsEnableFullscreen - attrSet _ = setSettingsEnableFullscreen - attrConstruct _ = constructSettingsEnableFullscreen - attrClear _ = undefined - --- VVV Prop "enable-html5-database" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableHtml5Database :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableHtml5Database obj = liftIO $ getObjectPropertyBool obj "enable-html5-database" - -setSettingsEnableHtml5Database :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableHtml5Database obj val = liftIO $ setObjectPropertyBool obj "enable-html5-database" val - -constructSettingsEnableHtml5Database :: Bool -> IO ([Char], GValue) -constructSettingsEnableHtml5Database val = constructObjectPropertyBool "enable-html5-database" val - -data SettingsEnableHtml5DatabasePropertyInfo -instance AttrInfo SettingsEnableHtml5DatabasePropertyInfo where - type AttrAllowedOps SettingsEnableHtml5DatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = SettingsK - type AttrGetType SettingsEnableHtml5DatabasePropertyInfo = Bool - type AttrLabel SettingsEnableHtml5DatabasePropertyInfo = "enable-html5-database" - attrGet _ = getSettingsEnableHtml5Database - attrSet _ = setSettingsEnableHtml5Database - attrConstruct _ = constructSettingsEnableHtml5Database - attrClear _ = undefined - --- VVV Prop "enable-html5-local-storage" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableHtml5LocalStorage :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableHtml5LocalStorage obj = liftIO $ getObjectPropertyBool obj "enable-html5-local-storage" - -setSettingsEnableHtml5LocalStorage :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableHtml5LocalStorage obj val = liftIO $ setObjectPropertyBool obj "enable-html5-local-storage" val - -constructSettingsEnableHtml5LocalStorage :: Bool -> IO ([Char], GValue) -constructSettingsEnableHtml5LocalStorage val = constructObjectPropertyBool "enable-html5-local-storage" val - -data SettingsEnableHtml5LocalStoragePropertyInfo -instance AttrInfo SettingsEnableHtml5LocalStoragePropertyInfo where - type AttrAllowedOps SettingsEnableHtml5LocalStoragePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = SettingsK - type AttrGetType SettingsEnableHtml5LocalStoragePropertyInfo = Bool - type AttrLabel SettingsEnableHtml5LocalStoragePropertyInfo = "enable-html5-local-storage" - attrGet _ = getSettingsEnableHtml5LocalStorage - attrSet _ = setSettingsEnableHtml5LocalStorage - attrConstruct _ = constructSettingsEnableHtml5LocalStorage - attrClear _ = undefined - --- VVV Prop "enable-hyperlink-auditing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableHyperlinkAuditing :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableHyperlinkAuditing obj = liftIO $ getObjectPropertyBool obj "enable-hyperlink-auditing" - -setSettingsEnableHyperlinkAuditing :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableHyperlinkAuditing obj val = liftIO $ setObjectPropertyBool obj "enable-hyperlink-auditing" val - -constructSettingsEnableHyperlinkAuditing :: Bool -> IO ([Char], GValue) -constructSettingsEnableHyperlinkAuditing val = constructObjectPropertyBool "enable-hyperlink-auditing" val - -data SettingsEnableHyperlinkAuditingPropertyInfo -instance AttrInfo SettingsEnableHyperlinkAuditingPropertyInfo where - type AttrAllowedOps SettingsEnableHyperlinkAuditingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = SettingsK - type AttrGetType SettingsEnableHyperlinkAuditingPropertyInfo = Bool - type AttrLabel SettingsEnableHyperlinkAuditingPropertyInfo = "enable-hyperlink-auditing" - attrGet _ = getSettingsEnableHyperlinkAuditing - attrSet _ = setSettingsEnableHyperlinkAuditing - attrConstruct _ = constructSettingsEnableHyperlinkAuditing - attrClear _ = undefined - --- VVV Prop "enable-java" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableJava :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableJava obj = liftIO $ getObjectPropertyBool obj "enable-java" - -setSettingsEnableJava :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableJava obj val = liftIO $ setObjectPropertyBool obj "enable-java" val - -constructSettingsEnableJava :: Bool -> IO ([Char], GValue) -constructSettingsEnableJava val = constructObjectPropertyBool "enable-java" val - -data SettingsEnableJavaPropertyInfo -instance AttrInfo SettingsEnableJavaPropertyInfo where - type AttrAllowedOps SettingsEnableJavaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableJavaPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableJavaPropertyInfo = SettingsK - type AttrGetType SettingsEnableJavaPropertyInfo = Bool - type AttrLabel SettingsEnableJavaPropertyInfo = "enable-java" - attrGet _ = getSettingsEnableJava - attrSet _ = setSettingsEnableJava - attrConstruct _ = constructSettingsEnableJava - attrClear _ = undefined - --- VVV Prop "enable-javascript" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableJavascript :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableJavascript obj = liftIO $ getObjectPropertyBool obj "enable-javascript" - -setSettingsEnableJavascript :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableJavascript obj val = liftIO $ setObjectPropertyBool obj "enable-javascript" val - -constructSettingsEnableJavascript :: Bool -> IO ([Char], GValue) -constructSettingsEnableJavascript val = constructObjectPropertyBool "enable-javascript" val - -data SettingsEnableJavascriptPropertyInfo -instance AttrInfo SettingsEnableJavascriptPropertyInfo where - type AttrAllowedOps SettingsEnableJavascriptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableJavascriptPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableJavascriptPropertyInfo = SettingsK - type AttrGetType SettingsEnableJavascriptPropertyInfo = Bool - type AttrLabel SettingsEnableJavascriptPropertyInfo = "enable-javascript" - attrGet _ = getSettingsEnableJavascript - attrSet _ = setSettingsEnableJavascript - attrConstruct _ = constructSettingsEnableJavascript - attrClear _ = undefined - --- VVV Prop "enable-media-stream" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableMediaStream :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableMediaStream obj = liftIO $ getObjectPropertyBool obj "enable-media-stream" - -setSettingsEnableMediaStream :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableMediaStream obj val = liftIO $ setObjectPropertyBool obj "enable-media-stream" val - -constructSettingsEnableMediaStream :: Bool -> IO ([Char], GValue) -constructSettingsEnableMediaStream val = constructObjectPropertyBool "enable-media-stream" val - -data SettingsEnableMediaStreamPropertyInfo -instance AttrInfo SettingsEnableMediaStreamPropertyInfo where - type AttrAllowedOps SettingsEnableMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableMediaStreamPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableMediaStreamPropertyInfo = SettingsK - type AttrGetType SettingsEnableMediaStreamPropertyInfo = Bool - type AttrLabel SettingsEnableMediaStreamPropertyInfo = "enable-media-stream" - attrGet _ = getSettingsEnableMediaStream - attrSet _ = setSettingsEnableMediaStream - attrConstruct _ = constructSettingsEnableMediaStream - attrClear _ = undefined - --- VVV Prop "enable-mediasource" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableMediasource :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableMediasource obj = liftIO $ getObjectPropertyBool obj "enable-mediasource" - -setSettingsEnableMediasource :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableMediasource obj val = liftIO $ setObjectPropertyBool obj "enable-mediasource" val - -constructSettingsEnableMediasource :: Bool -> IO ([Char], GValue) -constructSettingsEnableMediasource val = constructObjectPropertyBool "enable-mediasource" val - -data SettingsEnableMediasourcePropertyInfo -instance AttrInfo SettingsEnableMediasourcePropertyInfo where - type AttrAllowedOps SettingsEnableMediasourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableMediasourcePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableMediasourcePropertyInfo = SettingsK - type AttrGetType SettingsEnableMediasourcePropertyInfo = Bool - type AttrLabel SettingsEnableMediasourcePropertyInfo = "enable-mediasource" - attrGet _ = getSettingsEnableMediasource - attrSet _ = setSettingsEnableMediasource - attrConstruct _ = constructSettingsEnableMediasource - attrClear _ = undefined - --- VVV Prop "enable-offline-web-application-cache" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableOfflineWebApplicationCache :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableOfflineWebApplicationCache obj = liftIO $ getObjectPropertyBool obj "enable-offline-web-application-cache" - -setSettingsEnableOfflineWebApplicationCache :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableOfflineWebApplicationCache obj val = liftIO $ setObjectPropertyBool obj "enable-offline-web-application-cache" val - -constructSettingsEnableOfflineWebApplicationCache :: Bool -> IO ([Char], GValue) -constructSettingsEnableOfflineWebApplicationCache val = constructObjectPropertyBool "enable-offline-web-application-cache" val - -data SettingsEnableOfflineWebApplicationCachePropertyInfo -instance AttrInfo SettingsEnableOfflineWebApplicationCachePropertyInfo where - type AttrAllowedOps SettingsEnableOfflineWebApplicationCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = SettingsK - type AttrGetType SettingsEnableOfflineWebApplicationCachePropertyInfo = Bool - type AttrLabel SettingsEnableOfflineWebApplicationCachePropertyInfo = "enable-offline-web-application-cache" - attrGet _ = getSettingsEnableOfflineWebApplicationCache - attrSet _ = setSettingsEnableOfflineWebApplicationCache - attrConstruct _ = constructSettingsEnableOfflineWebApplicationCache - attrClear _ = undefined - --- VVV Prop "enable-page-cache" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnablePageCache :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnablePageCache obj = liftIO $ getObjectPropertyBool obj "enable-page-cache" - -setSettingsEnablePageCache :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnablePageCache obj val = liftIO $ setObjectPropertyBool obj "enable-page-cache" val - -constructSettingsEnablePageCache :: Bool -> IO ([Char], GValue) -constructSettingsEnablePageCache val = constructObjectPropertyBool "enable-page-cache" val - -data SettingsEnablePageCachePropertyInfo -instance AttrInfo SettingsEnablePageCachePropertyInfo where - type AttrAllowedOps SettingsEnablePageCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnablePageCachePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnablePageCachePropertyInfo = SettingsK - type AttrGetType SettingsEnablePageCachePropertyInfo = Bool - type AttrLabel SettingsEnablePageCachePropertyInfo = "enable-page-cache" - attrGet _ = getSettingsEnablePageCache - attrSet _ = setSettingsEnablePageCache - attrConstruct _ = constructSettingsEnablePageCache - attrClear _ = undefined - --- VVV Prop "enable-plugins" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnablePlugins :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnablePlugins obj = liftIO $ getObjectPropertyBool obj "enable-plugins" - -setSettingsEnablePlugins :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnablePlugins obj val = liftIO $ setObjectPropertyBool obj "enable-plugins" val - -constructSettingsEnablePlugins :: Bool -> IO ([Char], GValue) -constructSettingsEnablePlugins val = constructObjectPropertyBool "enable-plugins" val - -data SettingsEnablePluginsPropertyInfo -instance AttrInfo SettingsEnablePluginsPropertyInfo where - type AttrAllowedOps SettingsEnablePluginsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnablePluginsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnablePluginsPropertyInfo = SettingsK - type AttrGetType SettingsEnablePluginsPropertyInfo = Bool - type AttrLabel SettingsEnablePluginsPropertyInfo = "enable-plugins" - attrGet _ = getSettingsEnablePlugins - attrSet _ = setSettingsEnablePlugins - attrConstruct _ = constructSettingsEnablePlugins - attrClear _ = undefined - --- VVV Prop "enable-private-browsing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnablePrivateBrowsing :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnablePrivateBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-private-browsing" - -setSettingsEnablePrivateBrowsing :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnablePrivateBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-private-browsing" val - -constructSettingsEnablePrivateBrowsing :: Bool -> IO ([Char], GValue) -constructSettingsEnablePrivateBrowsing val = constructObjectPropertyBool "enable-private-browsing" val - -data SettingsEnablePrivateBrowsingPropertyInfo -instance AttrInfo SettingsEnablePrivateBrowsingPropertyInfo where - type AttrAllowedOps SettingsEnablePrivateBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = SettingsK - type AttrGetType SettingsEnablePrivateBrowsingPropertyInfo = Bool - type AttrLabel SettingsEnablePrivateBrowsingPropertyInfo = "enable-private-browsing" - attrGet _ = getSettingsEnablePrivateBrowsing - attrSet _ = setSettingsEnablePrivateBrowsing - attrConstruct _ = constructSettingsEnablePrivateBrowsing - attrClear _ = undefined - --- VVV Prop "enable-resizable-text-areas" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableResizableTextAreas :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableResizableTextAreas obj = liftIO $ getObjectPropertyBool obj "enable-resizable-text-areas" - -setSettingsEnableResizableTextAreas :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableResizableTextAreas obj val = liftIO $ setObjectPropertyBool obj "enable-resizable-text-areas" val - -constructSettingsEnableResizableTextAreas :: Bool -> IO ([Char], GValue) -constructSettingsEnableResizableTextAreas val = constructObjectPropertyBool "enable-resizable-text-areas" val - -data SettingsEnableResizableTextAreasPropertyInfo -instance AttrInfo SettingsEnableResizableTextAreasPropertyInfo where - type AttrAllowedOps SettingsEnableResizableTextAreasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = SettingsK - type AttrGetType SettingsEnableResizableTextAreasPropertyInfo = Bool - type AttrLabel SettingsEnableResizableTextAreasPropertyInfo = "enable-resizable-text-areas" - attrGet _ = getSettingsEnableResizableTextAreas - attrSet _ = setSettingsEnableResizableTextAreas - attrConstruct _ = constructSettingsEnableResizableTextAreas - attrClear _ = undefined - --- VVV Prop "enable-site-specific-quirks" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableSiteSpecificQuirks :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableSiteSpecificQuirks obj = liftIO $ getObjectPropertyBool obj "enable-site-specific-quirks" - -setSettingsEnableSiteSpecificQuirks :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableSiteSpecificQuirks obj val = liftIO $ setObjectPropertyBool obj "enable-site-specific-quirks" val - -constructSettingsEnableSiteSpecificQuirks :: Bool -> IO ([Char], GValue) -constructSettingsEnableSiteSpecificQuirks val = constructObjectPropertyBool "enable-site-specific-quirks" val - -data SettingsEnableSiteSpecificQuirksPropertyInfo -instance AttrInfo SettingsEnableSiteSpecificQuirksPropertyInfo where - type AttrAllowedOps SettingsEnableSiteSpecificQuirksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = SettingsK - type AttrGetType SettingsEnableSiteSpecificQuirksPropertyInfo = Bool - type AttrLabel SettingsEnableSiteSpecificQuirksPropertyInfo = "enable-site-specific-quirks" - attrGet _ = getSettingsEnableSiteSpecificQuirks - attrSet _ = setSettingsEnableSiteSpecificQuirks - attrConstruct _ = constructSettingsEnableSiteSpecificQuirks - attrClear _ = undefined - --- VVV Prop "enable-smooth-scrolling" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableSmoothScrolling :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableSmoothScrolling obj = liftIO $ getObjectPropertyBool obj "enable-smooth-scrolling" - -setSettingsEnableSmoothScrolling :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableSmoothScrolling obj val = liftIO $ setObjectPropertyBool obj "enable-smooth-scrolling" val - -constructSettingsEnableSmoothScrolling :: Bool -> IO ([Char], GValue) -constructSettingsEnableSmoothScrolling val = constructObjectPropertyBool "enable-smooth-scrolling" val - -data SettingsEnableSmoothScrollingPropertyInfo -instance AttrInfo SettingsEnableSmoothScrollingPropertyInfo where - type AttrAllowedOps SettingsEnableSmoothScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = SettingsK - type AttrGetType SettingsEnableSmoothScrollingPropertyInfo = Bool - type AttrLabel SettingsEnableSmoothScrollingPropertyInfo = "enable-smooth-scrolling" - attrGet _ = getSettingsEnableSmoothScrolling - attrSet _ = setSettingsEnableSmoothScrolling - attrConstruct _ = constructSettingsEnableSmoothScrolling - attrClear _ = undefined - --- VVV Prop "enable-spatial-navigation" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableSpatialNavigation :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableSpatialNavigation obj = liftIO $ getObjectPropertyBool obj "enable-spatial-navigation" - -setSettingsEnableSpatialNavigation :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableSpatialNavigation obj val = liftIO $ setObjectPropertyBool obj "enable-spatial-navigation" val - -constructSettingsEnableSpatialNavigation :: Bool -> IO ([Char], GValue) -constructSettingsEnableSpatialNavigation val = constructObjectPropertyBool "enable-spatial-navigation" val - -data SettingsEnableSpatialNavigationPropertyInfo -instance AttrInfo SettingsEnableSpatialNavigationPropertyInfo where - type AttrAllowedOps SettingsEnableSpatialNavigationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = SettingsK - type AttrGetType SettingsEnableSpatialNavigationPropertyInfo = Bool - type AttrLabel SettingsEnableSpatialNavigationPropertyInfo = "enable-spatial-navigation" - attrGet _ = getSettingsEnableSpatialNavigation - attrSet _ = setSettingsEnableSpatialNavigation - attrConstruct _ = constructSettingsEnableSpatialNavigation - attrClear _ = undefined - --- VVV Prop "enable-tabs-to-links" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableTabsToLinks :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableTabsToLinks obj = liftIO $ getObjectPropertyBool obj "enable-tabs-to-links" - -setSettingsEnableTabsToLinks :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableTabsToLinks obj val = liftIO $ setObjectPropertyBool obj "enable-tabs-to-links" val - -constructSettingsEnableTabsToLinks :: Bool -> IO ([Char], GValue) -constructSettingsEnableTabsToLinks val = constructObjectPropertyBool "enable-tabs-to-links" val - -data SettingsEnableTabsToLinksPropertyInfo -instance AttrInfo SettingsEnableTabsToLinksPropertyInfo where - type AttrAllowedOps SettingsEnableTabsToLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableTabsToLinksPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableTabsToLinksPropertyInfo = SettingsK - type AttrGetType SettingsEnableTabsToLinksPropertyInfo = Bool - type AttrLabel SettingsEnableTabsToLinksPropertyInfo = "enable-tabs-to-links" - attrGet _ = getSettingsEnableTabsToLinks - attrSet _ = setSettingsEnableTabsToLinks - attrConstruct _ = constructSettingsEnableTabsToLinks - attrClear _ = undefined - --- VVV Prop "enable-webaudio" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableWebaudio :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableWebaudio obj = liftIO $ getObjectPropertyBool obj "enable-webaudio" - -setSettingsEnableWebaudio :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableWebaudio obj val = liftIO $ setObjectPropertyBool obj "enable-webaudio" val - -constructSettingsEnableWebaudio :: Bool -> IO ([Char], GValue) -constructSettingsEnableWebaudio val = constructObjectPropertyBool "enable-webaudio" val - -data SettingsEnableWebaudioPropertyInfo -instance AttrInfo SettingsEnableWebaudioPropertyInfo where - type AttrAllowedOps SettingsEnableWebaudioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableWebaudioPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableWebaudioPropertyInfo = SettingsK - type AttrGetType SettingsEnableWebaudioPropertyInfo = Bool - type AttrLabel SettingsEnableWebaudioPropertyInfo = "enable-webaudio" - attrGet _ = getSettingsEnableWebaudio - attrSet _ = setSettingsEnableWebaudio - attrConstruct _ = constructSettingsEnableWebaudio - attrClear _ = undefined - --- VVV Prop "enable-webgl" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableWebgl :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableWebgl obj = liftIO $ getObjectPropertyBool obj "enable-webgl" - -setSettingsEnableWebgl :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableWebgl obj val = liftIO $ setObjectPropertyBool obj "enable-webgl" val - -constructSettingsEnableWebgl :: Bool -> IO ([Char], GValue) -constructSettingsEnableWebgl val = constructObjectPropertyBool "enable-webgl" val - -data SettingsEnableWebglPropertyInfo -instance AttrInfo SettingsEnableWebglPropertyInfo where - type AttrAllowedOps SettingsEnableWebglPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableWebglPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableWebglPropertyInfo = SettingsK - type AttrGetType SettingsEnableWebglPropertyInfo = Bool - type AttrLabel SettingsEnableWebglPropertyInfo = "enable-webgl" - attrGet _ = getSettingsEnableWebgl - attrSet _ = setSettingsEnableWebgl - attrConstruct _ = constructSettingsEnableWebgl - attrClear _ = undefined - --- VVV Prop "enable-write-console-messages-to-stdout" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableWriteConsoleMessagesToStdout obj = liftIO $ getObjectPropertyBool obj "enable-write-console-messages-to-stdout" - -setSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableWriteConsoleMessagesToStdout obj val = liftIO $ setObjectPropertyBool obj "enable-write-console-messages-to-stdout" val - -constructSettingsEnableWriteConsoleMessagesToStdout :: Bool -> IO ([Char], GValue) -constructSettingsEnableWriteConsoleMessagesToStdout val = constructObjectPropertyBool "enable-write-console-messages-to-stdout" val - -data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo -instance AttrInfo SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo where - type AttrAllowedOps SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = SettingsK - type AttrGetType SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Bool - type AttrLabel SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = "enable-write-console-messages-to-stdout" - attrGet _ = getSettingsEnableWriteConsoleMessagesToStdout - attrSet _ = setSettingsEnableWriteConsoleMessagesToStdout - attrConstruct _ = constructSettingsEnableWriteConsoleMessagesToStdout - attrClear _ = undefined - --- VVV Prop "enable-xss-auditor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsEnableXssAuditor :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsEnableXssAuditor obj = liftIO $ getObjectPropertyBool obj "enable-xss-auditor" - -setSettingsEnableXssAuditor :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsEnableXssAuditor obj val = liftIO $ setObjectPropertyBool obj "enable-xss-auditor" val - -constructSettingsEnableXssAuditor :: Bool -> IO ([Char], GValue) -constructSettingsEnableXssAuditor val = constructObjectPropertyBool "enable-xss-auditor" val - -data SettingsEnableXssAuditorPropertyInfo -instance AttrInfo SettingsEnableXssAuditorPropertyInfo where - type AttrAllowedOps SettingsEnableXssAuditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsEnableXssAuditorPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsEnableXssAuditorPropertyInfo = SettingsK - type AttrGetType SettingsEnableXssAuditorPropertyInfo = Bool - type AttrLabel SettingsEnableXssAuditorPropertyInfo = "enable-xss-auditor" - attrGet _ = getSettingsEnableXssAuditor - attrSet _ = setSettingsEnableXssAuditor - attrConstruct _ = constructSettingsEnableXssAuditor - attrClear _ = undefined - --- VVV Prop "fantasy-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsFantasyFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsFantasyFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsFantasyFontFamily" $ getObjectPropertyString obj "fantasy-font-family" - -setSettingsFantasyFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsFantasyFontFamily obj val = liftIO $ setObjectPropertyString obj "fantasy-font-family" (Just val) - -constructSettingsFantasyFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsFantasyFontFamily val = constructObjectPropertyString "fantasy-font-family" (Just val) - -data SettingsFantasyFontFamilyPropertyInfo -instance AttrInfo SettingsFantasyFontFamilyPropertyInfo where - type AttrAllowedOps SettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsFantasyFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsFantasyFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsFantasyFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsFantasyFontFamilyPropertyInfo = "fantasy-font-family" - attrGet _ = getSettingsFantasyFontFamily - attrSet _ = setSettingsFantasyFontFamily - attrConstruct _ = constructSettingsFantasyFontFamily - attrClear _ = undefined - --- VVV Prop "javascript-can-access-clipboard" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsJavascriptCanAccessClipboard :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsJavascriptCanAccessClipboard obj = liftIO $ getObjectPropertyBool obj "javascript-can-access-clipboard" - -setSettingsJavascriptCanAccessClipboard :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsJavascriptCanAccessClipboard obj val = liftIO $ setObjectPropertyBool obj "javascript-can-access-clipboard" val - -constructSettingsJavascriptCanAccessClipboard :: Bool -> IO ([Char], GValue) -constructSettingsJavascriptCanAccessClipboard val = constructObjectPropertyBool "javascript-can-access-clipboard" val - -data SettingsJavascriptCanAccessClipboardPropertyInfo -instance AttrInfo SettingsJavascriptCanAccessClipboardPropertyInfo where - type AttrAllowedOps SettingsJavascriptCanAccessClipboardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = SettingsK - type AttrGetType SettingsJavascriptCanAccessClipboardPropertyInfo = Bool - type AttrLabel SettingsJavascriptCanAccessClipboardPropertyInfo = "javascript-can-access-clipboard" - attrGet _ = getSettingsJavascriptCanAccessClipboard - attrSet _ = setSettingsJavascriptCanAccessClipboard - attrConstruct _ = constructSettingsJavascriptCanAccessClipboard - attrClear _ = undefined - --- VVV Prop "javascript-can-open-windows-automatically" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ getObjectPropertyBool obj "javascript-can-open-windows-automatically" - -setSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsJavascriptCanOpenWindowsAutomatically obj val = liftIO $ setObjectPropertyBool obj "javascript-can-open-windows-automatically" val - -constructSettingsJavascriptCanOpenWindowsAutomatically :: Bool -> IO ([Char], GValue) -constructSettingsJavascriptCanOpenWindowsAutomatically val = constructObjectPropertyBool "javascript-can-open-windows-automatically" val - -data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo -instance AttrInfo SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo where - type AttrAllowedOps SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = SettingsK - type AttrGetType SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool - type AttrLabel SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "javascript-can-open-windows-automatically" - attrGet _ = getSettingsJavascriptCanOpenWindowsAutomatically - attrSet _ = setSettingsJavascriptCanOpenWindowsAutomatically - attrConstruct _ = constructSettingsJavascriptCanOpenWindowsAutomatically - attrClear _ = undefined - --- VVV Prop "load-icons-ignoring-image-load-setting" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsLoadIconsIgnoringImageLoadSetting obj = liftIO $ getObjectPropertyBool obj "load-icons-ignoring-image-load-setting" - -setSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsLoadIconsIgnoringImageLoadSetting obj val = liftIO $ setObjectPropertyBool obj "load-icons-ignoring-image-load-setting" val - -constructSettingsLoadIconsIgnoringImageLoadSetting :: Bool -> IO ([Char], GValue) -constructSettingsLoadIconsIgnoringImageLoadSetting val = constructObjectPropertyBool "load-icons-ignoring-image-load-setting" val - -data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo -instance AttrInfo SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo where - type AttrAllowedOps SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = SettingsK - type AttrGetType SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Bool - type AttrLabel SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = "load-icons-ignoring-image-load-setting" - attrGet _ = getSettingsLoadIconsIgnoringImageLoadSetting - attrSet _ = setSettingsLoadIconsIgnoringImageLoadSetting - attrConstruct _ = constructSettingsLoadIconsIgnoringImageLoadSetting - attrClear _ = undefined - --- VVV Prop "media-playback-allows-inline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsMediaPlaybackAllowsInline :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsMediaPlaybackAllowsInline obj = liftIO $ getObjectPropertyBool obj "media-playback-allows-inline" - -setSettingsMediaPlaybackAllowsInline :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsMediaPlaybackAllowsInline obj val = liftIO $ setObjectPropertyBool obj "media-playback-allows-inline" val - -constructSettingsMediaPlaybackAllowsInline :: Bool -> IO ([Char], GValue) -constructSettingsMediaPlaybackAllowsInline val = constructObjectPropertyBool "media-playback-allows-inline" val - -data SettingsMediaPlaybackAllowsInlinePropertyInfo -instance AttrInfo SettingsMediaPlaybackAllowsInlinePropertyInfo where - type AttrAllowedOps SettingsMediaPlaybackAllowsInlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = SettingsK - type AttrGetType SettingsMediaPlaybackAllowsInlinePropertyInfo = Bool - type AttrLabel SettingsMediaPlaybackAllowsInlinePropertyInfo = "media-playback-allows-inline" - attrGet _ = getSettingsMediaPlaybackAllowsInline - attrSet _ = setSettingsMediaPlaybackAllowsInline - attrConstruct _ = constructSettingsMediaPlaybackAllowsInline - attrClear _ = undefined - --- VVV Prop "media-playback-requires-user-gesture" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ getObjectPropertyBool obj "media-playback-requires-user-gesture" - -setSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsMediaPlaybackRequiresUserGesture obj val = liftIO $ setObjectPropertyBool obj "media-playback-requires-user-gesture" val - -constructSettingsMediaPlaybackRequiresUserGesture :: Bool -> IO ([Char], GValue) -constructSettingsMediaPlaybackRequiresUserGesture val = constructObjectPropertyBool "media-playback-requires-user-gesture" val - -data SettingsMediaPlaybackRequiresUserGesturePropertyInfo -instance AttrInfo SettingsMediaPlaybackRequiresUserGesturePropertyInfo where - type AttrAllowedOps SettingsMediaPlaybackRequiresUserGesturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = SettingsK - type AttrGetType SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool - type AttrLabel SettingsMediaPlaybackRequiresUserGesturePropertyInfo = "media-playback-requires-user-gesture" - attrGet _ = getSettingsMediaPlaybackRequiresUserGesture - attrSet _ = setSettingsMediaPlaybackRequiresUserGesture - attrConstruct _ = constructSettingsMediaPlaybackRequiresUserGesture - attrClear _ = undefined - --- VVV Prop "minimum-font-size" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getSettingsMinimumFontSize :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsMinimumFontSize obj = liftIO $ getObjectPropertyUInt32 obj "minimum-font-size" - -setSettingsMinimumFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsMinimumFontSize obj val = liftIO $ setObjectPropertyUInt32 obj "minimum-font-size" val - -constructSettingsMinimumFontSize :: Word32 -> IO ([Char], GValue) -constructSettingsMinimumFontSize val = constructObjectPropertyUInt32 "minimum-font-size" val - -data SettingsMinimumFontSizePropertyInfo -instance AttrInfo SettingsMinimumFontSizePropertyInfo where - type AttrAllowedOps SettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsMinimumFontSizePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsMinimumFontSizePropertyInfo = SettingsK - type AttrGetType SettingsMinimumFontSizePropertyInfo = Word32 - type AttrLabel SettingsMinimumFontSizePropertyInfo = "minimum-font-size" - attrGet _ = getSettingsMinimumFontSize - attrSet _ = setSettingsMinimumFontSize - attrConstruct _ = constructSettingsMinimumFontSize - attrClear _ = undefined - --- VVV Prop "monospace-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsMonospaceFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsMonospaceFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsMonospaceFontFamily" $ getObjectPropertyString obj "monospace-font-family" - -setSettingsMonospaceFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsMonospaceFontFamily obj val = liftIO $ setObjectPropertyString obj "monospace-font-family" (Just val) - -constructSettingsMonospaceFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsMonospaceFontFamily val = constructObjectPropertyString "monospace-font-family" (Just val) - -data SettingsMonospaceFontFamilyPropertyInfo -instance AttrInfo SettingsMonospaceFontFamilyPropertyInfo where - type AttrAllowedOps SettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsMonospaceFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsMonospaceFontFamilyPropertyInfo = "monospace-font-family" - attrGet _ = getSettingsMonospaceFontFamily - attrSet _ = setSettingsMonospaceFontFamily - attrConstruct _ = constructSettingsMonospaceFontFamily - attrClear _ = undefined - --- VVV Prop "pictograph-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsPictographFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsPictographFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsPictographFontFamily" $ getObjectPropertyString obj "pictograph-font-family" - -setSettingsPictographFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsPictographFontFamily obj val = liftIO $ setObjectPropertyString obj "pictograph-font-family" (Just val) - -constructSettingsPictographFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsPictographFontFamily val = constructObjectPropertyString "pictograph-font-family" (Just val) - -data SettingsPictographFontFamilyPropertyInfo -instance AttrInfo SettingsPictographFontFamilyPropertyInfo where - type AttrAllowedOps SettingsPictographFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsPictographFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsPictographFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsPictographFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsPictographFontFamilyPropertyInfo = "pictograph-font-family" - attrGet _ = getSettingsPictographFontFamily - attrSet _ = setSettingsPictographFontFamily - attrConstruct _ = constructSettingsPictographFontFamily - attrClear _ = undefined - --- VVV Prop "print-backgrounds" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsPrintBackgrounds :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsPrintBackgrounds obj = liftIO $ getObjectPropertyBool obj "print-backgrounds" - -setSettingsPrintBackgrounds :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsPrintBackgrounds obj val = liftIO $ setObjectPropertyBool obj "print-backgrounds" val - -constructSettingsPrintBackgrounds :: Bool -> IO ([Char], GValue) -constructSettingsPrintBackgrounds val = constructObjectPropertyBool "print-backgrounds" val - -data SettingsPrintBackgroundsPropertyInfo -instance AttrInfo SettingsPrintBackgroundsPropertyInfo where - type AttrAllowedOps SettingsPrintBackgroundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsPrintBackgroundsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsPrintBackgroundsPropertyInfo = SettingsK - type AttrGetType SettingsPrintBackgroundsPropertyInfo = Bool - type AttrLabel SettingsPrintBackgroundsPropertyInfo = "print-backgrounds" - attrGet _ = getSettingsPrintBackgrounds - attrSet _ = setSettingsPrintBackgrounds - attrConstruct _ = constructSettingsPrintBackgrounds - attrClear _ = undefined - --- VVV Prop "sans-serif-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsSansSerifFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsSansSerifFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsSansSerifFontFamily" $ 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" (Just val) - -constructSettingsSansSerifFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsSansSerifFontFamily val = constructObjectPropertyString "sans-serif-font-family" (Just val) - -data SettingsSansSerifFontFamilyPropertyInfo -instance AttrInfo SettingsSansSerifFontFamilyPropertyInfo where - type AttrAllowedOps SettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsSansSerifFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsSansSerifFontFamilyPropertyInfo = "sans-serif-font-family" - attrGet _ = getSettingsSansSerifFontFamily - attrSet _ = setSettingsSansSerifFontFamily - attrConstruct _ = constructSettingsSansSerifFontFamily - attrClear _ = undefined - --- VVV Prop "serif-font-family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsSerifFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsSerifFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsSerifFontFamily" $ getObjectPropertyString obj "serif-font-family" - -setSettingsSerifFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "serif-font-family" (Just val) - -constructSettingsSerifFontFamily :: T.Text -> IO ([Char], GValue) -constructSettingsSerifFontFamily val = constructObjectPropertyString "serif-font-family" (Just val) - -data SettingsSerifFontFamilyPropertyInfo -instance AttrInfo SettingsSerifFontFamilyPropertyInfo where - type AttrAllowedOps SettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsSerifFontFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsSerifFontFamilyPropertyInfo = SettingsK - type AttrGetType SettingsSerifFontFamilyPropertyInfo = T.Text - type AttrLabel SettingsSerifFontFamilyPropertyInfo = "serif-font-family" - attrGet _ = getSettingsSerifFontFamily - attrSet _ = setSettingsSerifFontFamily - attrConstruct _ = constructSettingsSerifFontFamily - attrClear _ = undefined - --- VVV Prop "user-agent" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just True) - -getSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsUserAgent obj = liftIO $ checkUnexpectedNothing "getSettingsUserAgent" $ getObjectPropertyString obj "user-agent" - -setSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" (Just val) - -constructSettingsUserAgent :: T.Text -> IO ([Char], GValue) -constructSettingsUserAgent val = constructObjectPropertyString "user-agent" (Just val) - -clearSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsUserAgent obj = liftIO $ setObjectPropertyString obj "user-agent" (Nothing :: Maybe T.Text) - -data SettingsUserAgentPropertyInfo -instance AttrInfo SettingsUserAgentPropertyInfo where - type AttrAllowedOps SettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsUserAgentPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsUserAgentPropertyInfo = SettingsK - type AttrGetType SettingsUserAgentPropertyInfo = T.Text - type AttrLabel SettingsUserAgentPropertyInfo = "user-agent" - attrGet _ = getSettingsUserAgent - attrSet _ = setSettingsUserAgent - attrConstruct _ = constructSettingsUserAgent - attrClear _ = clearSettingsUserAgent - --- VVV Prop "zoom-text-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSettingsZoomTextOnly :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsZoomTextOnly obj = liftIO $ getObjectPropertyBool obj "zoom-text-only" - -setSettingsZoomTextOnly :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsZoomTextOnly obj val = liftIO $ setObjectPropertyBool obj "zoom-text-only" val - -constructSettingsZoomTextOnly :: Bool -> IO ([Char], GValue) -constructSettingsZoomTextOnly val = constructObjectPropertyBool "zoom-text-only" val - -data SettingsZoomTextOnlyPropertyInfo -instance AttrInfo SettingsZoomTextOnlyPropertyInfo where - type AttrAllowedOps SettingsZoomTextOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsZoomTextOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsZoomTextOnlyPropertyInfo = SettingsK - type AttrGetType SettingsZoomTextOnlyPropertyInfo = Bool - type AttrLabel SettingsZoomTextOnlyPropertyInfo = "zoom-text-only" - attrGet _ = getSettingsZoomTextOnly - attrSet _ = setSettingsZoomTextOnly - attrConstruct _ = constructSettingsZoomTextOnly - attrClear _ = undefined - -type instance AttributeList Settings = SettingsAttributeList -type SettingsAttributeList = ('[ '("allowFileAccessFromFileUrls", SettingsAllowFileAccessFromFileUrlsPropertyInfo), '("allowModalDialogs", SettingsAllowModalDialogsPropertyInfo), '("autoLoadImages", SettingsAutoLoadImagesPropertyInfo), '("cursiveFontFamily", SettingsCursiveFontFamilyPropertyInfo), '("defaultCharset", SettingsDefaultCharsetPropertyInfo), '("defaultFontFamily", SettingsDefaultFontFamilyPropertyInfo), '("defaultFontSize", SettingsDefaultFontSizePropertyInfo), '("defaultMonospaceFontSize", SettingsDefaultMonospaceFontSizePropertyInfo), '("drawCompositingIndicators", SettingsDrawCompositingIndicatorsPropertyInfo), '("enableAccelerated2dCanvas", SettingsEnableAccelerated2dCanvasPropertyInfo), '("enableCaretBrowsing", SettingsEnableCaretBrowsingPropertyInfo), '("enableDeveloperExtras", SettingsEnableDeveloperExtrasPropertyInfo), '("enableDnsPrefetching", SettingsEnableDnsPrefetchingPropertyInfo), '("enableFrameFlattening", SettingsEnableFrameFlatteningPropertyInfo), '("enableFullscreen", SettingsEnableFullscreenPropertyInfo), '("enableHtml5Database", SettingsEnableHtml5DatabasePropertyInfo), '("enableHtml5LocalStorage", SettingsEnableHtml5LocalStoragePropertyInfo), '("enableHyperlinkAuditing", SettingsEnableHyperlinkAuditingPropertyInfo), '("enableJava", SettingsEnableJavaPropertyInfo), '("enableJavascript", SettingsEnableJavascriptPropertyInfo), '("enableMediaStream", SettingsEnableMediaStreamPropertyInfo), '("enableMediasource", SettingsEnableMediasourcePropertyInfo), '("enableOfflineWebApplicationCache", SettingsEnableOfflineWebApplicationCachePropertyInfo), '("enablePageCache", SettingsEnablePageCachePropertyInfo), '("enablePlugins", SettingsEnablePluginsPropertyInfo), '("enablePrivateBrowsing", SettingsEnablePrivateBrowsingPropertyInfo), '("enableResizableTextAreas", SettingsEnableResizableTextAreasPropertyInfo), '("enableSiteSpecificQuirks", SettingsEnableSiteSpecificQuirksPropertyInfo), '("enableSmoothScrolling", SettingsEnableSmoothScrollingPropertyInfo), '("enableSpatialNavigation", SettingsEnableSpatialNavigationPropertyInfo), '("enableTabsToLinks", SettingsEnableTabsToLinksPropertyInfo), '("enableWebaudio", SettingsEnableWebaudioPropertyInfo), '("enableWebgl", SettingsEnableWebglPropertyInfo), '("enableWriteConsoleMessagesToStdout", SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo), '("enableXssAuditor", SettingsEnableXssAuditorPropertyInfo), '("fantasyFontFamily", SettingsFantasyFontFamilyPropertyInfo), '("javascriptCanAccessClipboard", SettingsJavascriptCanAccessClipboardPropertyInfo), '("javascriptCanOpenWindowsAutomatically", SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("loadIconsIgnoringImageLoadSetting", SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo), '("mediaPlaybackAllowsInline", SettingsMediaPlaybackAllowsInlinePropertyInfo), '("mediaPlaybackRequiresUserGesture", SettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimumFontSize", SettingsMinimumFontSizePropertyInfo), '("monospaceFontFamily", SettingsMonospaceFontFamilyPropertyInfo), '("pictographFontFamily", SettingsPictographFontFamilyPropertyInfo), '("printBackgrounds", SettingsPrintBackgroundsPropertyInfo), '("sansSerifFontFamily", SettingsSansSerifFontFamilyPropertyInfo), '("serifFontFamily", SettingsSerifFontFamilyPropertyInfo), '("userAgent", SettingsUserAgentPropertyInfo), '("zoomTextOnly", SettingsZoomTextOnlyPropertyInfo)] :: [(Symbol, *)]) - -settingsAllowFileAccessFromFileUrls :: AttrLabelProxy "allowFileAccessFromFileUrls" -settingsAllowFileAccessFromFileUrls = AttrLabelProxy - -settingsAllowModalDialogs :: AttrLabelProxy "allowModalDialogs" -settingsAllowModalDialogs = AttrLabelProxy - -settingsAutoLoadImages :: AttrLabelProxy "autoLoadImages" -settingsAutoLoadImages = AttrLabelProxy - -settingsCursiveFontFamily :: AttrLabelProxy "cursiveFontFamily" -settingsCursiveFontFamily = AttrLabelProxy - -settingsDefaultCharset :: AttrLabelProxy "defaultCharset" -settingsDefaultCharset = AttrLabelProxy - -settingsDefaultFontFamily :: AttrLabelProxy "defaultFontFamily" -settingsDefaultFontFamily = AttrLabelProxy - -settingsDefaultFontSize :: AttrLabelProxy "defaultFontSize" -settingsDefaultFontSize = AttrLabelProxy - -settingsDefaultMonospaceFontSize :: AttrLabelProxy "defaultMonospaceFontSize" -settingsDefaultMonospaceFontSize = AttrLabelProxy - -settingsDrawCompositingIndicators :: AttrLabelProxy "drawCompositingIndicators" -settingsDrawCompositingIndicators = AttrLabelProxy - -settingsEnableAccelerated2dCanvas :: AttrLabelProxy "enableAccelerated2dCanvas" -settingsEnableAccelerated2dCanvas = AttrLabelProxy - -settingsEnableCaretBrowsing :: AttrLabelProxy "enableCaretBrowsing" -settingsEnableCaretBrowsing = AttrLabelProxy - -settingsEnableDeveloperExtras :: AttrLabelProxy "enableDeveloperExtras" -settingsEnableDeveloperExtras = AttrLabelProxy - -settingsEnableDnsPrefetching :: AttrLabelProxy "enableDnsPrefetching" -settingsEnableDnsPrefetching = AttrLabelProxy - -settingsEnableFrameFlattening :: AttrLabelProxy "enableFrameFlattening" -settingsEnableFrameFlattening = AttrLabelProxy - -settingsEnableFullscreen :: AttrLabelProxy "enableFullscreen" -settingsEnableFullscreen = AttrLabelProxy - -settingsEnableHtml5Database :: AttrLabelProxy "enableHtml5Database" -settingsEnableHtml5Database = AttrLabelProxy - -settingsEnableHtml5LocalStorage :: AttrLabelProxy "enableHtml5LocalStorage" -settingsEnableHtml5LocalStorage = AttrLabelProxy - -settingsEnableHyperlinkAuditing :: AttrLabelProxy "enableHyperlinkAuditing" -settingsEnableHyperlinkAuditing = AttrLabelProxy - -settingsEnableJava :: AttrLabelProxy "enableJava" -settingsEnableJava = AttrLabelProxy - -settingsEnableJavascript :: AttrLabelProxy "enableJavascript" -settingsEnableJavascript = AttrLabelProxy - -settingsEnableMediaStream :: AttrLabelProxy "enableMediaStream" -settingsEnableMediaStream = AttrLabelProxy - -settingsEnableMediasource :: AttrLabelProxy "enableMediasource" -settingsEnableMediasource = AttrLabelProxy - -settingsEnableOfflineWebApplicationCache :: AttrLabelProxy "enableOfflineWebApplicationCache" -settingsEnableOfflineWebApplicationCache = AttrLabelProxy - -settingsEnablePageCache :: AttrLabelProxy "enablePageCache" -settingsEnablePageCache = AttrLabelProxy - -settingsEnablePlugins :: AttrLabelProxy "enablePlugins" -settingsEnablePlugins = AttrLabelProxy - -settingsEnablePrivateBrowsing :: AttrLabelProxy "enablePrivateBrowsing" -settingsEnablePrivateBrowsing = AttrLabelProxy - -settingsEnableResizableTextAreas :: AttrLabelProxy "enableResizableTextAreas" -settingsEnableResizableTextAreas = AttrLabelProxy - -settingsEnableSiteSpecificQuirks :: AttrLabelProxy "enableSiteSpecificQuirks" -settingsEnableSiteSpecificQuirks = AttrLabelProxy - -settingsEnableSmoothScrolling :: AttrLabelProxy "enableSmoothScrolling" -settingsEnableSmoothScrolling = AttrLabelProxy - -settingsEnableSpatialNavigation :: AttrLabelProxy "enableSpatialNavigation" -settingsEnableSpatialNavigation = AttrLabelProxy - -settingsEnableTabsToLinks :: AttrLabelProxy "enableTabsToLinks" -settingsEnableTabsToLinks = AttrLabelProxy - -settingsEnableWebaudio :: AttrLabelProxy "enableWebaudio" -settingsEnableWebaudio = AttrLabelProxy - -settingsEnableWebgl :: AttrLabelProxy "enableWebgl" -settingsEnableWebgl = AttrLabelProxy - -settingsEnableWriteConsoleMessagesToStdout :: AttrLabelProxy "enableWriteConsoleMessagesToStdout" -settingsEnableWriteConsoleMessagesToStdout = AttrLabelProxy - -settingsEnableXssAuditor :: AttrLabelProxy "enableXssAuditor" -settingsEnableXssAuditor = AttrLabelProxy - -settingsFantasyFontFamily :: AttrLabelProxy "fantasyFontFamily" -settingsFantasyFontFamily = AttrLabelProxy - -settingsJavascriptCanAccessClipboard :: AttrLabelProxy "javascriptCanAccessClipboard" -settingsJavascriptCanAccessClipboard = AttrLabelProxy - -settingsJavascriptCanOpenWindowsAutomatically :: AttrLabelProxy "javascriptCanOpenWindowsAutomatically" -settingsJavascriptCanOpenWindowsAutomatically = AttrLabelProxy - -settingsLoadIconsIgnoringImageLoadSetting :: AttrLabelProxy "loadIconsIgnoringImageLoadSetting" -settingsLoadIconsIgnoringImageLoadSetting = AttrLabelProxy - -settingsMediaPlaybackAllowsInline :: AttrLabelProxy "mediaPlaybackAllowsInline" -settingsMediaPlaybackAllowsInline = AttrLabelProxy - -settingsMediaPlaybackRequiresUserGesture :: AttrLabelProxy "mediaPlaybackRequiresUserGesture" -settingsMediaPlaybackRequiresUserGesture = AttrLabelProxy - -settingsMinimumFontSize :: AttrLabelProxy "minimumFontSize" -settingsMinimumFontSize = AttrLabelProxy - -settingsMonospaceFontFamily :: AttrLabelProxy "monospaceFontFamily" -settingsMonospaceFontFamily = AttrLabelProxy - -settingsPictographFontFamily :: AttrLabelProxy "pictographFontFamily" -settingsPictographFontFamily = AttrLabelProxy - -settingsPrintBackgrounds :: AttrLabelProxy "printBackgrounds" -settingsPrintBackgrounds = AttrLabelProxy - -settingsSansSerifFontFamily :: AttrLabelProxy "sansSerifFontFamily" -settingsSansSerifFontFamily = AttrLabelProxy - -settingsSerifFontFamily :: AttrLabelProxy "serifFontFamily" -settingsSerifFontFamily = AttrLabelProxy - -settingsUserAgent :: AttrLabelProxy "userAgent" -settingsUserAgent = AttrLabelProxy - -settingsZoomTextOnly :: AttrLabelProxy "zoomTextOnly" -settingsZoomTextOnly = AttrLabelProxy - -type instance SignalList Settings = SettingsSignalList -type SettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Settings::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "Settings") --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_new" webkit_settings_new :: - IO (Ptr Settings) - - -settingsNew :: - (MonadIO m) => - m Settings -- result -settingsNew = liftIO $ do - result <- webkit_settings_new - checkUnexpectedReturnNULL "webkit_settings_new" result - result' <- (wrapObject Settings) result - return result' - --- method Settings::get_allow_file_access_from_file_urls --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_allow_file_access_from_file_urls" webkit_settings_get_allow_file_access_from_file_urls :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetAllowFileAccessFromFileUrls :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetAllowFileAccessFromFileUrls _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_allow_file_access_from_file_urls _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetAllowFileAccessFromFileUrlsMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAllowFileAccessFromFileUrlsMethodInfo a signature where - overloadedMethod _ = settingsGetAllowFileAccessFromFileUrls - --- method Settings::get_allow_modal_dialogs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_allow_modal_dialogs" webkit_settings_get_allow_modal_dialogs :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetAllowModalDialogs :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetAllowModalDialogs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_allow_modal_dialogs _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetAllowModalDialogsMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAllowModalDialogsMethodInfo a signature where - overloadedMethod _ = settingsGetAllowModalDialogs - --- method Settings::get_auto_load_images --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_auto_load_images" webkit_settings_get_auto_load_images :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetAutoLoadImages :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetAutoLoadImages _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_auto_load_images _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetAutoLoadImagesMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAutoLoadImagesMethodInfo a signature where - overloadedMethod _ = settingsGetAutoLoadImages - --- method Settings::get_cursive_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_cursive_font_family" webkit_settings_get_cursive_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetCursiveFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m T.Text -- result -settingsGetCursiveFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_cursive_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_cursive_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsGetCursiveFontFamilyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetCursiveFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsGetCursiveFontFamily - --- method Settings::get_default_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_default_charset" webkit_settings_get_default_charset :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetDefaultCharset :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m T.Text -- result -settingsGetDefaultCharset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_default_charset _obj' - checkUnexpectedReturnNULL "webkit_settings_get_default_charset" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsGetDefaultCharsetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultCharsetMethodInfo a signature where - overloadedMethod _ = settingsGetDefaultCharset - --- method Settings::get_default_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_default_font_family" webkit_settings_get_default_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetDefaultFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m T.Text -- result -settingsGetDefaultFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_default_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_default_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsGetDefaultFontFamilyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsGetDefaultFontFamily - --- method Settings::get_default_font_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_default_font_size" webkit_settings_get_default_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO Word32 - - -settingsGetDefaultFontSize :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Word32 -- result -settingsGetDefaultFontSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_default_font_size _obj' - touchManagedPtr _obj - return result - -data SettingsGetDefaultFontSizeMethodInfo -instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultFontSizeMethodInfo a signature where - overloadedMethod _ = settingsGetDefaultFontSize - --- method Settings::get_default_monospace_font_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_default_monospace_font_size" webkit_settings_get_default_monospace_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO Word32 - - -settingsGetDefaultMonospaceFontSize :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Word32 -- result -settingsGetDefaultMonospaceFontSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_default_monospace_font_size _obj' - touchManagedPtr _obj - return result - -data SettingsGetDefaultMonospaceFontSizeMethodInfo -instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultMonospaceFontSizeMethodInfo a signature where - overloadedMethod _ = settingsGetDefaultMonospaceFontSize - --- method Settings::get_draw_compositing_indicators --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_draw_compositing_indicators" webkit_settings_get_draw_compositing_indicators :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetDrawCompositingIndicators :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetDrawCompositingIndicators _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_draw_compositing_indicators _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetDrawCompositingIndicatorsMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetDrawCompositingIndicatorsMethodInfo a signature where - overloadedMethod _ = settingsGetDrawCompositingIndicators - --- method Settings::get_enable_accelerated_2d_canvas --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_accelerated_2d_canvas" webkit_settings_get_enable_accelerated_2d_canvas :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableAccelerated2dCanvas :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableAccelerated2dCanvas _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_accelerated_2d_canvas _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableAccelerated2dCanvasMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableAccelerated2dCanvasMethodInfo a signature where - overloadedMethod _ = settingsGetEnableAccelerated2dCanvas - --- method Settings::get_enable_caret_browsing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_caret_browsing" webkit_settings_get_enable_caret_browsing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableCaretBrowsing :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableCaretBrowsing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_caret_browsing _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableCaretBrowsingMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableCaretBrowsingMethodInfo a signature where - overloadedMethod _ = settingsGetEnableCaretBrowsing - --- method Settings::get_enable_developer_extras --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_developer_extras" webkit_settings_get_enable_developer_extras :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableDeveloperExtras :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableDeveloperExtras _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_developer_extras _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableDeveloperExtrasMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableDeveloperExtrasMethodInfo a signature where - overloadedMethod _ = settingsGetEnableDeveloperExtras - --- method Settings::get_enable_dns_prefetching --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_dns_prefetching" webkit_settings_get_enable_dns_prefetching :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableDnsPrefetching :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableDnsPrefetching _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_dns_prefetching _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableDnsPrefetchingMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableDnsPrefetchingMethodInfo a signature where - overloadedMethod _ = settingsGetEnableDnsPrefetching - --- method Settings::get_enable_frame_flattening --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_frame_flattening" webkit_settings_get_enable_frame_flattening :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableFrameFlattening :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableFrameFlattening _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_frame_flattening _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableFrameFlatteningMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableFrameFlatteningMethodInfo a signature where - overloadedMethod _ = settingsGetEnableFrameFlattening - --- method Settings::get_enable_fullscreen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_fullscreen" webkit_settings_get_enable_fullscreen :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableFullscreen :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableFullscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_fullscreen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableFullscreenMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableFullscreenMethodInfo a signature where - overloadedMethod _ = settingsGetEnableFullscreen - --- method Settings::get_enable_html5_database --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_html5_database" webkit_settings_get_enable_html5_database :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableHtml5Database :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableHtml5Database _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_html5_database _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableHtml5DatabaseMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHtml5DatabaseMethodInfo a signature where - overloadedMethod _ = settingsGetEnableHtml5Database - --- method Settings::get_enable_html5_local_storage --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_html5_local_storage" webkit_settings_get_enable_html5_local_storage :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableHtml5LocalStorage :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableHtml5LocalStorage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_html5_local_storage _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableHtml5LocalStorageMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHtml5LocalStorageMethodInfo a signature where - overloadedMethod _ = settingsGetEnableHtml5LocalStorage - --- method Settings::get_enable_hyperlink_auditing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_hyperlink_auditing" webkit_settings_get_enable_hyperlink_auditing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableHyperlinkAuditing :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableHyperlinkAuditing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_hyperlink_auditing _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableHyperlinkAuditingMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHyperlinkAuditingMethodInfo a signature where - overloadedMethod _ = settingsGetEnableHyperlinkAuditing - --- method Settings::get_enable_java --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_java" webkit_settings_get_enable_java :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableJava :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableJava _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_java _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableJavaMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableJavaMethodInfo a signature where - overloadedMethod _ = settingsGetEnableJava - --- method Settings::get_enable_javascript --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_javascript" webkit_settings_get_enable_javascript :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableJavascript :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableJavascript _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_javascript _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableJavascriptMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableJavascriptMethodInfo a signature where - overloadedMethod _ = settingsGetEnableJavascript - --- method Settings::get_enable_media_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_media_stream" webkit_settings_get_enable_media_stream :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableMediaStream :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableMediaStream _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_media_stream _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableMediaStreamMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableMediaStreamMethodInfo a signature where - overloadedMethod _ = settingsGetEnableMediaStream - --- method Settings::get_enable_mediasource --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_mediasource" webkit_settings_get_enable_mediasource :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableMediasource :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableMediasource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_mediasource _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableMediasourceMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableMediasourceMethodInfo a signature where - overloadedMethod _ = settingsGetEnableMediasource - --- method Settings::get_enable_offline_web_application_cache --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_offline_web_application_cache" webkit_settings_get_enable_offline_web_application_cache :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableOfflineWebApplicationCache :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableOfflineWebApplicationCache _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_offline_web_application_cache _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableOfflineWebApplicationCacheMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableOfflineWebApplicationCacheMethodInfo a signature where - overloadedMethod _ = settingsGetEnableOfflineWebApplicationCache - --- method Settings::get_enable_page_cache --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_page_cache" webkit_settings_get_enable_page_cache :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnablePageCache :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnablePageCache _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_page_cache _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnablePageCacheMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePageCacheMethodInfo a signature where - overloadedMethod _ = settingsGetEnablePageCache - --- method Settings::get_enable_plugins --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_plugins" webkit_settings_get_enable_plugins :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnablePlugins :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnablePlugins _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_plugins _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnablePluginsMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePluginsMethodInfo a signature where - overloadedMethod _ = settingsGetEnablePlugins - --- method Settings::get_enable_private_browsing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_private_browsing" webkit_settings_get_enable_private_browsing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnablePrivateBrowsing :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnablePrivateBrowsing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_private_browsing _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnablePrivateBrowsingMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePrivateBrowsingMethodInfo a signature where - overloadedMethod _ = settingsGetEnablePrivateBrowsing - --- method Settings::get_enable_resizable_text_areas --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_resizable_text_areas" webkit_settings_get_enable_resizable_text_areas :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableResizableTextAreas :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableResizableTextAreas _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_resizable_text_areas _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableResizableTextAreasMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableResizableTextAreasMethodInfo a signature where - overloadedMethod _ = settingsGetEnableResizableTextAreas - --- method Settings::get_enable_site_specific_quirks --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_site_specific_quirks" webkit_settings_get_enable_site_specific_quirks :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableSiteSpecificQuirks :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableSiteSpecificQuirks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_site_specific_quirks _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableSiteSpecificQuirksMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSiteSpecificQuirksMethodInfo a signature where - overloadedMethod _ = settingsGetEnableSiteSpecificQuirks - --- method Settings::get_enable_smooth_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_smooth_scrolling" webkit_settings_get_enable_smooth_scrolling :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableSmoothScrolling :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableSmoothScrolling _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_smooth_scrolling _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableSmoothScrollingMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSmoothScrollingMethodInfo a signature where - overloadedMethod _ = settingsGetEnableSmoothScrolling - --- method Settings::get_enable_spatial_navigation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_spatial_navigation" webkit_settings_get_enable_spatial_navigation :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableSpatialNavigation :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableSpatialNavigation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_spatial_navigation _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableSpatialNavigationMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSpatialNavigationMethodInfo a signature where - overloadedMethod _ = settingsGetEnableSpatialNavigation - --- method Settings::get_enable_tabs_to_links --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_tabs_to_links" webkit_settings_get_enable_tabs_to_links :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableTabsToLinks :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableTabsToLinks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_tabs_to_links _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableTabsToLinksMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableTabsToLinksMethodInfo a signature where - overloadedMethod _ = settingsGetEnableTabsToLinks - --- method Settings::get_enable_webaudio --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_webaudio" webkit_settings_get_enable_webaudio :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableWebaudio :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableWebaudio _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_webaudio _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableWebaudioMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWebaudioMethodInfo a signature where - overloadedMethod _ = settingsGetEnableWebaudio - --- method Settings::get_enable_webgl --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_webgl" webkit_settings_get_enable_webgl :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableWebgl :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableWebgl _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_webgl _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableWebglMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWebglMethodInfo a signature where - overloadedMethod _ = settingsGetEnableWebgl - --- method Settings::get_enable_write_console_messages_to_stdout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_write_console_messages_to_stdout" webkit_settings_get_enable_write_console_messages_to_stdout :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableWriteConsoleMessagesToStdout :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableWriteConsoleMessagesToStdout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_write_console_messages_to_stdout _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where - overloadedMethod _ = settingsGetEnableWriteConsoleMessagesToStdout - --- method Settings::get_enable_xss_auditor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_enable_xss_auditor" webkit_settings_get_enable_xss_auditor :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetEnableXssAuditor :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetEnableXssAuditor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_enable_xss_auditor _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetEnableXssAuditorMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableXssAuditorMethodInfo a signature where - overloadedMethod _ = settingsGetEnableXssAuditor - --- method Settings::get_fantasy_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_fantasy_font_family" webkit_settings_get_fantasy_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetFantasyFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m T.Text -- result -settingsGetFantasyFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_fantasy_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_fantasy_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsGetFantasyFontFamilyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetFantasyFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsGetFantasyFontFamily - --- method Settings::get_javascript_can_access_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_javascript_can_access_clipboard" webkit_settings_get_javascript_can_access_clipboard :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetJavascriptCanAccessClipboard :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetJavascriptCanAccessClipboard _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_javascript_can_access_clipboard _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetJavascriptCanAccessClipboardMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetJavascriptCanAccessClipboardMethodInfo a signature where - overloadedMethod _ = settingsGetJavascriptCanAccessClipboard - --- method Settings::get_javascript_can_open_windows_automatically --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_javascript_can_open_windows_automatically" webkit_settings_get_javascript_can_open_windows_automatically :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetJavascriptCanOpenWindowsAutomatically :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetJavascriptCanOpenWindowsAutomatically _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_javascript_can_open_windows_automatically _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where - overloadedMethod _ = settingsGetJavascriptCanOpenWindowsAutomatically - --- method Settings::get_load_icons_ignoring_image_load_setting --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_load_icons_ignoring_image_load_setting" webkit_settings_get_load_icons_ignoring_image_load_setting :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetLoadIconsIgnoringImageLoadSetting :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetLoadIconsIgnoringImageLoadSetting _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_load_icons_ignoring_image_load_setting _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where - overloadedMethod _ = settingsGetLoadIconsIgnoringImageLoadSetting - --- method Settings::get_media_playback_allows_inline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_media_playback_allows_inline" webkit_settings_get_media_playback_allows_inline :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetMediaPlaybackAllowsInline :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetMediaPlaybackAllowsInline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_media_playback_allows_inline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetMediaPlaybackAllowsInlineMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetMediaPlaybackAllowsInlineMethodInfo a signature where - overloadedMethod _ = settingsGetMediaPlaybackAllowsInline - --- method Settings::get_media_playback_requires_user_gesture --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_media_playback_requires_user_gesture" webkit_settings_get_media_playback_requires_user_gesture :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetMediaPlaybackRequiresUserGesture :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetMediaPlaybackRequiresUserGesture _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_media_playback_requires_user_gesture _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetMediaPlaybackRequiresUserGestureMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetMediaPlaybackRequiresUserGestureMethodInfo a signature where - overloadedMethod _ = settingsGetMediaPlaybackRequiresUserGesture - --- method Settings::get_minimum_font_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_minimum_font_size" webkit_settings_get_minimum_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO Word32 - - -settingsGetMinimumFontSize :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Word32 -- result -settingsGetMinimumFontSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_minimum_font_size _obj' - touchManagedPtr _obj - return result - -data SettingsGetMinimumFontSizeMethodInfo -instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetMinimumFontSizeMethodInfo a signature where - overloadedMethod _ = settingsGetMinimumFontSize - --- method Settings::get_monospace_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_monospace_font_family" webkit_settings_get_monospace_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetMonospaceFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m T.Text -- result -settingsGetMonospaceFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_monospace_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_monospace_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsGetMonospaceFontFamilyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetMonospaceFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsGetMonospaceFontFamily - --- method Settings::get_pictograph_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_pictograph_font_family" webkit_settings_get_pictograph_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetPictographFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m T.Text -- result -settingsGetPictographFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_pictograph_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_pictograph_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsGetPictographFontFamilyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetPictographFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsGetPictographFontFamily - --- method Settings::get_print_backgrounds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_print_backgrounds" webkit_settings_get_print_backgrounds :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetPrintBackgrounds :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetPrintBackgrounds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_print_backgrounds _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetPrintBackgroundsMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetPrintBackgroundsMethodInfo a signature where - overloadedMethod _ = settingsGetPrintBackgrounds - --- method Settings::get_sans_serif_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_sans_serif_font_family" webkit_settings_get_sans_serif_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetSansSerifFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m T.Text -- result -settingsGetSansSerifFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_sans_serif_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_sans_serif_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsGetSansSerifFontFamilyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetSansSerifFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsGetSansSerifFontFamily - --- method Settings::get_serif_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_serif_font_family" webkit_settings_get_serif_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetSerifFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m T.Text -- result -settingsGetSerifFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_serif_font_family _obj' - checkUnexpectedReturnNULL "webkit_settings_get_serif_font_family" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsGetSerifFontFamilyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetSerifFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsGetSerifFontFamily - --- method Settings::get_user_agent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_user_agent" webkit_settings_get_user_agent :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CString - - -settingsGetUserAgent :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m T.Text -- result -settingsGetUserAgent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_user_agent _obj' - checkUnexpectedReturnNULL "webkit_settings_get_user_agent" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsGetUserAgentMethodInfo -instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetUserAgentMethodInfo a signature where - overloadedMethod _ = settingsGetUserAgent - --- method Settings::get_zoom_text_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_get_zoom_text_only" webkit_settings_get_zoom_text_only :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - IO CInt - - -settingsGetZoomTextOnly :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetZoomTextOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_settings_get_zoom_text_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetZoomTextOnlyMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetZoomTextOnlyMethodInfo a signature where - overloadedMethod _ = settingsGetZoomTextOnly - --- method Settings::set_allow_file_access_from_file_urls --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_allow_file_access_from_file_urls" webkit_settings_set_allow_file_access_from_file_urls :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- allowed : TBasicType TBoolean - IO () - - -settingsSetAllowFileAccessFromFileUrls :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- allowed - -> m () -- result -settingsSetAllowFileAccessFromFileUrls _obj allowed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allowed' = (fromIntegral . fromEnum) allowed - webkit_settings_set_allow_file_access_from_file_urls _obj' allowed' - touchManagedPtr _obj - return () - -data SettingsSetAllowFileAccessFromFileUrlsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAllowFileAccessFromFileUrlsMethodInfo a signature where - overloadedMethod _ = settingsSetAllowFileAccessFromFileUrls - --- method Settings::set_allow_modal_dialogs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_allow_modal_dialogs" webkit_settings_set_allow_modal_dialogs :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- allowed : TBasicType TBoolean - IO () - - -settingsSetAllowModalDialogs :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- allowed - -> m () -- result -settingsSetAllowModalDialogs _obj allowed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allowed' = (fromIntegral . fromEnum) allowed - webkit_settings_set_allow_modal_dialogs _obj' allowed' - touchManagedPtr _obj - return () - -data SettingsSetAllowModalDialogsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAllowModalDialogsMethodInfo a signature where - overloadedMethod _ = settingsSetAllowModalDialogs - --- method Settings::set_auto_load_images --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_auto_load_images" webkit_settings_set_auto_load_images :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetAutoLoadImages :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetAutoLoadImages _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_auto_load_images _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetAutoLoadImagesMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAutoLoadImagesMethodInfo a signature where - overloadedMethod _ = settingsSetAutoLoadImages - --- method Settings::set_cursive_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursive_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_cursive_font_family" webkit_settings_set_cursive_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- cursive_font_family : TBasicType TUTF8 - IO () - - -settingsSetCursiveFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- cursiveFontFamily - -> m () -- result -settingsSetCursiveFontFamily _obj cursiveFontFamily = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - cursiveFontFamily' <- textToCString cursiveFontFamily - webkit_settings_set_cursive_font_family _obj' cursiveFontFamily' - touchManagedPtr _obj - freeMem cursiveFontFamily' - return () - -data SettingsSetCursiveFontFamilyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetCursiveFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsSetCursiveFontFamily - --- method Settings::set_default_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_default_charset" webkit_settings_set_default_charset :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- default_charset : TBasicType TUTF8 - IO () - - -settingsSetDefaultCharset :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- defaultCharset - -> m () -- result -settingsSetDefaultCharset _obj defaultCharset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - defaultCharset' <- textToCString defaultCharset - webkit_settings_set_default_charset _obj' defaultCharset' - touchManagedPtr _obj - freeMem defaultCharset' - return () - -data SettingsSetDefaultCharsetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultCharsetMethodInfo a signature where - overloadedMethod _ = settingsSetDefaultCharset - --- method Settings::set_default_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_default_font_family" webkit_settings_set_default_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- default_font_family : TBasicType TUTF8 - IO () - - -settingsSetDefaultFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- defaultFontFamily - -> m () -- result -settingsSetDefaultFontFamily _obj defaultFontFamily = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - defaultFontFamily' <- textToCString defaultFontFamily - webkit_settings_set_default_font_family _obj' defaultFontFamily' - touchManagedPtr _obj - freeMem defaultFontFamily' - return () - -data SettingsSetDefaultFontFamilyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsSetDefaultFontFamily - --- method Settings::set_default_font_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_default_font_size" webkit_settings_set_default_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - Word32 -> -- font_size : TBasicType TUInt32 - IO () - - -settingsSetDefaultFontSize :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Word32 -- fontSize - -> m () -- result -settingsSetDefaultFontSize _obj fontSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_settings_set_default_font_size _obj' fontSize - touchManagedPtr _obj - return () - -data SettingsSetDefaultFontSizeMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultFontSizeMethodInfo a signature where - overloadedMethod _ = settingsSetDefaultFontSize - --- method Settings::set_default_monospace_font_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_default_monospace_font_size" webkit_settings_set_default_monospace_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - Word32 -> -- font_size : TBasicType TUInt32 - IO () - - -settingsSetDefaultMonospaceFontSize :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Word32 -- fontSize - -> m () -- result -settingsSetDefaultMonospaceFontSize _obj fontSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_settings_set_default_monospace_font_size _obj' fontSize - touchManagedPtr _obj - return () - -data SettingsSetDefaultMonospaceFontSizeMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultMonospaceFontSizeMethodInfo a signature where - overloadedMethod _ = settingsSetDefaultMonospaceFontSize - --- method Settings::set_draw_compositing_indicators --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_draw_compositing_indicators" webkit_settings_set_draw_compositing_indicators :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetDrawCompositingIndicators :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetDrawCompositingIndicators _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_draw_compositing_indicators _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetDrawCompositingIndicatorsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDrawCompositingIndicatorsMethodInfo a signature where - overloadedMethod _ = settingsSetDrawCompositingIndicators - --- method Settings::set_enable_accelerated_2d_canvas --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_accelerated_2d_canvas" webkit_settings_set_enable_accelerated_2d_canvas :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableAccelerated2dCanvas :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableAccelerated2dCanvas _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_accelerated_2d_canvas _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableAccelerated2dCanvasMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableAccelerated2dCanvasMethodInfo a signature where - overloadedMethod _ = settingsSetEnableAccelerated2dCanvas - --- method Settings::set_enable_caret_browsing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_caret_browsing" webkit_settings_set_enable_caret_browsing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableCaretBrowsing :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableCaretBrowsing _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_caret_browsing _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableCaretBrowsingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableCaretBrowsingMethodInfo a signature where - overloadedMethod _ = settingsSetEnableCaretBrowsing - --- method Settings::set_enable_developer_extras --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_developer_extras" webkit_settings_set_enable_developer_extras :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableDeveloperExtras :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableDeveloperExtras _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_developer_extras _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableDeveloperExtrasMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableDeveloperExtrasMethodInfo a signature where - overloadedMethod _ = settingsSetEnableDeveloperExtras - --- method Settings::set_enable_dns_prefetching --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_dns_prefetching" webkit_settings_set_enable_dns_prefetching :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableDnsPrefetching :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableDnsPrefetching _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_dns_prefetching _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableDnsPrefetchingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableDnsPrefetchingMethodInfo a signature where - overloadedMethod _ = settingsSetEnableDnsPrefetching - --- method Settings::set_enable_frame_flattening --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_frame_flattening" webkit_settings_set_enable_frame_flattening :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableFrameFlattening :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableFrameFlattening _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_frame_flattening _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableFrameFlatteningMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableFrameFlatteningMethodInfo a signature where - overloadedMethod _ = settingsSetEnableFrameFlattening - --- method Settings::set_enable_fullscreen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_fullscreen" webkit_settings_set_enable_fullscreen :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableFullscreen :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableFullscreen _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_fullscreen _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableFullscreenMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableFullscreenMethodInfo a signature where - overloadedMethod _ = settingsSetEnableFullscreen - --- method Settings::set_enable_html5_database --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_html5_database" webkit_settings_set_enable_html5_database :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableHtml5Database :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableHtml5Database _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_html5_database _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableHtml5DatabaseMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHtml5DatabaseMethodInfo a signature where - overloadedMethod _ = settingsSetEnableHtml5Database - --- method Settings::set_enable_html5_local_storage --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_html5_local_storage" webkit_settings_set_enable_html5_local_storage :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableHtml5LocalStorage :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableHtml5LocalStorage _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_html5_local_storage _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableHtml5LocalStorageMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHtml5LocalStorageMethodInfo a signature where - overloadedMethod _ = settingsSetEnableHtml5LocalStorage - --- method Settings::set_enable_hyperlink_auditing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_hyperlink_auditing" webkit_settings_set_enable_hyperlink_auditing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableHyperlinkAuditing :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableHyperlinkAuditing _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_hyperlink_auditing _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableHyperlinkAuditingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHyperlinkAuditingMethodInfo a signature where - overloadedMethod _ = settingsSetEnableHyperlinkAuditing - --- method Settings::set_enable_java --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_java" webkit_settings_set_enable_java :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableJava :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableJava _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_java _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableJavaMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableJavaMethodInfo a signature where - overloadedMethod _ = settingsSetEnableJava - --- method Settings::set_enable_javascript --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_javascript" webkit_settings_set_enable_javascript :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableJavascript :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableJavascript _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_javascript _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableJavascriptMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableJavascriptMethodInfo a signature where - overloadedMethod _ = settingsSetEnableJavascript - --- method Settings::set_enable_media_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_media_stream" webkit_settings_set_enable_media_stream :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableMediaStream :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableMediaStream _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_media_stream _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableMediaStreamMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableMediaStreamMethodInfo a signature where - overloadedMethod _ = settingsSetEnableMediaStream - --- method Settings::set_enable_mediasource --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_mediasource" webkit_settings_set_enable_mediasource :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableMediasource :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableMediasource _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_mediasource _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableMediasourceMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableMediasourceMethodInfo a signature where - overloadedMethod _ = settingsSetEnableMediasource - --- method Settings::set_enable_offline_web_application_cache --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_offline_web_application_cache" webkit_settings_set_enable_offline_web_application_cache :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableOfflineWebApplicationCache :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableOfflineWebApplicationCache _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_offline_web_application_cache _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableOfflineWebApplicationCacheMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableOfflineWebApplicationCacheMethodInfo a signature where - overloadedMethod _ = settingsSetEnableOfflineWebApplicationCache - --- method Settings::set_enable_page_cache --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_page_cache" webkit_settings_set_enable_page_cache :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnablePageCache :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnablePageCache _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_page_cache _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnablePageCacheMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePageCacheMethodInfo a signature where - overloadedMethod _ = settingsSetEnablePageCache - --- method Settings::set_enable_plugins --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_plugins" webkit_settings_set_enable_plugins :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnablePlugins :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnablePlugins _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_plugins _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnablePluginsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePluginsMethodInfo a signature where - overloadedMethod _ = settingsSetEnablePlugins - --- method Settings::set_enable_private_browsing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_private_browsing" webkit_settings_set_enable_private_browsing :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnablePrivateBrowsing :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnablePrivateBrowsing _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_private_browsing _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnablePrivateBrowsingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePrivateBrowsingMethodInfo a signature where - overloadedMethod _ = settingsSetEnablePrivateBrowsing - --- method Settings::set_enable_resizable_text_areas --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_resizable_text_areas" webkit_settings_set_enable_resizable_text_areas :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableResizableTextAreas :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableResizableTextAreas _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_resizable_text_areas _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableResizableTextAreasMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableResizableTextAreasMethodInfo a signature where - overloadedMethod _ = settingsSetEnableResizableTextAreas - --- method Settings::set_enable_site_specific_quirks --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_site_specific_quirks" webkit_settings_set_enable_site_specific_quirks :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableSiteSpecificQuirks :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableSiteSpecificQuirks _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_site_specific_quirks _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableSiteSpecificQuirksMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSiteSpecificQuirksMethodInfo a signature where - overloadedMethod _ = settingsSetEnableSiteSpecificQuirks - --- method Settings::set_enable_smooth_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_smooth_scrolling" webkit_settings_set_enable_smooth_scrolling :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableSmoothScrolling :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableSmoothScrolling _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_smooth_scrolling _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableSmoothScrollingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSmoothScrollingMethodInfo a signature where - overloadedMethod _ = settingsSetEnableSmoothScrolling - --- method Settings::set_enable_spatial_navigation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_spatial_navigation" webkit_settings_set_enable_spatial_navigation :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableSpatialNavigation :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableSpatialNavigation _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_spatial_navigation _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableSpatialNavigationMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSpatialNavigationMethodInfo a signature where - overloadedMethod _ = settingsSetEnableSpatialNavigation - --- method Settings::set_enable_tabs_to_links --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_tabs_to_links" webkit_settings_set_enable_tabs_to_links :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableTabsToLinks :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableTabsToLinks _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_tabs_to_links _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableTabsToLinksMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableTabsToLinksMethodInfo a signature where - overloadedMethod _ = settingsSetEnableTabsToLinks - --- method Settings::set_enable_webaudio --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_webaudio" webkit_settings_set_enable_webaudio :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableWebaudio :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableWebaudio _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_webaudio _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableWebaudioMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWebaudioMethodInfo a signature where - overloadedMethod _ = settingsSetEnableWebaudio - --- method Settings::set_enable_webgl --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_webgl" webkit_settings_set_enable_webgl :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableWebgl :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableWebgl _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_webgl _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableWebglMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWebglMethodInfo a signature where - overloadedMethod _ = settingsSetEnableWebgl - --- method Settings::set_enable_write_console_messages_to_stdout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_write_console_messages_to_stdout" webkit_settings_set_enable_write_console_messages_to_stdout :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableWriteConsoleMessagesToStdout :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableWriteConsoleMessagesToStdout _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_write_console_messages_to_stdout _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where - overloadedMethod _ = settingsSetEnableWriteConsoleMessagesToStdout - --- method Settings::set_enable_xss_auditor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_enable_xss_auditor" webkit_settings_set_enable_xss_auditor :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetEnableXssAuditor :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetEnableXssAuditor _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_enable_xss_auditor _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetEnableXssAuditorMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableXssAuditorMethodInfo a signature where - overloadedMethod _ = settingsSetEnableXssAuditor - --- method Settings::set_fantasy_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fantasy_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_fantasy_font_family" webkit_settings_set_fantasy_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- fantasy_font_family : TBasicType TUTF8 - IO () - - -settingsSetFantasyFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- fantasyFontFamily - -> m () -- result -settingsSetFantasyFontFamily _obj fantasyFontFamily = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - fantasyFontFamily' <- textToCString fantasyFontFamily - webkit_settings_set_fantasy_font_family _obj' fantasyFontFamily' - touchManagedPtr _obj - freeMem fantasyFontFamily' - return () - -data SettingsSetFantasyFontFamilyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetFantasyFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsSetFantasyFontFamily - --- method Settings::set_javascript_can_access_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_javascript_can_access_clipboard" webkit_settings_set_javascript_can_access_clipboard :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetJavascriptCanAccessClipboard :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetJavascriptCanAccessClipboard _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_javascript_can_access_clipboard _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetJavascriptCanAccessClipboardMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetJavascriptCanAccessClipboardMethodInfo a signature where - overloadedMethod _ = settingsSetJavascriptCanAccessClipboard - --- method Settings::set_javascript_can_open_windows_automatically --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_javascript_can_open_windows_automatically" webkit_settings_set_javascript_can_open_windows_automatically :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetJavascriptCanOpenWindowsAutomatically :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetJavascriptCanOpenWindowsAutomatically _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_javascript_can_open_windows_automatically _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where - overloadedMethod _ = settingsSetJavascriptCanOpenWindowsAutomatically - --- method Settings::set_load_icons_ignoring_image_load_setting --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_load_icons_ignoring_image_load_setting" webkit_settings_set_load_icons_ignoring_image_load_setting :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetLoadIconsIgnoringImageLoadSetting :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetLoadIconsIgnoringImageLoadSetting _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_load_icons_ignoring_image_load_setting _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where - overloadedMethod _ = settingsSetLoadIconsIgnoringImageLoadSetting - --- method Settings::set_media_playback_allows_inline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_media_playback_allows_inline" webkit_settings_set_media_playback_allows_inline :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetMediaPlaybackAllowsInline :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetMediaPlaybackAllowsInline _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_media_playback_allows_inline _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetMediaPlaybackAllowsInlineMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMediaPlaybackAllowsInlineMethodInfo a signature where - overloadedMethod _ = settingsSetMediaPlaybackAllowsInline - --- method Settings::set_media_playback_requires_user_gesture --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_media_playback_requires_user_gesture" webkit_settings_set_media_playback_requires_user_gesture :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -settingsSetMediaPlaybackRequiresUserGesture :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -settingsSetMediaPlaybackRequiresUserGesture _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - webkit_settings_set_media_playback_requires_user_gesture _obj' enabled' - touchManagedPtr _obj - return () - -data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMediaPlaybackRequiresUserGestureMethodInfo a signature where - overloadedMethod _ = settingsSetMediaPlaybackRequiresUserGesture - --- method Settings::set_minimum_font_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_minimum_font_size" webkit_settings_set_minimum_font_size :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - Word32 -> -- font_size : TBasicType TUInt32 - IO () - - -settingsSetMinimumFontSize :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Word32 -- fontSize - -> m () -- result -settingsSetMinimumFontSize _obj fontSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_settings_set_minimum_font_size _obj' fontSize - touchManagedPtr _obj - return () - -data SettingsSetMinimumFontSizeMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMinimumFontSizeMethodInfo a signature where - overloadedMethod _ = settingsSetMinimumFontSize - --- method Settings::set_monospace_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monospace_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_monospace_font_family" webkit_settings_set_monospace_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- monospace_font_family : TBasicType TUTF8 - IO () - - -settingsSetMonospaceFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- monospaceFontFamily - -> m () -- result -settingsSetMonospaceFontFamily _obj monospaceFontFamily = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - monospaceFontFamily' <- textToCString monospaceFontFamily - webkit_settings_set_monospace_font_family _obj' monospaceFontFamily' - touchManagedPtr _obj - freeMem monospaceFontFamily' - return () - -data SettingsSetMonospaceFontFamilyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMonospaceFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsSetMonospaceFontFamily - --- method Settings::set_pictograph_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pictograph_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_pictograph_font_family" webkit_settings_set_pictograph_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- pictograph_font_family : TBasicType TUTF8 - IO () - - -settingsSetPictographFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- pictographFontFamily - -> m () -- result -settingsSetPictographFontFamily _obj pictographFontFamily = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pictographFontFamily' <- textToCString pictographFontFamily - webkit_settings_set_pictograph_font_family _obj' pictographFontFamily' - touchManagedPtr _obj - freeMem pictographFontFamily' - return () - -data SettingsSetPictographFontFamilyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPictographFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsSetPictographFontFamily - --- method Settings::set_print_backgrounds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_backgrounds", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_print_backgrounds" webkit_settings_set_print_backgrounds :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- print_backgrounds : TBasicType TBoolean - IO () - - -settingsSetPrintBackgrounds :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- printBackgrounds - -> m () -- result -settingsSetPrintBackgrounds _obj printBackgrounds = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let printBackgrounds' = (fromIntegral . fromEnum) printBackgrounds - webkit_settings_set_print_backgrounds _obj' printBackgrounds' - touchManagedPtr _obj - return () - -data SettingsSetPrintBackgroundsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPrintBackgroundsMethodInfo a signature where - overloadedMethod _ = settingsSetPrintBackgrounds - --- method Settings::set_sans_serif_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sans_serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_sans_serif_font_family" webkit_settings_set_sans_serif_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- sans_serif_font_family : TBasicType TUTF8 - IO () - - -settingsSetSansSerifFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- sansSerifFontFamily - -> m () -- result -settingsSetSansSerifFontFamily _obj sansSerifFontFamily = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sansSerifFontFamily' <- textToCString sansSerifFontFamily - webkit_settings_set_sans_serif_font_family _obj' sansSerifFontFamily' - touchManagedPtr _obj - freeMem sansSerifFontFamily' - return () - -data SettingsSetSansSerifFontFamilyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetSansSerifFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsSetSansSerifFontFamily - --- method Settings::set_serif_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_serif_font_family" webkit_settings_set_serif_font_family :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- serif_font_family : TBasicType TUTF8 - IO () - - -settingsSetSerifFontFamily :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- serifFontFamily - -> m () -- result -settingsSetSerifFontFamily _obj serifFontFamily = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - serifFontFamily' <- textToCString serifFontFamily - webkit_settings_set_serif_font_family _obj' serifFontFamily' - touchManagedPtr _obj - freeMem serifFontFamily' - return () - -data SettingsSetSerifFontFamilyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetSerifFontFamilyMethodInfo a signature where - overloadedMethod _ = settingsSetSerifFontFamily - --- method Settings::set_user_agent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_agent", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_user_agent" webkit_settings_set_user_agent :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- user_agent : TBasicType TUTF8 - IO () - - -settingsSetUserAgent :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Maybe (T.Text) -- userAgent - -> m () -- result -settingsSetUserAgent _obj userAgent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeUserAgent <- case userAgent of - Nothing -> return nullPtr - Just jUserAgent -> do - jUserAgent' <- textToCString jUserAgent - return jUserAgent' - webkit_settings_set_user_agent _obj' maybeUserAgent - touchManagedPtr _obj - freeMem maybeUserAgent - return () - -data SettingsSetUserAgentMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetUserAgentMethodInfo a signature where - overloadedMethod _ = settingsSetUserAgent - --- method Settings::set_user_agent_with_application_details --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_user_agent_with_application_details" webkit_settings_set_user_agent_with_application_details :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CString -> -- application_name : TBasicType TUTF8 - CString -> -- application_version : TBasicType TUTF8 - IO () - - -settingsSetUserAgentWithApplicationDetails :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Maybe (T.Text) -- applicationName - -> Maybe (T.Text) -- applicationVersion - -> m () -- result -settingsSetUserAgentWithApplicationDetails _obj applicationName applicationVersion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeApplicationName <- case applicationName of - Nothing -> return nullPtr - Just jApplicationName -> do - jApplicationName' <- textToCString jApplicationName - return jApplicationName' - maybeApplicationVersion <- case applicationVersion of - Nothing -> return nullPtr - Just jApplicationVersion -> do - jApplicationVersion' <- textToCString jApplicationVersion - return jApplicationVersion' - webkit_settings_set_user_agent_with_application_details _obj' maybeApplicationName maybeApplicationVersion - touchManagedPtr _obj - freeMem maybeApplicationName - freeMem maybeApplicationVersion - return () - -data SettingsSetUserAgentWithApplicationDetailsMethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetUserAgentWithApplicationDetailsMethodInfo a signature where - overloadedMethod _ = settingsSetUserAgentWithApplicationDetails - --- method Settings::set_zoom_text_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "zoom_text_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_settings_set_zoom_text_only" webkit_settings_set_zoom_text_only :: - Ptr Settings -> -- _obj : TInterface "WebKit2" "Settings" - CInt -> -- zoom_text_only : TBasicType TBoolean - IO () - - -settingsSetZoomTextOnly :: - (MonadIO m, SettingsK a) => - a -- _obj - -> Bool -- zoomTextOnly - -> m () -- result -settingsSetZoomTextOnly _obj zoomTextOnly = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let zoomTextOnly' = (fromIntegral . fromEnum) zoomTextOnly - webkit_settings_set_zoom_text_only _obj' zoomTextOnly' - touchManagedPtr _obj - return () - -data SettingsSetZoomTextOnlyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetZoomTextOnlyMethodInfo a signature where - overloadedMethod _ = settingsSetZoomTextOnly - - diff --git a/GI/WebKit2/Objects/Settings.hs-boot b/GI/WebKit2/Objects/Settings.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/Settings.hs-boot +++ /dev/null @@ -1,161 +0,0 @@ -module GI.WebKit2.Objects.Settings where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Settings = Settings (ForeignPtr Settings) -instance GObject Settings where -class GObject o => SettingsK o -instance (GObject o, IsDescendantOf Settings o) => SettingsK o -data SettingsAllowFileAccessFromFileUrlsPropertyInfo -data SettingsAllowModalDialogsPropertyInfo -data SettingsAutoLoadImagesPropertyInfo -data SettingsCursiveFontFamilyPropertyInfo -data SettingsDefaultCharsetPropertyInfo -data SettingsDefaultFontFamilyPropertyInfo -data SettingsDefaultFontSizePropertyInfo -data SettingsDefaultMonospaceFontSizePropertyInfo -data SettingsDrawCompositingIndicatorsPropertyInfo -data SettingsEnableAccelerated2dCanvasPropertyInfo -data SettingsEnableCaretBrowsingPropertyInfo -data SettingsEnableDeveloperExtrasPropertyInfo -data SettingsEnableDnsPrefetchingPropertyInfo -data SettingsEnableFrameFlatteningPropertyInfo -data SettingsEnableFullscreenPropertyInfo -data SettingsEnableHtml5DatabasePropertyInfo -data SettingsEnableHtml5LocalStoragePropertyInfo -data SettingsEnableHyperlinkAuditingPropertyInfo -data SettingsEnableJavaPropertyInfo -data SettingsEnableJavascriptPropertyInfo -data SettingsEnableMediaStreamPropertyInfo -data SettingsEnableMediasourcePropertyInfo -data SettingsEnableOfflineWebApplicationCachePropertyInfo -data SettingsEnablePageCachePropertyInfo -data SettingsEnablePluginsPropertyInfo -data SettingsEnablePrivateBrowsingPropertyInfo -data SettingsEnableResizableTextAreasPropertyInfo -data SettingsEnableSiteSpecificQuirksPropertyInfo -data SettingsEnableSmoothScrollingPropertyInfo -data SettingsEnableSpatialNavigationPropertyInfo -data SettingsEnableTabsToLinksPropertyInfo -data SettingsEnableWebaudioPropertyInfo -data SettingsEnableWebglPropertyInfo -data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo -data SettingsEnableXssAuditorPropertyInfo -data SettingsFantasyFontFamilyPropertyInfo -data SettingsJavascriptCanAccessClipboardPropertyInfo -data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo -data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo -data SettingsMediaPlaybackAllowsInlinePropertyInfo -data SettingsMediaPlaybackRequiresUserGesturePropertyInfo -data SettingsMinimumFontSizePropertyInfo -data SettingsMonospaceFontFamilyPropertyInfo -data SettingsPictographFontFamilyPropertyInfo -data SettingsPrintBackgroundsPropertyInfo -data SettingsSansSerifFontFamilyPropertyInfo -data SettingsSerifFontFamilyPropertyInfo -data SettingsUserAgentPropertyInfo -data SettingsZoomTextOnlyPropertyInfo -data SettingsGetAllowFileAccessFromFileUrlsMethodInfo -data SettingsGetAllowModalDialogsMethodInfo -data SettingsGetAutoLoadImagesMethodInfo -data SettingsGetCursiveFontFamilyMethodInfo -data SettingsGetDefaultCharsetMethodInfo -data SettingsGetDefaultFontFamilyMethodInfo -data SettingsGetDefaultFontSizeMethodInfo -data SettingsGetDefaultMonospaceFontSizeMethodInfo -data SettingsGetDrawCompositingIndicatorsMethodInfo -data SettingsGetEnableAccelerated2dCanvasMethodInfo -data SettingsGetEnableCaretBrowsingMethodInfo -data SettingsGetEnableDeveloperExtrasMethodInfo -data SettingsGetEnableDnsPrefetchingMethodInfo -data SettingsGetEnableFrameFlatteningMethodInfo -data SettingsGetEnableFullscreenMethodInfo -data SettingsGetEnableHtml5DatabaseMethodInfo -data SettingsGetEnableHtml5LocalStorageMethodInfo -data SettingsGetEnableHyperlinkAuditingMethodInfo -data SettingsGetEnableJavaMethodInfo -data SettingsGetEnableJavascriptMethodInfo -data SettingsGetEnableMediaStreamMethodInfo -data SettingsGetEnableMediasourceMethodInfo -data SettingsGetEnableOfflineWebApplicationCacheMethodInfo -data SettingsGetEnablePageCacheMethodInfo -data SettingsGetEnablePluginsMethodInfo -data SettingsGetEnablePrivateBrowsingMethodInfo -data SettingsGetEnableResizableTextAreasMethodInfo -data SettingsGetEnableSiteSpecificQuirksMethodInfo -data SettingsGetEnableSmoothScrollingMethodInfo -data SettingsGetEnableSpatialNavigationMethodInfo -data SettingsGetEnableTabsToLinksMethodInfo -data SettingsGetEnableWebaudioMethodInfo -data SettingsGetEnableWebglMethodInfo -data SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo -data SettingsGetEnableXssAuditorMethodInfo -data SettingsGetFantasyFontFamilyMethodInfo -data SettingsGetJavascriptCanAccessClipboardMethodInfo -data SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo -data SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo -data SettingsGetMediaPlaybackAllowsInlineMethodInfo -data SettingsGetMediaPlaybackRequiresUserGestureMethodInfo -data SettingsGetMinimumFontSizeMethodInfo -data SettingsGetMonospaceFontFamilyMethodInfo -data SettingsGetPictographFontFamilyMethodInfo -data SettingsGetPrintBackgroundsMethodInfo -data SettingsGetSansSerifFontFamilyMethodInfo -data SettingsGetSerifFontFamilyMethodInfo -data SettingsGetUserAgentMethodInfo -data SettingsGetZoomTextOnlyMethodInfo -data SettingsSetAllowFileAccessFromFileUrlsMethodInfo -data SettingsSetAllowModalDialogsMethodInfo -data SettingsSetAutoLoadImagesMethodInfo -data SettingsSetCursiveFontFamilyMethodInfo -data SettingsSetDefaultCharsetMethodInfo -data SettingsSetDefaultFontFamilyMethodInfo -data SettingsSetDefaultFontSizeMethodInfo -data SettingsSetDefaultMonospaceFontSizeMethodInfo -data SettingsSetDrawCompositingIndicatorsMethodInfo -data SettingsSetEnableAccelerated2dCanvasMethodInfo -data SettingsSetEnableCaretBrowsingMethodInfo -data SettingsSetEnableDeveloperExtrasMethodInfo -data SettingsSetEnableDnsPrefetchingMethodInfo -data SettingsSetEnableFrameFlatteningMethodInfo -data SettingsSetEnableFullscreenMethodInfo -data SettingsSetEnableHtml5DatabaseMethodInfo -data SettingsSetEnableHtml5LocalStorageMethodInfo -data SettingsSetEnableHyperlinkAuditingMethodInfo -data SettingsSetEnableJavaMethodInfo -data SettingsSetEnableJavascriptMethodInfo -data SettingsSetEnableMediaStreamMethodInfo -data SettingsSetEnableMediasourceMethodInfo -data SettingsSetEnableOfflineWebApplicationCacheMethodInfo -data SettingsSetEnablePageCacheMethodInfo -data SettingsSetEnablePluginsMethodInfo -data SettingsSetEnablePrivateBrowsingMethodInfo -data SettingsSetEnableResizableTextAreasMethodInfo -data SettingsSetEnableSiteSpecificQuirksMethodInfo -data SettingsSetEnableSmoothScrollingMethodInfo -data SettingsSetEnableSpatialNavigationMethodInfo -data SettingsSetEnableTabsToLinksMethodInfo -data SettingsSetEnableWebaudioMethodInfo -data SettingsSetEnableWebglMethodInfo -data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo -data SettingsSetEnableXssAuditorMethodInfo -data SettingsSetFantasyFontFamilyMethodInfo -data SettingsSetJavascriptCanAccessClipboardMethodInfo -data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo -data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo -data SettingsSetMediaPlaybackAllowsInlineMethodInfo -data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo -data SettingsSetMinimumFontSizeMethodInfo -data SettingsSetMonospaceFontFamilyMethodInfo -data SettingsSetPictographFontFamilyMethodInfo -data SettingsSetPrintBackgroundsMethodInfo -data SettingsSetSansSerifFontFamilyMethodInfo -data SettingsSetSerifFontFamilyMethodInfo -data SettingsSetUserAgentMethodInfo -data SettingsSetUserAgentWithApplicationDetailsMethodInfo -data SettingsSetZoomTextOnlyMethodInfo diff --git a/GI/WebKit2/Objects/URIRequest.hs b/GI/WebKit2/Objects/URIRequest.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/URIRequest.hs +++ /dev/null @@ -1,307 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.URIRequest - ( - --- * Exported types - URIRequest(..) , - URIRequestK , - toURIRequest , - noURIRequest , - - - -- * Methods --- ** uRIRequestGetHttpHeaders - URIRequestGetHttpHeadersMethodInfo , - uRIRequestGetHttpHeaders , - - --- ** uRIRequestGetHttpMethod - URIRequestGetHttpMethodMethodInfo , - uRIRequestGetHttpMethod , - - --- ** uRIRequestGetUri - URIRequestGetUriMethodInfo , - uRIRequestGetUri , - - --- ** uRIRequestNew - uRIRequestNew , - - --- ** uRIRequestSetUri - URIRequestSetUriMethodInfo , - uRIRequestSetUri , - - - - - -- * Properties --- ** Uri - URIRequestUriPropertyInfo , - constructURIRequestUri , - getURIRequestUri , - setURIRequestUri , - uRIRequestUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Soup as Soup - -newtype URIRequest = URIRequest (ForeignPtr URIRequest) -foreign import ccall "webkit_uri_request_get_type" - c_webkit_uri_request_get_type :: IO GType - -type instance ParentTypes URIRequest = URIRequestParentTypes -type URIRequestParentTypes = '[GObject.Object] - -instance GObject URIRequest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_uri_request_get_type - - -class GObject o => URIRequestK o -instance (GObject o, IsDescendantOf URIRequest o) => URIRequestK o - -toURIRequest :: URIRequestK o => o -> IO URIRequest -toURIRequest = unsafeCastTo URIRequest - -noURIRequest :: Maybe URIRequest -noURIRequest = Nothing - -type family ResolveURIRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveURIRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveURIRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveURIRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveURIRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveURIRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveURIRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveURIRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveURIRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveURIRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveURIRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveURIRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveURIRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveURIRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveURIRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveURIRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveURIRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveURIRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveURIRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveURIRequestMethod "getHttpHeaders" o = URIRequestGetHttpHeadersMethodInfo - ResolveURIRequestMethod "getHttpMethod" o = URIRequestGetHttpMethodMethodInfo - ResolveURIRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveURIRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveURIRequestMethod "getUri" o = URIRequestGetUriMethodInfo - ResolveURIRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveURIRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveURIRequestMethod "setUri" o = URIRequestSetUriMethodInfo - ResolveURIRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveURIRequestMethod t URIRequest, MethodInfo info URIRequest p) => IsLabelProxy t (URIRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveURIRequestMethod t URIRequest, MethodInfo info URIRequest p) => IsLabel t (URIRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getURIRequestUri :: (MonadIO m, URIRequestK o) => o -> m T.Text -getURIRequestUri obj = liftIO $ checkUnexpectedNothing "getURIRequestUri" $ getObjectPropertyString obj "uri" - -setURIRequestUri :: (MonadIO m, URIRequestK o) => o -> T.Text -> m () -setURIRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" (Just val) - -constructURIRequestUri :: T.Text -> IO ([Char], GValue) -constructURIRequestUri val = constructObjectPropertyString "uri" (Just 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 = "uri" - attrGet _ = getURIRequestUri - attrSet _ = setURIRequestUri - attrConstruct _ = constructURIRequestUri - attrClear _ = undefined - -type instance AttributeList URIRequest = URIRequestAttributeList -type URIRequestAttributeList = ('[ '("uri", URIRequestUriPropertyInfo)] :: [(Symbol, *)]) - -uRIRequestUri :: AttrLabelProxy "uri" -uRIRequestUri = AttrLabelProxy - -type instance SignalList URIRequest = URIRequestSignalList -type URIRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method URIRequest::new --- method type : Constructor --- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIRequestGetHttpHeadersMethodInfo -instance (signature ~ (m Soup.MessageHeaders), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetHttpHeadersMethodInfo a signature where - overloadedMethod _ = uRIRequestGetHttpHeaders - --- method URIRequest::get_http_method --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_uri_request_get_http_method" webkit_uri_request_get_http_method :: - Ptr URIRequest -> -- _obj : TInterface "WebKit2" "URIRequest" - IO CString - - -uRIRequestGetHttpMethod :: - (MonadIO m, URIRequestK a) => - a -- _obj - -> m T.Text -- result -uRIRequestGetHttpMethod _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_uri_request_get_http_method _obj' - checkUnexpectedReturnNULL "webkit_uri_request_get_http_method" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data URIRequestGetHttpMethodMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetHttpMethodMethodInfo a signature where - overloadedMethod _ = uRIRequestGetHttpMethod - --- method URIRequest::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_uri_request_get_uri" webkit_uri_request_get_uri :: - Ptr URIRequest -> -- _obj : TInterface "WebKit2" "URIRequest" - IO CString - - -uRIRequestGetUri :: - (MonadIO m, URIRequestK a) => - a -- _obj - -> m T.Text -- result -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' - -data URIRequestGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetUriMethodInfo a signature where - overloadedMethod _ = uRIRequestGetUri - --- method URIRequest::set_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -uRIRequestSetUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - webkit_uri_request_set_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - -data URIRequestSetUriMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, URIRequestK a) => MethodInfo URIRequestSetUriMethodInfo a signature where - overloadedMethod _ = uRIRequestSetUri - - diff --git a/GI/WebKit2/Objects/URIRequest.hs-boot b/GI/WebKit2/Objects/URIRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/URIRequest.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2.Objects.URIRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype URIRequest = URIRequest (ForeignPtr URIRequest) -instance GObject URIRequest where -class GObject o => URIRequestK o -instance (GObject o, IsDescendantOf URIRequest o) => URIRequestK o -data URIRequestUriPropertyInfo -data URIRequestGetHttpHeadersMethodInfo -data URIRequestGetHttpMethodMethodInfo -data URIRequestGetUriMethodInfo -data URIRequestSetUriMethodInfo diff --git a/GI/WebKit2/Objects/URIResponse.hs b/GI/WebKit2/Objects/URIResponse.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/URIResponse.hs +++ /dev/null @@ -1,479 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.URIResponse - ( - --- * Exported types - URIResponse(..) , - URIResponseK , - toURIResponse , - noURIResponse , - - - -- * Methods --- ** uRIResponseGetContentLength - URIResponseGetContentLengthMethodInfo , - uRIResponseGetContentLength , - - --- ** uRIResponseGetHttpHeaders - URIResponseGetHttpHeadersMethodInfo , - uRIResponseGetHttpHeaders , - - --- ** uRIResponseGetMimeType - URIResponseGetMimeTypeMethodInfo , - uRIResponseGetMimeType , - - --- ** uRIResponseGetStatusCode - URIResponseGetStatusCodeMethodInfo , - uRIResponseGetStatusCode , - - --- ** uRIResponseGetSuggestedFilename - URIResponseGetSuggestedFilenameMethodInfo, - uRIResponseGetSuggestedFilename , - - --- ** uRIResponseGetUri - URIResponseGetUriMethodInfo , - uRIResponseGetUri , - - - - - -- * Properties --- ** ContentLength - URIResponseContentLengthPropertyInfo , - getURIResponseContentLength , - uRIResponseContentLength , - - --- ** HttpHeaders - URIResponseHttpHeadersPropertyInfo , - getURIResponseHttpHeaders , - uRIResponseHttpHeaders , - - --- ** MimeType - URIResponseMimeTypePropertyInfo , - getURIResponseMimeType , - uRIResponseMimeType , - - --- ** StatusCode - URIResponseStatusCodePropertyInfo , - getURIResponseStatusCode , - uRIResponseStatusCode , - - --- ** SuggestedFilename - URIResponseSuggestedFilenamePropertyInfo, - getURIResponseSuggestedFilename , - uRIResponseSuggestedFilename , - - --- ** Uri - URIResponseUriPropertyInfo , - getURIResponseUri , - uRIResponseUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Soup as Soup - -newtype URIResponse = URIResponse (ForeignPtr URIResponse) -foreign import ccall "webkit_uri_response_get_type" - c_webkit_uri_response_get_type :: IO GType - -type instance ParentTypes URIResponse = URIResponseParentTypes -type URIResponseParentTypes = '[GObject.Object] - -instance GObject URIResponse where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_uri_response_get_type - - -class GObject o => URIResponseK o -instance (GObject o, IsDescendantOf URIResponse o) => URIResponseK o - -toURIResponse :: URIResponseK o => o -> IO URIResponse -toURIResponse = unsafeCastTo URIResponse - -noURIResponse :: Maybe URIResponse -noURIResponse = Nothing - -type family ResolveURIResponseMethod (t :: Symbol) (o :: *) :: * where - ResolveURIResponseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveURIResponseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveURIResponseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveURIResponseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveURIResponseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveURIResponseMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveURIResponseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveURIResponseMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveURIResponseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveURIResponseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveURIResponseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveURIResponseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveURIResponseMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveURIResponseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveURIResponseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveURIResponseMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveURIResponseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveURIResponseMethod "getContentLength" o = URIResponseGetContentLengthMethodInfo - ResolveURIResponseMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveURIResponseMethod "getHttpHeaders" o = URIResponseGetHttpHeadersMethodInfo - ResolveURIResponseMethod "getMimeType" o = URIResponseGetMimeTypeMethodInfo - ResolveURIResponseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveURIResponseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveURIResponseMethod "getStatusCode" o = URIResponseGetStatusCodeMethodInfo - ResolveURIResponseMethod "getSuggestedFilename" o = URIResponseGetSuggestedFilenameMethodInfo - ResolveURIResponseMethod "getUri" o = URIResponseGetUriMethodInfo - ResolveURIResponseMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveURIResponseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveURIResponseMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveURIResponseMethod t URIResponse, MethodInfo info URIResponse p) => IsLabelProxy t (URIResponse -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveURIResponseMethod t URIResponse, MethodInfo info URIResponse p) => IsLabel t (URIResponse -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "content-length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "content-length" - attrGet _ = getURIResponseContentLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "http-headers" - -- Type: TInterface "Soup" "MessageHeaders" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getURIResponseHttpHeaders :: (MonadIO m, URIResponseK o) => o -> m Soup.MessageHeaders -getURIResponseHttpHeaders obj = liftIO $ checkUnexpectedNothing "getURIResponseHttpHeaders" $ getObjectPropertyBoxed obj "http-headers" Soup.MessageHeaders - -data URIResponseHttpHeadersPropertyInfo -instance AttrInfo URIResponseHttpHeadersPropertyInfo where - type AttrAllowedOps URIResponseHttpHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIResponseHttpHeadersPropertyInfo = (~) () - type AttrBaseTypeConstraint URIResponseHttpHeadersPropertyInfo = URIResponseK - type AttrGetType URIResponseHttpHeadersPropertyInfo = Soup.MessageHeaders - type AttrLabel URIResponseHttpHeadersPropertyInfo = "http-headers" - attrGet _ = getURIResponseHttpHeaders - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "mime-type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getURIResponseMimeType :: (MonadIO m, URIResponseK o) => o -> m T.Text -getURIResponseMimeType obj = liftIO $ checkUnexpectedNothing "getURIResponseMimeType" $ getObjectPropertyString obj "mime-type" - -data URIResponseMimeTypePropertyInfo -instance AttrInfo URIResponseMimeTypePropertyInfo where - type AttrAllowedOps URIResponseMimeTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIResponseMimeTypePropertyInfo = (~) () - type AttrBaseTypeConstraint URIResponseMimeTypePropertyInfo = URIResponseK - type AttrGetType URIResponseMimeTypePropertyInfo = T.Text - type AttrLabel URIResponseMimeTypePropertyInfo = "mime-type" - attrGet _ = getURIResponseMimeType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "status-code" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getURIResponseStatusCode :: (MonadIO m, URIResponseK o) => o -> m Word32 -getURIResponseStatusCode obj = liftIO $ getObjectPropertyUInt32 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 = "status-code" - attrGet _ = getURIResponseStatusCode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "suggested-filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getURIResponseSuggestedFilename :: (MonadIO m, URIResponseK o) => o -> m T.Text -getURIResponseSuggestedFilename obj = liftIO $ checkUnexpectedNothing "getURIResponseSuggestedFilename" $ getObjectPropertyString obj "suggested-filename" - -data URIResponseSuggestedFilenamePropertyInfo -instance AttrInfo URIResponseSuggestedFilenamePropertyInfo where - type AttrAllowedOps URIResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIResponseSuggestedFilenamePropertyInfo = (~) () - type AttrBaseTypeConstraint URIResponseSuggestedFilenamePropertyInfo = URIResponseK - type AttrGetType URIResponseSuggestedFilenamePropertyInfo = T.Text - type AttrLabel URIResponseSuggestedFilenamePropertyInfo = "suggested-filename" - attrGet _ = getURIResponseSuggestedFilename - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getURIResponseUri :: (MonadIO m, URIResponseK o) => o -> m T.Text -getURIResponseUri obj = liftIO $ checkUnexpectedNothing "getURIResponseUri" $ getObjectPropertyString obj "uri" - -data URIResponseUriPropertyInfo -instance AttrInfo URIResponseUriPropertyInfo where - type AttrAllowedOps URIResponseUriPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIResponseUriPropertyInfo = (~) () - type AttrBaseTypeConstraint URIResponseUriPropertyInfo = URIResponseK - type AttrGetType URIResponseUriPropertyInfo = T.Text - type AttrLabel URIResponseUriPropertyInfo = "uri" - attrGet _ = getURIResponseUri - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList URIResponse = URIResponseAttributeList -type URIResponseAttributeList = ('[ '("contentLength", URIResponseContentLengthPropertyInfo), '("httpHeaders", URIResponseHttpHeadersPropertyInfo), '("mimeType", URIResponseMimeTypePropertyInfo), '("statusCode", URIResponseStatusCodePropertyInfo), '("suggestedFilename", URIResponseSuggestedFilenamePropertyInfo), '("uri", URIResponseUriPropertyInfo)] :: [(Symbol, *)]) - -uRIResponseContentLength :: AttrLabelProxy "contentLength" -uRIResponseContentLength = AttrLabelProxy - -uRIResponseHttpHeaders :: AttrLabelProxy "httpHeaders" -uRIResponseHttpHeaders = AttrLabelProxy - -uRIResponseMimeType :: AttrLabelProxy "mimeType" -uRIResponseMimeType = AttrLabelProxy - -uRIResponseStatusCode :: AttrLabelProxy "statusCode" -uRIResponseStatusCode = AttrLabelProxy - -uRIResponseSuggestedFilename :: AttrLabelProxy "suggestedFilename" -uRIResponseSuggestedFilename = AttrLabelProxy - -uRIResponseUri :: AttrLabelProxy "uri" -uRIResponseUri = AttrLabelProxy - -type instance SignalList URIResponse = URIResponseSignalList -type URIResponseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method URIResponse::get_content_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "webkit_uri_response_get_content_length" webkit_uri_response_get_content_length :: - Ptr URIResponse -> -- _obj : TInterface "WebKit2" "URIResponse" - IO Word64 - - -uRIResponseGetContentLength :: - (MonadIO m, URIResponseK a) => - a -- _obj - -> m Word64 -- result -uRIResponseGetContentLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_uri_response_get_content_length _obj' - touchManagedPtr _obj - return result - -data URIResponseGetContentLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetContentLengthMethodInfo a signature where - overloadedMethod _ = uRIResponseGetContentLength - --- method URIResponse::get_http_headers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIResponseGetHttpHeadersMethodInfo -instance (signature ~ (m Soup.MessageHeaders), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetHttpHeadersMethodInfo a signature where - overloadedMethod _ = uRIResponseGetHttpHeaders - --- method URIResponse::get_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_uri_response_get_mime_type" webkit_uri_response_get_mime_type :: - Ptr URIResponse -> -- _obj : TInterface "WebKit2" "URIResponse" - IO CString - - -uRIResponseGetMimeType :: - (MonadIO m, URIResponseK a) => - a -- _obj - -> m T.Text -- result -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' - -data URIResponseGetMimeTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetMimeTypeMethodInfo a signature where - overloadedMethod _ = uRIResponseGetMimeType - --- method URIResponse::get_status_code --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_uri_response_get_status_code" webkit_uri_response_get_status_code :: - Ptr URIResponse -> -- _obj : TInterface "WebKit2" "URIResponse" - IO Word32 - - -uRIResponseGetStatusCode :: - (MonadIO m, URIResponseK a) => - a -- _obj - -> m Word32 -- result -uRIResponseGetStatusCode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_uri_response_get_status_code _obj' - touchManagedPtr _obj - return result - -data URIResponseGetStatusCodeMethodInfo -instance (signature ~ (m Word32), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetStatusCodeMethodInfo a signature where - overloadedMethod _ = uRIResponseGetStatusCode - --- method URIResponse::get_suggested_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_uri_response_get_suggested_filename" webkit_uri_response_get_suggested_filename :: - Ptr URIResponse -> -- _obj : TInterface "WebKit2" "URIResponse" - IO CString - - -uRIResponseGetSuggestedFilename :: - (MonadIO m, URIResponseK a) => - a -- _obj - -> m T.Text -- result -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' - -data URIResponseGetSuggestedFilenameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetSuggestedFilenameMethodInfo a signature where - overloadedMethod _ = uRIResponseGetSuggestedFilename - --- method URIResponse::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_uri_response_get_uri" webkit_uri_response_get_uri :: - Ptr URIResponse -> -- _obj : TInterface "WebKit2" "URIResponse" - IO CString - - -uRIResponseGetUri :: - (MonadIO m, URIResponseK a) => - a -- _obj - -> m T.Text -- result -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' - -data URIResponseGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetUriMethodInfo a signature where - overloadedMethod _ = uRIResponseGetUri - - diff --git a/GI/WebKit2/Objects/URIResponse.hs-boot b/GI/WebKit2/Objects/URIResponse.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/URIResponse.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.WebKit2.Objects.URIResponse where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype URIResponse = URIResponse (ForeignPtr URIResponse) -instance GObject URIResponse where -class GObject o => URIResponseK o -instance (GObject o, IsDescendantOf URIResponse o) => URIResponseK o -data URIResponseContentLengthPropertyInfo -data URIResponseHttpHeadersPropertyInfo -data URIResponseMimeTypePropertyInfo -data URIResponseStatusCodePropertyInfo -data URIResponseSuggestedFilenamePropertyInfo -data URIResponseUriPropertyInfo -data URIResponseGetContentLengthMethodInfo -data URIResponseGetHttpHeadersMethodInfo -data URIResponseGetMimeTypeMethodInfo -data URIResponseGetStatusCodeMethodInfo -data URIResponseGetSuggestedFilenameMethodInfo -data URIResponseGetUriMethodInfo diff --git a/GI/WebKit2/Objects/URISchemeRequest.hs b/GI/WebKit2/Objects/URISchemeRequest.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/URISchemeRequest.hs +++ /dev/null @@ -1,320 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.URISchemeRequest - ( - --- * Exported types - URISchemeRequest(..) , - URISchemeRequestK , - toURISchemeRequest , - noURISchemeRequest , - - - -- * Methods --- ** uRISchemeRequestFinish - URISchemeRequestFinishMethodInfo , - uRISchemeRequestFinish , - - --- ** uRISchemeRequestFinishError - URISchemeRequestFinishErrorMethodInfo , - uRISchemeRequestFinishError , - - --- ** uRISchemeRequestGetPath - URISchemeRequestGetPathMethodInfo , - uRISchemeRequestGetPath , - - --- ** uRISchemeRequestGetScheme - URISchemeRequestGetSchemeMethodInfo , - uRISchemeRequestGetScheme , - - --- ** uRISchemeRequestGetUri - URISchemeRequestGetUriMethodInfo , - uRISchemeRequestGetUri , - - --- ** uRISchemeRequestGetWebView - URISchemeRequestGetWebViewMethodInfo , - uRISchemeRequestGetWebView , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype URISchemeRequest = URISchemeRequest (ForeignPtr URISchemeRequest) -foreign import ccall "webkit_uri_scheme_request_get_type" - c_webkit_uri_scheme_request_get_type :: IO GType - -type instance ParentTypes URISchemeRequest = URISchemeRequestParentTypes -type URISchemeRequestParentTypes = '[GObject.Object] - -instance GObject URISchemeRequest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_uri_scheme_request_get_type - - -class GObject o => URISchemeRequestK o -instance (GObject o, IsDescendantOf URISchemeRequest o) => URISchemeRequestK o - -toURISchemeRequest :: URISchemeRequestK o => o -> IO URISchemeRequest -toURISchemeRequest = unsafeCastTo URISchemeRequest - -noURISchemeRequest :: Maybe URISchemeRequest -noURISchemeRequest = Nothing - -type family ResolveURISchemeRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveURISchemeRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveURISchemeRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveURISchemeRequestMethod "finish" o = URISchemeRequestFinishMethodInfo - ResolveURISchemeRequestMethod "finishError" o = URISchemeRequestFinishErrorMethodInfo - ResolveURISchemeRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveURISchemeRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveURISchemeRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveURISchemeRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveURISchemeRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveURISchemeRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveURISchemeRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveURISchemeRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveURISchemeRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveURISchemeRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveURISchemeRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveURISchemeRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveURISchemeRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveURISchemeRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveURISchemeRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveURISchemeRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveURISchemeRequestMethod "getPath" o = URISchemeRequestGetPathMethodInfo - ResolveURISchemeRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveURISchemeRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveURISchemeRequestMethod "getScheme" o = URISchemeRequestGetSchemeMethodInfo - ResolveURISchemeRequestMethod "getUri" o = URISchemeRequestGetUriMethodInfo - ResolveURISchemeRequestMethod "getWebView" o = URISchemeRequestGetWebViewMethodInfo - ResolveURISchemeRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveURISchemeRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveURISchemeRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveURISchemeRequestMethod t URISchemeRequest, MethodInfo info URISchemeRequest p) => IsLabelProxy t (URISchemeRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveURISchemeRequestMethod t URISchemeRequest, MethodInfo info URISchemeRequest p) => IsLabel t (URISchemeRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList URISchemeRequest = URISchemeRequestAttributeList -type URISchemeRequestAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList URISchemeRequest = URISchemeRequestSignalList -type URISchemeRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method URISchemeRequest::finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- streamLength - -> Maybe (T.Text) -- mimeType - -> m () -- result -uRISchemeRequestFinish _obj stream streamLength mimeType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let stream' = unsafeManagedPtrCastPtr stream - maybeMimeType <- case mimeType of - Nothing -> return nullPtr - Just jMimeType -> do - jMimeType' <- textToCString jMimeType - return jMimeType' - webkit_uri_scheme_request_finish _obj' stream' streamLength maybeMimeType - touchManagedPtr _obj - touchManagedPtr stream - freeMem maybeMimeType - return () - -data URISchemeRequestFinishMethodInfo -instance (signature ~ (b -> Int64 -> Maybe (T.Text) -> m ()), MonadIO m, URISchemeRequestK a, Gio.InputStreamK b) => MethodInfo URISchemeRequestFinishMethodInfo a signature where - overloadedMethod _ = uRISchemeRequestFinish - --- method URISchemeRequest::finish_error --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data URISchemeRequestFinishErrorMethodInfo -instance (signature ~ (GError -> m ()), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestFinishErrorMethodInfo a signature where - overloadedMethod _ = uRISchemeRequestFinishError - --- method URISchemeRequest::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_uri_scheme_request_get_path" webkit_uri_scheme_request_get_path :: - Ptr URISchemeRequest -> -- _obj : TInterface "WebKit2" "URISchemeRequest" - IO CString - - -uRISchemeRequestGetPath :: - (MonadIO m, URISchemeRequestK a) => - a -- _obj - -> m T.Text -- result -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' - -data URISchemeRequestGetPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetPathMethodInfo a signature where - overloadedMethod _ = uRISchemeRequestGetPath - --- method URISchemeRequest::get_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_uri_scheme_request_get_scheme" webkit_uri_scheme_request_get_scheme :: - Ptr URISchemeRequest -> -- _obj : TInterface "WebKit2" "URISchemeRequest" - IO CString - - -uRISchemeRequestGetScheme :: - (MonadIO m, URISchemeRequestK a) => - a -- _obj - -> m T.Text -- result -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' - -data URISchemeRequestGetSchemeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetSchemeMethodInfo a signature where - overloadedMethod _ = uRISchemeRequestGetScheme - --- method URISchemeRequest::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_uri_scheme_request_get_uri" webkit_uri_scheme_request_get_uri :: - Ptr URISchemeRequest -> -- _obj : TInterface "WebKit2" "URISchemeRequest" - IO CString - - -uRISchemeRequestGetUri :: - (MonadIO m, URISchemeRequestK a) => - a -- _obj - -> m T.Text -- result -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' - -data URISchemeRequestGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetUriMethodInfo a signature where - overloadedMethod _ = uRISchemeRequestGetUri - --- method URISchemeRequest::get_web_view --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URISchemeRequestGetWebViewMethodInfo -instance (signature ~ (m WebView), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetWebViewMethodInfo a signature where - overloadedMethod _ = uRISchemeRequestGetWebView - - diff --git a/GI/WebKit2/Objects/URISchemeRequest.hs-boot b/GI/WebKit2/Objects/URISchemeRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/URISchemeRequest.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2.Objects.URISchemeRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype URISchemeRequest = URISchemeRequest (ForeignPtr URISchemeRequest) -instance GObject URISchemeRequest where -class GObject o => URISchemeRequestK o -instance (GObject o, IsDescendantOf URISchemeRequest o) => URISchemeRequestK o -data URISchemeRequestFinishMethodInfo -data URISchemeRequestFinishErrorMethodInfo -data URISchemeRequestGetPathMethodInfo -data URISchemeRequestGetSchemeMethodInfo -data URISchemeRequestGetUriMethodInfo -data URISchemeRequestGetWebViewMethodInfo diff --git a/GI/WebKit2/Objects/UserContentManager.hs b/GI/WebKit2/Objects/UserContentManager.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/UserContentManager.hs +++ /dev/null @@ -1,397 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.UserContentManager - ( - --- * Exported types - UserContentManager(..) , - UserContentManagerK , - toUserContentManager , - noUserContentManager , - - - -- * Methods --- ** userContentManagerAddScript - UserContentManagerAddScriptMethodInfo , - userContentManagerAddScript , - - --- ** userContentManagerAddStyleSheet - UserContentManagerAddStyleSheetMethodInfo, - userContentManagerAddStyleSheet , - - --- ** userContentManagerNew - userContentManagerNew , - - --- ** userContentManagerRegisterScriptMessageHandler - UserContentManagerRegisterScriptMessageHandlerMethodInfo, - userContentManagerRegisterScriptMessageHandler, - - --- ** userContentManagerRemoveAllScripts - UserContentManagerRemoveAllScriptsMethodInfo, - userContentManagerRemoveAllScripts , - - --- ** userContentManagerRemoveAllStyleSheets - UserContentManagerRemoveAllStyleSheetsMethodInfo, - userContentManagerRemoveAllStyleSheets , - - --- ** userContentManagerUnregisterScriptMessageHandler - UserContentManagerUnregisterScriptMessageHandlerMethodInfo, - userContentManagerUnregisterScriptMessageHandler, - - - - - -- * Signals --- ** ScriptMessageReceived - UserContentManagerScriptMessageReceivedCallback, - UserContentManagerScriptMessageReceivedCallbackC, - UserContentManagerScriptMessageReceivedSignalInfo, - afterUserContentManagerScriptMessageReceived, - mkUserContentManagerScriptMessageReceivedCallback, - noUserContentManagerScriptMessageReceivedCallback, - onUserContentManagerScriptMessageReceived, - userContentManagerScriptMessageReceivedCallbackWrapper, - userContentManagerScriptMessageReceivedClosure, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype UserContentManager = UserContentManager (ForeignPtr UserContentManager) -foreign import ccall "webkit_user_content_manager_get_type" - c_webkit_user_content_manager_get_type :: IO GType - -type instance ParentTypes UserContentManager = UserContentManagerParentTypes -type UserContentManagerParentTypes = '[GObject.Object] - -instance GObject UserContentManager where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_user_content_manager_get_type - - -class GObject o => UserContentManagerK o -instance (GObject o, IsDescendantOf UserContentManager o) => UserContentManagerK o - -toUserContentManager :: UserContentManagerK o => o -> IO UserContentManager -toUserContentManager = unsafeCastTo UserContentManager - -noUserContentManager :: Maybe UserContentManager -noUserContentManager = Nothing - -type family ResolveUserContentManagerMethod (t :: Symbol) (o :: *) :: * where - ResolveUserContentManagerMethod "addScript" o = UserContentManagerAddScriptMethodInfo - ResolveUserContentManagerMethod "addStyleSheet" o = UserContentManagerAddStyleSheetMethodInfo - ResolveUserContentManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveUserContentManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveUserContentManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveUserContentManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveUserContentManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveUserContentManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveUserContentManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveUserContentManagerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveUserContentManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveUserContentManagerMethod "registerScriptMessageHandler" o = UserContentManagerRegisterScriptMessageHandlerMethodInfo - ResolveUserContentManagerMethod "removeAllScripts" o = UserContentManagerRemoveAllScriptsMethodInfo - ResolveUserContentManagerMethod "removeAllStyleSheets" o = UserContentManagerRemoveAllStyleSheetsMethodInfo - ResolveUserContentManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveUserContentManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveUserContentManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveUserContentManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveUserContentManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveUserContentManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveUserContentManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveUserContentManagerMethod "unregisterScriptMessageHandler" o = UserContentManagerUnregisterScriptMessageHandlerMethodInfo - ResolveUserContentManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveUserContentManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveUserContentManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveUserContentManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveUserContentManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveUserContentManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveUserContentManagerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUserContentManagerMethod t UserContentManager, MethodInfo info UserContentManager p) => IsLabelProxy t (UserContentManager -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUserContentManagerMethod t UserContentManager, MethodInfo info UserContentManager p) => IsLabel t (UserContentManager -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal UserContentManager::script-message-received -type UserContentManagerScriptMessageReceivedCallback = - JavascriptResult -> - 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 _ jsResult _ = do - jsResult' <- (newBoxed JavascriptResult) jsResult - _cb jsResult' - -onUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) => a -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId -onUserContentManagerScriptMessageReceived obj cb = liftIO $ connectUserContentManagerScriptMessageReceived obj cb SignalConnectBefore -afterUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) => a -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId -afterUserContentManagerScriptMessageReceived obj cb = connectUserContentManagerScriptMessageReceived obj cb SignalConnectAfter - -connectUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) => - a -> UserContentManagerScriptMessageReceivedCallback -> SignalConnectMode -> m SignalHandlerId -connectUserContentManagerScriptMessageReceived obj cb after = liftIO $ do - cb' <- mkUserContentManagerScriptMessageReceivedCallback (userContentManagerScriptMessageReceivedCallbackWrapper cb) - connectSignalFunPtr obj "script-message-received" cb' after - -type instance AttributeList UserContentManager = UserContentManagerAttributeList -type UserContentManagerAttributeList = ('[ ] :: [(Symbol, *)]) - -data UserContentManagerScriptMessageReceivedSignalInfo -instance SignalInfo UserContentManagerScriptMessageReceivedSignalInfo where - type HaskellCallbackType UserContentManagerScriptMessageReceivedSignalInfo = UserContentManagerScriptMessageReceivedCallback - connectSignal _ = connectUserContentManagerScriptMessageReceived - -type instance SignalList UserContentManager = UserContentManagerSignalList -type UserContentManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("scriptMessageReceived", UserContentManagerScriptMessageReceivedSignalInfo)] :: [(Symbol, *)]) - --- method UserContentManager::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "script", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data UserContentManagerAddScriptMethodInfo -instance (signature ~ (UserScript -> m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerAddScriptMethodInfo a signature where - overloadedMethod _ = userContentManagerAddScript - --- method UserContentManager::add_style_sheet --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stylesheet", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_user_content_manager_add_style_sheet" webkit_user_content_manager_add_style_sheet :: - Ptr UserContentManager -> -- _obj : TInterface "WebKit2" "UserContentManager" - Ptr UserStyleSheet -> -- stylesheet : TInterface "WebKit2" "UserStyleSheet" - IO () - - -userContentManagerAddStyleSheet :: - (MonadIO m, UserContentManagerK a) => - a -- _obj - -> UserStyleSheet -- stylesheet - -> m () -- result -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 () - -data UserContentManagerAddStyleSheetMethodInfo -instance (signature ~ (UserStyleSheet -> m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerAddStyleSheetMethodInfo a signature where - overloadedMethod _ = userContentManagerAddStyleSheet - --- method UserContentManager::register_script_message_handler --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_user_content_manager_register_script_message_handler" webkit_user_content_manager_register_script_message_handler :: - Ptr UserContentManager -> -- _obj : TInterface "WebKit2" "UserContentManager" - CString -> -- name : TBasicType TUTF8 - IO CInt - - -userContentManagerRegisterScriptMessageHandler :: - (MonadIO m, UserContentManagerK a) => - a -- _obj - -> T.Text -- name - -> m Bool -- result -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' - -data UserContentManagerRegisterScriptMessageHandlerMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerRegisterScriptMessageHandlerMethodInfo a signature where - overloadedMethod _ = userContentManagerRegisterScriptMessageHandler - --- method UserContentManager::remove_all_scripts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_user_content_manager_remove_all_scripts" webkit_user_content_manager_remove_all_scripts :: - Ptr UserContentManager -> -- _obj : TInterface "WebKit2" "UserContentManager" - IO () - - -userContentManagerRemoveAllScripts :: - (MonadIO m, UserContentManagerK a) => - a -- _obj - -> m () -- result -userContentManagerRemoveAllScripts _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_user_content_manager_remove_all_scripts _obj' - touchManagedPtr _obj - return () - -data UserContentManagerRemoveAllScriptsMethodInfo -instance (signature ~ (m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerRemoveAllScriptsMethodInfo a signature where - overloadedMethod _ = userContentManagerRemoveAllScripts - --- method UserContentManager::remove_all_style_sheets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_user_content_manager_remove_all_style_sheets" webkit_user_content_manager_remove_all_style_sheets :: - Ptr UserContentManager -> -- _obj : TInterface "WebKit2" "UserContentManager" - IO () - - -userContentManagerRemoveAllStyleSheets :: - (MonadIO m, UserContentManagerK a) => - a -- _obj - -> m () -- result -userContentManagerRemoveAllStyleSheets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_user_content_manager_remove_all_style_sheets _obj' - touchManagedPtr _obj - return () - -data UserContentManagerRemoveAllStyleSheetsMethodInfo -instance (signature ~ (m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerRemoveAllStyleSheetsMethodInfo a signature where - overloadedMethod _ = userContentManagerRemoveAllStyleSheets - --- method UserContentManager::unregister_script_message_handler --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_user_content_manager_unregister_script_message_handler" webkit_user_content_manager_unregister_script_message_handler :: - Ptr UserContentManager -> -- _obj : TInterface "WebKit2" "UserContentManager" - CString -> -- name : TBasicType TUTF8 - IO () - - -userContentManagerUnregisterScriptMessageHandler :: - (MonadIO m, UserContentManagerK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -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 () - -data UserContentManagerUnregisterScriptMessageHandlerMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerUnregisterScriptMessageHandlerMethodInfo a signature where - overloadedMethod _ = userContentManagerUnregisterScriptMessageHandler - - diff --git a/GI/WebKit2/Objects/UserContentManager.hs-boot b/GI/WebKit2/Objects/UserContentManager.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/UserContentManager.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.WebKit2.Objects.UserContentManager where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UserContentManager = UserContentManager (ForeignPtr UserContentManager) -instance GObject UserContentManager where -class GObject o => UserContentManagerK o -instance (GObject o, IsDescendantOf UserContentManager o) => UserContentManagerK o -data UserContentManagerScriptMessageReceivedSignalInfo -data UserContentManagerAddScriptMethodInfo -data UserContentManagerAddStyleSheetMethodInfo -data UserContentManagerRegisterScriptMessageHandlerMethodInfo -data UserContentManagerRemoveAllScriptsMethodInfo -data UserContentManagerRemoveAllStyleSheetsMethodInfo -data UserContentManagerUnregisterScriptMessageHandlerMethodInfo diff --git a/GI/WebKit2/Objects/UserMediaPermissionRequest.hs b/GI/WebKit2/Objects/UserMediaPermissionRequest.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/UserMediaPermissionRequest.hs +++ /dev/null @@ -1,155 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.UserMediaPermissionRequest - ( - --- * Exported types - UserMediaPermissionRequest(..) , - UserMediaPermissionRequestK , - toUserMediaPermissionRequest , - noUserMediaPermissionRequest , - - - -- * Properties --- ** IsForAudioDevice - UserMediaPermissionRequestIsForAudioDevicePropertyInfo, - getUserMediaPermissionRequestIsForAudioDevice, - userMediaPermissionRequestIsForAudioDevice, - - --- ** IsForVideoDevice - UserMediaPermissionRequestIsForVideoDevicePropertyInfo, - getUserMediaPermissionRequestIsForVideoDevice, - userMediaPermissionRequestIsForVideoDevice, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype UserMediaPermissionRequest = UserMediaPermissionRequest (ForeignPtr UserMediaPermissionRequest) -foreign import ccall "webkit_user_media_permission_request_get_type" - c_webkit_user_media_permission_request_get_type :: IO GType - -type instance ParentTypes UserMediaPermissionRequest = UserMediaPermissionRequestParentTypes -type UserMediaPermissionRequestParentTypes = '[GObject.Object, PermissionRequest] - -instance GObject UserMediaPermissionRequest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_user_media_permission_request_get_type - - -class GObject o => UserMediaPermissionRequestK o -instance (GObject o, IsDescendantOf UserMediaPermissionRequest o) => UserMediaPermissionRequestK o - -toUserMediaPermissionRequest :: UserMediaPermissionRequestK o => o -> IO UserMediaPermissionRequest -toUserMediaPermissionRequest = unsafeCastTo UserMediaPermissionRequest - -noUserMediaPermissionRequest :: Maybe UserMediaPermissionRequest -noUserMediaPermissionRequest = Nothing - -type family ResolveUserMediaPermissionRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveUserMediaPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo - ResolveUserMediaPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveUserMediaPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveUserMediaPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo - ResolveUserMediaPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveUserMediaPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveUserMediaPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveUserMediaPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveUserMediaPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveUserMediaPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveUserMediaPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveUserMediaPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveUserMediaPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveUserMediaPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveUserMediaPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveUserMediaPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveUserMediaPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveUserMediaPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveUserMediaPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveUserMediaPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveUserMediaPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveUserMediaPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveUserMediaPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveUserMediaPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveUserMediaPermissionRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUserMediaPermissionRequestMethod t UserMediaPermissionRequest, MethodInfo info UserMediaPermissionRequest p) => IsLabelProxy t (UserMediaPermissionRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUserMediaPermissionRequestMethod t UserMediaPermissionRequest, MethodInfo info UserMediaPermissionRequest p) => IsLabel t (UserMediaPermissionRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "is-for-audio-device" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "is-for-audio-device" - attrGet _ = getUserMediaPermissionRequestIsForAudioDevice - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-for-video-device" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "is-for-video-device" - attrGet _ = getUserMediaPermissionRequestIsForVideoDevice - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList UserMediaPermissionRequest = UserMediaPermissionRequestAttributeList -type UserMediaPermissionRequestAttributeList = ('[ '("isForAudioDevice", UserMediaPermissionRequestIsForAudioDevicePropertyInfo), '("isForVideoDevice", UserMediaPermissionRequestIsForVideoDevicePropertyInfo)] :: [(Symbol, *)]) - -userMediaPermissionRequestIsForAudioDevice :: AttrLabelProxy "isForAudioDevice" -userMediaPermissionRequestIsForAudioDevice = AttrLabelProxy - -userMediaPermissionRequestIsForVideoDevice :: AttrLabelProxy "isForVideoDevice" -userMediaPermissionRequestIsForVideoDevice = AttrLabelProxy - -type instance SignalList UserMediaPermissionRequest = UserMediaPermissionRequestSignalList -type UserMediaPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/WebKit2/Objects/UserMediaPermissionRequest.hs-boot b/GI/WebKit2/Objects/UserMediaPermissionRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/UserMediaPermissionRequest.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.WebKit2.Objects.UserMediaPermissionRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UserMediaPermissionRequest = UserMediaPermissionRequest (ForeignPtr UserMediaPermissionRequest) -instance GObject UserMediaPermissionRequest where -class GObject o => UserMediaPermissionRequestK o -instance (GObject o, IsDescendantOf UserMediaPermissionRequest o) => UserMediaPermissionRequestK o -data UserMediaPermissionRequestIsForAudioDevicePropertyInfo -data UserMediaPermissionRequestIsForVideoDevicePropertyInfo diff --git a/GI/WebKit2/Objects/WebContext.hs b/GI/WebKit2/Objects/WebContext.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/WebContext.hs +++ /dev/null @@ -1,1479 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.WebContext - ( - --- * Exported types - WebContext(..) , - WebContextK , - toWebContext , - noWebContext , - - - -- * Methods --- ** webContextAllowTlsCertificateForHost - WebContextAllowTlsCertificateForHostMethodInfo, - webContextAllowTlsCertificateForHost , - - --- ** webContextClearCache - WebContextClearCacheMethodInfo , - webContextClearCache , - - --- ** webContextDownloadUri - WebContextDownloadUriMethodInfo , - webContextDownloadUri , - - --- ** webContextGetCacheModel - WebContextGetCacheModelMethodInfo , - webContextGetCacheModel , - - --- ** webContextGetCookieManager - WebContextGetCookieManagerMethodInfo , - webContextGetCookieManager , - - --- ** webContextGetDefault - webContextGetDefault , - - --- ** webContextGetFaviconDatabase - WebContextGetFaviconDatabaseMethodInfo , - webContextGetFaviconDatabase , - - --- ** webContextGetFaviconDatabaseDirectory - WebContextGetFaviconDatabaseDirectoryMethodInfo, - webContextGetFaviconDatabaseDirectory , - - --- ** webContextGetPlugins - WebContextGetPluginsMethodInfo , - webContextGetPlugins , - - --- ** webContextGetPluginsFinish - WebContextGetPluginsFinishMethodInfo , - webContextGetPluginsFinish , - - --- ** webContextGetProcessModel - WebContextGetProcessModelMethodInfo , - webContextGetProcessModel , - - --- ** webContextGetSecurityManager - WebContextGetSecurityManagerMethodInfo , - webContextGetSecurityManager , - - --- ** webContextGetSpellCheckingEnabled - WebContextGetSpellCheckingEnabledMethodInfo, - webContextGetSpellCheckingEnabled , - - --- ** webContextGetSpellCheckingLanguages - WebContextGetSpellCheckingLanguagesMethodInfo, - webContextGetSpellCheckingLanguages , - - --- ** webContextGetTlsErrorsPolicy - WebContextGetTlsErrorsPolicyMethodInfo , - webContextGetTlsErrorsPolicy , - - --- ** webContextGetWebProcessCountLimit - WebContextGetWebProcessCountLimitMethodInfo, - webContextGetWebProcessCountLimit , - - --- ** webContextGetWebsiteDataManager - WebContextGetWebsiteDataManagerMethodInfo, - webContextGetWebsiteDataManager , - - --- ** webContextNew - webContextNew , - - --- ** webContextNewWithWebsiteDataManager - webContextNewWithWebsiteDataManager , - - --- ** webContextPrefetchDns - WebContextPrefetchDnsMethodInfo , - webContextPrefetchDns , - - --- ** webContextRegisterUriScheme - WebContextRegisterUriSchemeMethodInfo , - webContextRegisterUriScheme , - - --- ** webContextSetAdditionalPluginsDirectory - WebContextSetAdditionalPluginsDirectoryMethodInfo, - webContextSetAdditionalPluginsDirectory , - - --- ** webContextSetCacheModel - WebContextSetCacheModelMethodInfo , - webContextSetCacheModel , - - --- ** webContextSetDiskCacheDirectory - WebContextSetDiskCacheDirectoryMethodInfo, - webContextSetDiskCacheDirectory , - - --- ** webContextSetFaviconDatabaseDirectory - WebContextSetFaviconDatabaseDirectoryMethodInfo, - webContextSetFaviconDatabaseDirectory , - - --- ** webContextSetPreferredLanguages - WebContextSetPreferredLanguagesMethodInfo, - webContextSetPreferredLanguages , - - --- ** webContextSetProcessModel - WebContextSetProcessModelMethodInfo , - webContextSetProcessModel , - - --- ** webContextSetSpellCheckingEnabled - WebContextSetSpellCheckingEnabledMethodInfo, - webContextSetSpellCheckingEnabled , - - --- ** webContextSetSpellCheckingLanguages - WebContextSetSpellCheckingLanguagesMethodInfo, - webContextSetSpellCheckingLanguages , - - --- ** webContextSetTlsErrorsPolicy - WebContextSetTlsErrorsPolicyMethodInfo , - webContextSetTlsErrorsPolicy , - - --- ** webContextSetWebExtensionsDirectory - WebContextSetWebExtensionsDirectoryMethodInfo, - webContextSetWebExtensionsDirectory , - - --- ** webContextSetWebExtensionsInitializationUserData - WebContextSetWebExtensionsInitializationUserDataMethodInfo, - webContextSetWebExtensionsInitializationUserData, - - --- ** webContextSetWebProcessCountLimit - WebContextSetWebProcessCountLimitMethodInfo, - webContextSetWebProcessCountLimit , - - - - - -- * Properties --- ** LocalStorageDirectory - WebContextLocalStorageDirectoryPropertyInfo, - constructWebContextLocalStorageDirectory, - getWebContextLocalStorageDirectory , - webContextLocalStorageDirectory , - - --- ** WebsiteDataManager - WebContextWebsiteDataManagerPropertyInfo, - constructWebContextWebsiteDataManager , - getWebContextWebsiteDataManager , - webContextWebsiteDataManager , - - - - - -- * Signals --- ** DownloadStarted - WebContextDownloadStartedCallback , - WebContextDownloadStartedCallbackC , - WebContextDownloadStartedSignalInfo , - afterWebContextDownloadStarted , - mkWebContextDownloadStartedCallback , - noWebContextDownloadStartedCallback , - onWebContextDownloadStarted , - webContextDownloadStartedCallbackWrapper, - webContextDownloadStartedClosure , - - --- ** InitializeWebExtensions - WebContextInitializeWebExtensionsCallback, - WebContextInitializeWebExtensionsCallbackC, - WebContextInitializeWebExtensionsSignalInfo, - afterWebContextInitializeWebExtensions , - mkWebContextInitializeWebExtensionsCallback, - noWebContextInitializeWebExtensionsCallback, - onWebContextInitializeWebExtensions , - webContextInitializeWebExtensionsCallbackWrapper, - webContextInitializeWebExtensionsClosure, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype WebContext = WebContext (ForeignPtr WebContext) -foreign import ccall "webkit_web_context_get_type" - c_webkit_web_context_get_type :: IO GType - -type instance ParentTypes WebContext = WebContextParentTypes -type WebContextParentTypes = '[GObject.Object] - -instance GObject WebContext where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_web_context_get_type - - -class GObject o => WebContextK o -instance (GObject o, IsDescendantOf WebContext o) => WebContextK o - -toWebContext :: WebContextK o => o -> IO WebContext -toWebContext = unsafeCastTo WebContext - -noWebContext :: Maybe WebContext -noWebContext = Nothing - -type family ResolveWebContextMethod (t :: Symbol) (o :: *) :: * where - ResolveWebContextMethod "allowTlsCertificateForHost" o = WebContextAllowTlsCertificateForHostMethodInfo - ResolveWebContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWebContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWebContextMethod "clearCache" o = WebContextClearCacheMethodInfo - ResolveWebContextMethod "downloadUri" o = WebContextDownloadUriMethodInfo - ResolveWebContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWebContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWebContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWebContextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWebContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWebContextMethod "prefetchDns" o = WebContextPrefetchDnsMethodInfo - ResolveWebContextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWebContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWebContextMethod "registerUriScheme" o = WebContextRegisterUriSchemeMethodInfo - ResolveWebContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWebContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWebContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWebContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWebContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWebContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWebContextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWebContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWebContextMethod "getCacheModel" o = WebContextGetCacheModelMethodInfo - ResolveWebContextMethod "getCookieManager" o = WebContextGetCookieManagerMethodInfo - ResolveWebContextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWebContextMethod "getFaviconDatabase" o = WebContextGetFaviconDatabaseMethodInfo - ResolveWebContextMethod "getFaviconDatabaseDirectory" o = WebContextGetFaviconDatabaseDirectoryMethodInfo - ResolveWebContextMethod "getPlugins" o = WebContextGetPluginsMethodInfo - ResolveWebContextMethod "getPluginsFinish" o = WebContextGetPluginsFinishMethodInfo - ResolveWebContextMethod "getProcessModel" o = WebContextGetProcessModelMethodInfo - ResolveWebContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWebContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWebContextMethod "getSecurityManager" o = WebContextGetSecurityManagerMethodInfo - ResolveWebContextMethod "getSpellCheckingEnabled" o = WebContextGetSpellCheckingEnabledMethodInfo - ResolveWebContextMethod "getSpellCheckingLanguages" o = WebContextGetSpellCheckingLanguagesMethodInfo - ResolveWebContextMethod "getTlsErrorsPolicy" o = WebContextGetTlsErrorsPolicyMethodInfo - ResolveWebContextMethod "getWebProcessCountLimit" o = WebContextGetWebProcessCountLimitMethodInfo - ResolveWebContextMethod "getWebsiteDataManager" o = WebContextGetWebsiteDataManagerMethodInfo - ResolveWebContextMethod "setAdditionalPluginsDirectory" o = WebContextSetAdditionalPluginsDirectoryMethodInfo - ResolveWebContextMethod "setCacheModel" o = WebContextSetCacheModelMethodInfo - ResolveWebContextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWebContextMethod "setDiskCacheDirectory" o = WebContextSetDiskCacheDirectoryMethodInfo - ResolveWebContextMethod "setFaviconDatabaseDirectory" o = WebContextSetFaviconDatabaseDirectoryMethodInfo - ResolveWebContextMethod "setPreferredLanguages" o = WebContextSetPreferredLanguagesMethodInfo - ResolveWebContextMethod "setProcessModel" o = WebContextSetProcessModelMethodInfo - ResolveWebContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWebContextMethod "setSpellCheckingEnabled" o = WebContextSetSpellCheckingEnabledMethodInfo - ResolveWebContextMethod "setSpellCheckingLanguages" o = WebContextSetSpellCheckingLanguagesMethodInfo - ResolveWebContextMethod "setTlsErrorsPolicy" o = WebContextSetTlsErrorsPolicyMethodInfo - ResolveWebContextMethod "setWebExtensionsDirectory" o = WebContextSetWebExtensionsDirectoryMethodInfo - ResolveWebContextMethod "setWebExtensionsInitializationUserData" o = WebContextSetWebExtensionsInitializationUserDataMethodInfo - ResolveWebContextMethod "setWebProcessCountLimit" o = WebContextSetWebProcessCountLimitMethodInfo - ResolveWebContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebContextMethod t WebContext, MethodInfo info WebContext p) => IsLabelProxy t (WebContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebContextMethod t WebContext, MethodInfo info WebContext p) => IsLabel t (WebContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal WebContext::download-started -type WebContextDownloadStartedCallback = - Download -> - IO () - -noWebContextDownloadStartedCallback :: Maybe WebContextDownloadStartedCallback -noWebContextDownloadStartedCallback = Nothing - -type WebContextDownloadStartedCallbackC = - Ptr () -> -- object - Ptr Download -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebContextDownloadStartedCallback :: WebContextDownloadStartedCallbackC -> IO (FunPtr WebContextDownloadStartedCallbackC) - -webContextDownloadStartedClosure :: WebContextDownloadStartedCallback -> IO Closure -webContextDownloadStartedClosure cb = newCClosure =<< mkWebContextDownloadStartedCallback wrapped - where wrapped = webContextDownloadStartedCallbackWrapper cb - -webContextDownloadStartedCallbackWrapper :: - WebContextDownloadStartedCallback -> - Ptr () -> - Ptr Download -> - Ptr () -> - IO () -webContextDownloadStartedCallbackWrapper _cb _ download _ = do - download' <- (newObject Download) download - _cb download' - -onWebContextDownloadStarted :: (GObject a, MonadIO m) => a -> WebContextDownloadStartedCallback -> m SignalHandlerId -onWebContextDownloadStarted obj cb = liftIO $ connectWebContextDownloadStarted obj cb SignalConnectBefore -afterWebContextDownloadStarted :: (GObject a, MonadIO m) => a -> WebContextDownloadStartedCallback -> m SignalHandlerId -afterWebContextDownloadStarted obj cb = connectWebContextDownloadStarted obj cb SignalConnectAfter - -connectWebContextDownloadStarted :: (GObject a, MonadIO m) => - a -> WebContextDownloadStartedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebContextDownloadStarted obj cb after = liftIO $ do - cb' <- mkWebContextDownloadStartedCallback (webContextDownloadStartedCallbackWrapper cb) - connectSignalFunPtr obj "download-started" cb' after - --- signal WebContext::initialize-web-extensions -type WebContextInitializeWebExtensionsCallback = - IO () - -noWebContextInitializeWebExtensionsCallback :: Maybe WebContextInitializeWebExtensionsCallback -noWebContextInitializeWebExtensionsCallback = Nothing - -type WebContextInitializeWebExtensionsCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebContextInitializeWebExtensionsCallback :: WebContextInitializeWebExtensionsCallbackC -> IO (FunPtr WebContextInitializeWebExtensionsCallbackC) - -webContextInitializeWebExtensionsClosure :: WebContextInitializeWebExtensionsCallback -> IO Closure -webContextInitializeWebExtensionsClosure cb = newCClosure =<< mkWebContextInitializeWebExtensionsCallback wrapped - where wrapped = webContextInitializeWebExtensionsCallbackWrapper cb - -webContextInitializeWebExtensionsCallbackWrapper :: - WebContextInitializeWebExtensionsCallback -> - Ptr () -> - Ptr () -> - IO () -webContextInitializeWebExtensionsCallbackWrapper _cb _ _ = do - _cb - -onWebContextInitializeWebExtensions :: (GObject a, MonadIO m) => a -> WebContextInitializeWebExtensionsCallback -> m SignalHandlerId -onWebContextInitializeWebExtensions obj cb = liftIO $ connectWebContextInitializeWebExtensions obj cb SignalConnectBefore -afterWebContextInitializeWebExtensions :: (GObject a, MonadIO m) => a -> WebContextInitializeWebExtensionsCallback -> m SignalHandlerId -afterWebContextInitializeWebExtensions obj cb = connectWebContextInitializeWebExtensions obj cb SignalConnectAfter - -connectWebContextInitializeWebExtensions :: (GObject a, MonadIO m) => - a -> WebContextInitializeWebExtensionsCallback -> SignalConnectMode -> m SignalHandlerId -connectWebContextInitializeWebExtensions obj cb after = liftIO $ do - cb' <- mkWebContextInitializeWebExtensionsCallback (webContextInitializeWebExtensionsCallbackWrapper cb) - connectSignalFunPtr obj "initialize-web-extensions" cb' after - --- VVV Prop "local-storage-directory" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getWebContextLocalStorageDirectory :: (MonadIO m, WebContextK o) => o -> m (Maybe T.Text) -getWebContextLocalStorageDirectory obj = liftIO $ getObjectPropertyString obj "local-storage-directory" - -constructWebContextLocalStorageDirectory :: T.Text -> IO ([Char], GValue) -constructWebContextLocalStorageDirectory val = constructObjectPropertyString "local-storage-directory" (Just val) - -data WebContextLocalStorageDirectoryPropertyInfo -instance AttrInfo WebContextLocalStorageDirectoryPropertyInfo where - type AttrAllowedOps WebContextLocalStorageDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = WebContextK - type AttrGetType WebContextLocalStorageDirectoryPropertyInfo = (Maybe T.Text) - type AttrLabel WebContextLocalStorageDirectoryPropertyInfo = "local-storage-directory" - attrGet _ = getWebContextLocalStorageDirectory - attrSet _ = undefined - attrConstruct _ = constructWebContextLocalStorageDirectory - attrClear _ = undefined - --- VVV Prop "website-data-manager" - -- Type: TInterface "WebKit2" "WebsiteDataManager" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebContextWebsiteDataManager :: (MonadIO m, WebContextK o) => o -> m WebsiteDataManager -getWebContextWebsiteDataManager obj = liftIO $ checkUnexpectedNothing "getWebContextWebsiteDataManager" $ getObjectPropertyObject obj "website-data-manager" WebsiteDataManager - -constructWebContextWebsiteDataManager :: (WebsiteDataManagerK a) => a -> IO ([Char], GValue) -constructWebContextWebsiteDataManager val = constructObjectPropertyObject "website-data-manager" (Just val) - -data WebContextWebsiteDataManagerPropertyInfo -instance AttrInfo WebContextWebsiteDataManagerPropertyInfo where - type AttrAllowedOps WebContextWebsiteDataManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebContextWebsiteDataManagerPropertyInfo = WebsiteDataManagerK - type AttrBaseTypeConstraint WebContextWebsiteDataManagerPropertyInfo = WebContextK - type AttrGetType WebContextWebsiteDataManagerPropertyInfo = WebsiteDataManager - type AttrLabel WebContextWebsiteDataManagerPropertyInfo = "website-data-manager" - attrGet _ = getWebContextWebsiteDataManager - attrSet _ = undefined - attrConstruct _ = constructWebContextWebsiteDataManager - attrClear _ = undefined - -type instance AttributeList WebContext = WebContextAttributeList -type WebContextAttributeList = ('[ '("localStorageDirectory", WebContextLocalStorageDirectoryPropertyInfo), '("websiteDataManager", WebContextWebsiteDataManagerPropertyInfo)] :: [(Symbol, *)]) - -webContextLocalStorageDirectory :: AttrLabelProxy "localStorageDirectory" -webContextLocalStorageDirectory = AttrLabelProxy - -webContextWebsiteDataManager :: AttrLabelProxy "websiteDataManager" -webContextWebsiteDataManager = AttrLabelProxy - -data WebContextDownloadStartedSignalInfo -instance SignalInfo WebContextDownloadStartedSignalInfo where - type HaskellCallbackType WebContextDownloadStartedSignalInfo = WebContextDownloadStartedCallback - connectSignal _ = connectWebContextDownloadStarted - -data WebContextInitializeWebExtensionsSignalInfo -instance SignalInfo WebContextInitializeWebExtensionsSignalInfo where - type HaskellCallbackType WebContextInitializeWebExtensionsSignalInfo = WebContextInitializeWebExtensionsCallback - connectSignal _ = connectWebContextInitializeWebExtensions - -type instance SignalList WebContext = WebContextSignalList -type WebContextSignalList = ('[ '("downloadStarted", WebContextDownloadStartedSignalInfo), '("initializeWebExtensions", WebContextInitializeWebExtensionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method WebContext::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -webContextNew = liftIO $ do - result <- webkit_web_context_new - checkUnexpectedReturnNULL "webkit_web_context_new" result - result' <- (wrapObject WebContext) result - return result' - --- method WebContext::new_with_website_data_manager --- method type : Constructor --- Args : [Arg {argCName = "manager", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebContext") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_new_with_website_data_manager" webkit_web_context_new_with_website_data_manager :: - Ptr WebsiteDataManager -> -- manager : TInterface "WebKit2" "WebsiteDataManager" - IO (Ptr WebContext) - - -webContextNewWithWebsiteDataManager :: - (MonadIO m, WebsiteDataManagerK a) => - a -- manager - -> m WebContext -- result -webContextNewWithWebsiteDataManager manager = liftIO $ do - let manager' = unsafeManagedPtrCastPtr manager - result <- webkit_web_context_new_with_website_data_manager manager' - checkUnexpectedReturnNULL "webkit_web_context_new_with_website_data_manager" result - result' <- (wrapObject WebContext) result - touchManagedPtr manager - return result' - --- method WebContext::allow_tls_certificate_for_host --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_allow_tls_certificate_for_host" webkit_web_context_allow_tls_certificate_for_host :: - Ptr WebContext -> -- _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 () -- result -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 () - -data WebContextAllowTlsCertificateForHostMethodInfo -instance (signature ~ (b -> T.Text -> m ()), MonadIO m, WebContextK a, Gio.TlsCertificateK b) => MethodInfo WebContextAllowTlsCertificateForHostMethodInfo a signature where - overloadedMethod _ = webContextAllowTlsCertificateForHost - --- method WebContext::clear_cache --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_clear_cache" webkit_web_context_clear_cache :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - IO () - - -webContextClearCache :: - (MonadIO m, WebContextK a) => - a -- _obj - -> m () -- result -webContextClearCache _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_context_clear_cache _obj' - touchManagedPtr _obj - return () - -data WebContextClearCacheMethodInfo -instance (signature ~ (m ()), MonadIO m, WebContextK a) => MethodInfo WebContextClearCacheMethodInfo a signature where - overloadedMethod _ = webContextClearCache - --- method WebContext::download_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebContextDownloadUriMethodInfo -instance (signature ~ (T.Text -> m Download), MonadIO m, WebContextK a) => MethodInfo WebContextDownloadUriMethodInfo a signature where - overloadedMethod _ = webContextDownloadUri - --- method WebContext::get_cache_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebContextGetCacheModelMethodInfo -instance (signature ~ (m CacheModel), MonadIO m, WebContextK a) => MethodInfo WebContextGetCacheModelMethodInfo a signature where - overloadedMethod _ = webContextGetCacheModel - --- method WebContext::get_cookie_manager --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebContextGetCookieManagerMethodInfo -instance (signature ~ (m CookieManager), MonadIO m, WebContextK a) => MethodInfo WebContextGetCookieManagerMethodInfo a signature where - overloadedMethod _ = webContextGetCookieManager - --- method WebContext::get_favicon_database --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebContextGetFaviconDatabaseMethodInfo -instance (signature ~ (m FaviconDatabase), MonadIO m, WebContextK a) => MethodInfo WebContextGetFaviconDatabaseMethodInfo a signature where - overloadedMethod _ = webContextGetFaviconDatabase - --- method WebContext::get_favicon_database_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_get_favicon_database_directory" webkit_web_context_get_favicon_database_directory :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - IO CString - - -webContextGetFaviconDatabaseDirectory :: - (MonadIO m, WebContextK a) => - a -- _obj - -> m T.Text -- result -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' - -data WebContextGetFaviconDatabaseDirectoryMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebContextK a) => MethodInfo WebContextGetFaviconDatabaseDirectoryMethodInfo a signature where - overloadedMethod _ = webContextGetFaviconDatabaseDirectory - --- method WebContext::get_plugins --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_get_plugins" webkit_web_context_get_plugins :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -webContextGetPlugins :: - (MonadIO m, WebContextK a, Gio.CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -webContextGetPlugins _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - webkit_web_context_get_plugins _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data WebContextGetPluginsMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebContextK a, Gio.CancellableK b) => MethodInfo WebContextGetPluginsMethodInfo a signature where - overloadedMethod _ = webContextGetPlugins - --- method WebContext::get_plugins_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -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_' - result' <- unpackGList result - result'' <- mapM (wrapObject Plugin) result' - g_list_free result - touchManagedPtr _obj - touchManagedPtr result_ - return result'' - ) (do - return () - ) - -data WebContextGetPluginsFinishMethodInfo -instance (signature ~ (b -> m [Plugin]), MonadIO m, WebContextK a, Gio.AsyncResultK b) => MethodInfo WebContextGetPluginsFinishMethodInfo a signature where - overloadedMethod _ = webContextGetPluginsFinish - --- method WebContext::get_process_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebContextGetProcessModelMethodInfo -instance (signature ~ (m ProcessModel), MonadIO m, WebContextK a) => MethodInfo WebContextGetProcessModelMethodInfo a signature where - overloadedMethod _ = webContextGetProcessModel - --- method WebContext::get_security_manager --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebContextGetSecurityManagerMethodInfo -instance (signature ~ (m SecurityManager), MonadIO m, WebContextK a) => MethodInfo WebContextGetSecurityManagerMethodInfo a signature where - overloadedMethod _ = webContextGetSecurityManager - --- method WebContext::get_spell_checking_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_get_spell_checking_enabled" webkit_web_context_get_spell_checking_enabled :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - IO CInt - - -webContextGetSpellCheckingEnabled :: - (MonadIO m, WebContextK a) => - a -- _obj - -> m Bool -- result -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' - -data WebContextGetSpellCheckingEnabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, WebContextK a) => MethodInfo WebContextGetSpellCheckingEnabledMethodInfo a signature where - overloadedMethod _ = webContextGetSpellCheckingEnabled - --- method WebContext::get_spell_checking_languages --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_get_spell_checking_languages" webkit_web_context_get_spell_checking_languages :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - IO (Ptr CString) - - -webContextGetSpellCheckingLanguages :: - (MonadIO m, WebContextK a) => - a -- _obj - -> m [T.Text] -- result -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' - -data WebContextGetSpellCheckingLanguagesMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, WebContextK a) => MethodInfo WebContextGetSpellCheckingLanguagesMethodInfo a signature where - overloadedMethod _ = webContextGetSpellCheckingLanguages - --- method WebContext::get_tls_errors_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebContextGetTlsErrorsPolicyMethodInfo -instance (signature ~ (m TLSErrorsPolicy), MonadIO m, WebContextK a) => MethodInfo WebContextGetTlsErrorsPolicyMethodInfo a signature where - overloadedMethod _ = webContextGetTlsErrorsPolicy - --- method WebContext::get_web_process_count_limit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_get_web_process_count_limit" webkit_web_context_get_web_process_count_limit :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - IO Word32 - - -webContextGetWebProcessCountLimit :: - (MonadIO m, WebContextK a) => - a -- _obj - -> m Word32 -- result -webContextGetWebProcessCountLimit _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_context_get_web_process_count_limit _obj' - touchManagedPtr _obj - return result - -data WebContextGetWebProcessCountLimitMethodInfo -instance (signature ~ (m Word32), MonadIO m, WebContextK a) => MethodInfo WebContextGetWebProcessCountLimitMethodInfo a signature where - overloadedMethod _ = webContextGetWebProcessCountLimit - --- method WebContext::get_website_data_manager --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebsiteDataManager") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_get_website_data_manager" webkit_web_context_get_website_data_manager :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - IO (Ptr WebsiteDataManager) - - -webContextGetWebsiteDataManager :: - (MonadIO m, WebContextK a) => - a -- _obj - -> m WebsiteDataManager -- result -webContextGetWebsiteDataManager _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_context_get_website_data_manager _obj' - checkUnexpectedReturnNULL "webkit_web_context_get_website_data_manager" result - result' <- (newObject WebsiteDataManager) result - touchManagedPtr _obj - return result' - -data WebContextGetWebsiteDataManagerMethodInfo -instance (signature ~ (m WebsiteDataManager), MonadIO m, WebContextK a) => MethodInfo WebContextGetWebsiteDataManagerMethodInfo a signature where - overloadedMethod _ = webContextGetWebsiteDataManager - --- method WebContext::prefetch_dns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -webContextPrefetchDns _obj hostname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - hostname' <- textToCString hostname - webkit_web_context_prefetch_dns _obj' hostname' - touchManagedPtr _obj - freeMem hostname' - return () - -data WebContextPrefetchDnsMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextPrefetchDnsMethodInfo a signature where - overloadedMethod _ = webContextPrefetchDns - --- method WebContext::register_uri_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "WebKit2" "URISchemeRequestCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - FunPtr GLib.DestroyNotifyC -> -- user_data_destroy_func : TInterface "GLib" "DestroyNotify" - IO () - - -webContextRegisterUriScheme :: - (MonadIO m, WebContextK a) => - a -- _obj - -> T.Text -- scheme - -> URISchemeRequestCallback -- callback - -> m () -- result -webContextRegisterUriScheme _obj scheme callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - scheme' <- textToCString scheme - callback' <- mkURISchemeRequestCallback (uRISchemeRequestCallbackWrapper Nothing callback) - let userData = castFunPtrToPtr callback' - let userDataDestroyFunc = safeFreeFunPtrPtr - webkit_web_context_register_uri_scheme _obj' scheme' callback' userData userDataDestroyFunc - touchManagedPtr _obj - freeMem scheme' - return () - -data WebContextRegisterUriSchemeMethodInfo -instance (signature ~ (T.Text -> URISchemeRequestCallback -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextRegisterUriSchemeMethodInfo a signature where - overloadedMethod _ = webContextRegisterUriScheme - --- method WebContext::set_additional_plugins_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_set_additional_plugins_directory" webkit_web_context_set_additional_plugins_directory :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - CString -> -- directory : TBasicType TUTF8 - IO () - - -webContextSetAdditionalPluginsDirectory :: - (MonadIO m, WebContextK a) => - a -- _obj - -> T.Text -- directory - -> m () -- result -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 () - -data WebContextSetAdditionalPluginsDirectoryMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetAdditionalPluginsDirectoryMethodInfo a signature where - overloadedMethod _ = webContextSetAdditionalPluginsDirectory - --- method WebContext::set_cache_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cache_model", argType = TInterface "WebKit2" "CacheModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- cacheModel - -> m () -- result -webContextSetCacheModel _obj cacheModel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cacheModel' = (fromIntegral . fromEnum) cacheModel - webkit_web_context_set_cache_model _obj' cacheModel' - touchManagedPtr _obj - return () - -data WebContextSetCacheModelMethodInfo -instance (signature ~ (CacheModel -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetCacheModelMethodInfo a signature where - overloadedMethod _ = webContextSetCacheModel - --- method WebContext::set_disk_cache_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_set_disk_cache_directory" webkit_web_context_set_disk_cache_directory :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - CString -> -- directory : TBasicType TUTF8 - IO () - -{-# DEPRECATED webContextSetDiskCacheDirectory ["(Since version 2.10.)","Use webkit_web_context_new_with_website_data_manager() instead."]#-} -webContextSetDiskCacheDirectory :: - (MonadIO m, WebContextK a) => - a -- _obj - -> T.Text -- directory - -> m () -- result -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 () - -data WebContextSetDiskCacheDirectoryMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetDiskCacheDirectoryMethodInfo a signature where - overloadedMethod _ = webContextSetDiskCacheDirectory - --- method WebContext::set_favicon_database_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_set_favicon_database_directory" webkit_web_context_set_favicon_database_directory :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - CString -> -- path : TBasicType TUTF8 - IO () - - -webContextSetFaviconDatabaseDirectory :: - (MonadIO m, WebContextK a) => - a -- _obj - -> Maybe (T.Text) -- path - -> m () -- result -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 () - -data WebContextSetFaviconDatabaseDirectoryMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetFaviconDatabaseDirectoryMethodInfo a signature where - overloadedMethod _ = webContextSetFaviconDatabaseDirectory - --- method WebContext::set_preferred_languages --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "languages", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data WebContextSetPreferredLanguagesMethodInfo -instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetPreferredLanguagesMethodInfo a signature where - overloadedMethod _ = webContextSetPreferredLanguages - --- method WebContext::set_process_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "process_model", argType = TInterface "WebKit2" "ProcessModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- processModel - -> m () -- result -webContextSetProcessModel _obj processModel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let processModel' = (fromIntegral . fromEnum) processModel - webkit_web_context_set_process_model _obj' processModel' - touchManagedPtr _obj - return () - -data WebContextSetProcessModelMethodInfo -instance (signature ~ (ProcessModel -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetProcessModelMethodInfo a signature where - overloadedMethod _ = webContextSetProcessModel - --- method WebContext::set_spell_checking_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_set_spell_checking_enabled" webkit_web_context_set_spell_checking_enabled :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -webContextSetSpellCheckingEnabled :: - (MonadIO m, WebContextK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -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 () - -data WebContextSetSpellCheckingEnabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetSpellCheckingEnabledMethodInfo a signature where - overloadedMethod _ = webContextSetSpellCheckingEnabled - --- method WebContext::set_spell_checking_languages --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "languages", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_set_spell_checking_languages" webkit_web_context_set_spell_checking_languages :: - Ptr WebContext -> -- _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 () -- result -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 () - -data WebContextSetSpellCheckingLanguagesMethodInfo -instance (signature ~ ([T.Text] -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetSpellCheckingLanguagesMethodInfo a signature where - overloadedMethod _ = webContextSetSpellCheckingLanguages - --- method WebContext::set_tls_errors_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "WebKit2" "TLSErrorsPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_set_tls_errors_policy" webkit_web_context_set_tls_errors_policy :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - CUInt -> -- policy : TInterface "WebKit2" "TLSErrorsPolicy" - IO () - - -webContextSetTlsErrorsPolicy :: - (MonadIO m, WebContextK a) => - a -- _obj - -> TLSErrorsPolicy -- policy - -> m () -- result -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 () - -data WebContextSetTlsErrorsPolicyMethodInfo -instance (signature ~ (TLSErrorsPolicy -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetTlsErrorsPolicyMethodInfo a signature where - overloadedMethod _ = webContextSetTlsErrorsPolicy - --- method WebContext::set_web_extensions_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_set_web_extensions_directory" webkit_web_context_set_web_extensions_directory :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - CString -> -- directory : TBasicType TUTF8 - IO () - - -webContextSetWebExtensionsDirectory :: - (MonadIO m, WebContextK a) => - a -- _obj - -> T.Text -- directory - -> m () -- result -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 () - -data WebContextSetWebExtensionsDirectoryMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetWebExtensionsDirectoryMethodInfo a signature where - overloadedMethod _ = webContextSetWebExtensionsDirectory - --- method WebContext::set_web_extensions_initialization_user_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_set_web_extensions_initialization_user_data" webkit_web_context_set_web_extensions_initialization_user_data :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - Ptr GVariant -> -- user_data : TVariant - IO () - - -webContextSetWebExtensionsInitializationUserData :: - (MonadIO m, WebContextK a) => - a -- _obj - -> GVariant -- userData - -> m () -- result -webContextSetWebExtensionsInitializationUserData _obj userData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let userData' = unsafeManagedPtrGetPtr userData - webkit_web_context_set_web_extensions_initialization_user_data _obj' userData' - touchManagedPtr _obj - return () - -data WebContextSetWebExtensionsInitializationUserDataMethodInfo -instance (signature ~ (GVariant -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetWebExtensionsInitializationUserDataMethodInfo a signature where - overloadedMethod _ = webContextSetWebExtensionsInitializationUserData - --- method WebContext::set_web_process_count_limit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_context_set_web_process_count_limit" webkit_web_context_set_web_process_count_limit :: - Ptr WebContext -> -- _obj : TInterface "WebKit2" "WebContext" - Word32 -> -- limit : TBasicType TUInt - IO () - - -webContextSetWebProcessCountLimit :: - (MonadIO m, WebContextK a) => - a -- _obj - -> Word32 -- limit - -> m () -- result -webContextSetWebProcessCountLimit _obj limit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_context_set_web_process_count_limit _obj' limit - touchManagedPtr _obj - return () - -data WebContextSetWebProcessCountLimitMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetWebProcessCountLimitMethodInfo a signature where - overloadedMethod _ = webContextSetWebProcessCountLimit - --- method WebContext::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -webContextGetDefault = liftIO $ do - result <- webkit_web_context_get_default - checkUnexpectedReturnNULL "webkit_web_context_get_default" result - result' <- (newObject WebContext) result - return result' - - diff --git a/GI/WebKit2/Objects/WebContext.hs-boot b/GI/WebKit2/Objects/WebContext.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/WebContext.hs-boot +++ /dev/null @@ -1,47 +0,0 @@ -module GI.WebKit2.Objects.WebContext where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WebContext = WebContext (ForeignPtr WebContext) -instance GObject WebContext where -class GObject o => WebContextK o -instance (GObject o, IsDescendantOf WebContext o) => WebContextK o -data WebContextLocalStorageDirectoryPropertyInfo -data WebContextWebsiteDataManagerPropertyInfo -data WebContextDownloadStartedSignalInfo -data WebContextInitializeWebExtensionsSignalInfo -data WebContextAllowTlsCertificateForHostMethodInfo -data WebContextClearCacheMethodInfo -data WebContextDownloadUriMethodInfo -data WebContextGetCacheModelMethodInfo -data WebContextGetCookieManagerMethodInfo -data WebContextGetFaviconDatabaseMethodInfo -data WebContextGetFaviconDatabaseDirectoryMethodInfo -data WebContextGetPluginsMethodInfo -data WebContextGetPluginsFinishMethodInfo -data WebContextGetProcessModelMethodInfo -data WebContextGetSecurityManagerMethodInfo -data WebContextGetSpellCheckingEnabledMethodInfo -data WebContextGetSpellCheckingLanguagesMethodInfo -data WebContextGetTlsErrorsPolicyMethodInfo -data WebContextGetWebProcessCountLimitMethodInfo -data WebContextGetWebsiteDataManagerMethodInfo -data WebContextPrefetchDnsMethodInfo -data WebContextRegisterUriSchemeMethodInfo -data WebContextSetAdditionalPluginsDirectoryMethodInfo -data WebContextSetCacheModelMethodInfo -data WebContextSetDiskCacheDirectoryMethodInfo -data WebContextSetFaviconDatabaseDirectoryMethodInfo -data WebContextSetPreferredLanguagesMethodInfo -data WebContextSetProcessModelMethodInfo -data WebContextSetSpellCheckingEnabledMethodInfo -data WebContextSetSpellCheckingLanguagesMethodInfo -data WebContextSetTlsErrorsPolicyMethodInfo -data WebContextSetWebExtensionsDirectoryMethodInfo -data WebContextSetWebExtensionsInitializationUserDataMethodInfo -data WebContextSetWebProcessCountLimitMethodInfo diff --git a/GI/WebKit2/Objects/WebInspector.hs b/GI/WebKit2/Objects/WebInspector.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/WebInspector.hs +++ /dev/null @@ -1,774 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.WebInspector - ( - --- * Exported types - WebInspector(..) , - WebInspectorK , - toWebInspector , - noWebInspector , - - - -- * Methods --- ** webInspectorAttach - WebInspectorAttachMethodInfo , - webInspectorAttach , - - --- ** webInspectorClose - WebInspectorCloseMethodInfo , - webInspectorClose , - - --- ** webInspectorDetach - WebInspectorDetachMethodInfo , - webInspectorDetach , - - --- ** webInspectorGetAttachedHeight - WebInspectorGetAttachedHeightMethodInfo , - webInspectorGetAttachedHeight , - - --- ** webInspectorGetCanAttach - WebInspectorGetCanAttachMethodInfo , - webInspectorGetCanAttach , - - --- ** webInspectorGetInspectedUri - WebInspectorGetInspectedUriMethodInfo , - webInspectorGetInspectedUri , - - --- ** webInspectorGetWebView - WebInspectorGetWebViewMethodInfo , - webInspectorGetWebView , - - --- ** webInspectorIsAttached - WebInspectorIsAttachedMethodInfo , - webInspectorIsAttached , - - --- ** webInspectorShow - WebInspectorShowMethodInfo , - webInspectorShow , - - - - - -- * Properties --- ** AttachedHeight - WebInspectorAttachedHeightPropertyInfo , - getWebInspectorAttachedHeight , - webInspectorAttachedHeight , - - --- ** CanAttach - WebInspectorCanAttachPropertyInfo , - getWebInspectorCanAttach , - webInspectorCanAttach , - - --- ** InspectedUri - WebInspectorInspectedUriPropertyInfo , - getWebInspectorInspectedUri , - webInspectorInspectedUri , - - - - - -- * Signals --- ** Attach - WebInspectorAttachCallback , - WebInspectorAttachCallbackC , - WebInspectorAttachSignalInfo , - afterWebInspectorAttach , - mkWebInspectorAttachCallback , - noWebInspectorAttachCallback , - onWebInspectorAttach , - webInspectorAttachCallbackWrapper , - webInspectorAttachClosure , - - --- ** BringToFront - WebInspectorBringToFrontCallback , - WebInspectorBringToFrontCallbackC , - WebInspectorBringToFrontSignalInfo , - afterWebInspectorBringToFront , - mkWebInspectorBringToFrontCallback , - noWebInspectorBringToFrontCallback , - onWebInspectorBringToFront , - webInspectorBringToFrontCallbackWrapper , - webInspectorBringToFrontClosure , - - --- ** Closed - WebInspectorClosedCallback , - WebInspectorClosedCallbackC , - WebInspectorClosedSignalInfo , - afterWebInspectorClosed , - mkWebInspectorClosedCallback , - noWebInspectorClosedCallback , - onWebInspectorClosed , - webInspectorClosedCallbackWrapper , - webInspectorClosedClosure , - - --- ** Detach - WebInspectorDetachCallback , - WebInspectorDetachCallbackC , - WebInspectorDetachSignalInfo , - afterWebInspectorDetach , - mkWebInspectorDetachCallback , - noWebInspectorDetachCallback , - onWebInspectorDetach , - webInspectorDetachCallbackWrapper , - webInspectorDetachClosure , - - --- ** OpenWindow - WebInspectorOpenWindowCallback , - WebInspectorOpenWindowCallbackC , - WebInspectorOpenWindowSignalInfo , - afterWebInspectorOpenWindow , - mkWebInspectorOpenWindowCallback , - noWebInspectorOpenWindowCallback , - onWebInspectorOpenWindow , - webInspectorOpenWindowCallbackWrapper , - webInspectorOpenWindowClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype WebInspector = WebInspector (ForeignPtr WebInspector) -foreign import ccall "webkit_web_inspector_get_type" - c_webkit_web_inspector_get_type :: IO GType - -type instance ParentTypes WebInspector = WebInspectorParentTypes -type WebInspectorParentTypes = '[GObject.Object] - -instance GObject WebInspector where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_web_inspector_get_type - - -class GObject o => WebInspectorK o -instance (GObject o, IsDescendantOf WebInspector o) => WebInspectorK o - -toWebInspector :: WebInspectorK o => o -> IO WebInspector -toWebInspector = unsafeCastTo WebInspector - -noWebInspector :: Maybe WebInspector -noWebInspector = Nothing - -type family ResolveWebInspectorMethod (t :: Symbol) (o :: *) :: * where - ResolveWebInspectorMethod "attach" o = WebInspectorAttachMethodInfo - ResolveWebInspectorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWebInspectorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWebInspectorMethod "close" o = WebInspectorCloseMethodInfo - ResolveWebInspectorMethod "detach" o = WebInspectorDetachMethodInfo - ResolveWebInspectorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWebInspectorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWebInspectorMethod "isAttached" o = WebInspectorIsAttachedMethodInfo - ResolveWebInspectorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWebInspectorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWebInspectorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWebInspectorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWebInspectorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWebInspectorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWebInspectorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWebInspectorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWebInspectorMethod "show" o = WebInspectorShowMethodInfo - ResolveWebInspectorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWebInspectorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWebInspectorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWebInspectorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWebInspectorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWebInspectorMethod "getAttachedHeight" o = WebInspectorGetAttachedHeightMethodInfo - ResolveWebInspectorMethod "getCanAttach" o = WebInspectorGetCanAttachMethodInfo - ResolveWebInspectorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWebInspectorMethod "getInspectedUri" o = WebInspectorGetInspectedUriMethodInfo - ResolveWebInspectorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWebInspectorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWebInspectorMethod "getWebView" o = WebInspectorGetWebViewMethodInfo - ResolveWebInspectorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWebInspectorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWebInspectorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebInspectorMethod t WebInspector, MethodInfo info WebInspector p) => IsLabelProxy t (WebInspector -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebInspectorMethod t WebInspector, MethodInfo info WebInspector p) => IsLabel t (WebInspector -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal WebInspector::attach -type WebInspectorAttachCallback = - IO Bool - -noWebInspectorAttachCallback :: Maybe WebInspectorAttachCallback -noWebInspectorAttachCallback = Nothing - -type WebInspectorAttachCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebInspectorAttachCallback :: WebInspectorAttachCallbackC -> IO (FunPtr WebInspectorAttachCallbackC) - -webInspectorAttachClosure :: WebInspectorAttachCallback -> IO Closure -webInspectorAttachClosure cb = newCClosure =<< mkWebInspectorAttachCallback wrapped - where wrapped = webInspectorAttachCallbackWrapper cb - -webInspectorAttachCallbackWrapper :: - WebInspectorAttachCallback -> - Ptr () -> - Ptr () -> - IO CInt -webInspectorAttachCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWebInspectorAttach :: (GObject a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId -onWebInspectorAttach obj cb = liftIO $ connectWebInspectorAttach obj cb SignalConnectBefore -afterWebInspectorAttach :: (GObject a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId -afterWebInspectorAttach obj cb = connectWebInspectorAttach obj cb SignalConnectAfter - -connectWebInspectorAttach :: (GObject a, MonadIO m) => - a -> WebInspectorAttachCallback -> SignalConnectMode -> m SignalHandlerId -connectWebInspectorAttach obj cb after = liftIO $ do - cb' <- mkWebInspectorAttachCallback (webInspectorAttachCallbackWrapper cb) - connectSignalFunPtr obj "attach" cb' after - --- signal WebInspector::bring-to-front -type WebInspectorBringToFrontCallback = - IO Bool - -noWebInspectorBringToFrontCallback :: Maybe WebInspectorBringToFrontCallback -noWebInspectorBringToFrontCallback = Nothing - -type WebInspectorBringToFrontCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebInspectorBringToFrontCallback :: WebInspectorBringToFrontCallbackC -> IO (FunPtr WebInspectorBringToFrontCallbackC) - -webInspectorBringToFrontClosure :: WebInspectorBringToFrontCallback -> IO Closure -webInspectorBringToFrontClosure cb = newCClosure =<< mkWebInspectorBringToFrontCallback wrapped - where wrapped = webInspectorBringToFrontCallbackWrapper cb - -webInspectorBringToFrontCallbackWrapper :: - WebInspectorBringToFrontCallback -> - Ptr () -> - Ptr () -> - IO CInt -webInspectorBringToFrontCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWebInspectorBringToFront :: (GObject a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId -onWebInspectorBringToFront obj cb = liftIO $ connectWebInspectorBringToFront obj cb SignalConnectBefore -afterWebInspectorBringToFront :: (GObject a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId -afterWebInspectorBringToFront obj cb = connectWebInspectorBringToFront obj cb SignalConnectAfter - -connectWebInspectorBringToFront :: (GObject a, MonadIO m) => - a -> WebInspectorBringToFrontCallback -> SignalConnectMode -> m SignalHandlerId -connectWebInspectorBringToFront obj cb after = liftIO $ do - cb' <- mkWebInspectorBringToFrontCallback (webInspectorBringToFrontCallbackWrapper cb) - connectSignalFunPtr obj "bring-to-front" cb' after - --- signal WebInspector::closed -type WebInspectorClosedCallback = - IO () - -noWebInspectorClosedCallback :: Maybe WebInspectorClosedCallback -noWebInspectorClosedCallback = Nothing - -type WebInspectorClosedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebInspectorClosedCallback :: WebInspectorClosedCallbackC -> IO (FunPtr WebInspectorClosedCallbackC) - -webInspectorClosedClosure :: WebInspectorClosedCallback -> IO Closure -webInspectorClosedClosure cb = newCClosure =<< mkWebInspectorClosedCallback wrapped - where wrapped = webInspectorClosedCallbackWrapper cb - -webInspectorClosedCallbackWrapper :: - WebInspectorClosedCallback -> - Ptr () -> - Ptr () -> - IO () -webInspectorClosedCallbackWrapper _cb _ _ = do - _cb - -onWebInspectorClosed :: (GObject a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId -onWebInspectorClosed obj cb = liftIO $ connectWebInspectorClosed obj cb SignalConnectBefore -afterWebInspectorClosed :: (GObject a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId -afterWebInspectorClosed obj cb = connectWebInspectorClosed obj cb SignalConnectAfter - -connectWebInspectorClosed :: (GObject a, MonadIO m) => - a -> WebInspectorClosedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebInspectorClosed obj cb after = liftIO $ do - cb' <- mkWebInspectorClosedCallback (webInspectorClosedCallbackWrapper cb) - connectSignalFunPtr obj "closed" cb' after - --- signal WebInspector::detach -type WebInspectorDetachCallback = - IO Bool - -noWebInspectorDetachCallback :: Maybe WebInspectorDetachCallback -noWebInspectorDetachCallback = Nothing - -type WebInspectorDetachCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebInspectorDetachCallback :: WebInspectorDetachCallbackC -> IO (FunPtr WebInspectorDetachCallbackC) - -webInspectorDetachClosure :: WebInspectorDetachCallback -> IO Closure -webInspectorDetachClosure cb = newCClosure =<< mkWebInspectorDetachCallback wrapped - where wrapped = webInspectorDetachCallbackWrapper cb - -webInspectorDetachCallbackWrapper :: - WebInspectorDetachCallback -> - Ptr () -> - Ptr () -> - IO CInt -webInspectorDetachCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWebInspectorDetach :: (GObject a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId -onWebInspectorDetach obj cb = liftIO $ connectWebInspectorDetach obj cb SignalConnectBefore -afterWebInspectorDetach :: (GObject a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId -afterWebInspectorDetach obj cb = connectWebInspectorDetach obj cb SignalConnectAfter - -connectWebInspectorDetach :: (GObject a, MonadIO m) => - a -> WebInspectorDetachCallback -> SignalConnectMode -> m SignalHandlerId -connectWebInspectorDetach obj cb after = liftIO $ do - cb' <- mkWebInspectorDetachCallback (webInspectorDetachCallbackWrapper cb) - connectSignalFunPtr obj "detach" cb' after - --- signal WebInspector::open-window -type WebInspectorOpenWindowCallback = - IO Bool - -noWebInspectorOpenWindowCallback :: Maybe WebInspectorOpenWindowCallback -noWebInspectorOpenWindowCallback = Nothing - -type WebInspectorOpenWindowCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebInspectorOpenWindowCallback :: WebInspectorOpenWindowCallbackC -> IO (FunPtr WebInspectorOpenWindowCallbackC) - -webInspectorOpenWindowClosure :: WebInspectorOpenWindowCallback -> IO Closure -webInspectorOpenWindowClosure cb = newCClosure =<< mkWebInspectorOpenWindowCallback wrapped - where wrapped = webInspectorOpenWindowCallbackWrapper cb - -webInspectorOpenWindowCallbackWrapper :: - WebInspectorOpenWindowCallback -> - Ptr () -> - Ptr () -> - IO CInt -webInspectorOpenWindowCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWebInspectorOpenWindow :: (GObject a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId -onWebInspectorOpenWindow obj cb = liftIO $ connectWebInspectorOpenWindow obj cb SignalConnectBefore -afterWebInspectorOpenWindow :: (GObject a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId -afterWebInspectorOpenWindow obj cb = connectWebInspectorOpenWindow obj cb SignalConnectAfter - -connectWebInspectorOpenWindow :: (GObject a, MonadIO m) => - a -> WebInspectorOpenWindowCallback -> SignalConnectMode -> m SignalHandlerId -connectWebInspectorOpenWindow obj cb after = liftIO $ do - cb' <- mkWebInspectorOpenWindowCallback (webInspectorOpenWindowCallbackWrapper cb) - connectSignalFunPtr obj "open-window" cb' after - --- VVV Prop "attached-height" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getWebInspectorAttachedHeight :: (MonadIO m, WebInspectorK o) => o -> m Word32 -getWebInspectorAttachedHeight obj = liftIO $ getObjectPropertyUInt32 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 = "attached-height" - attrGet _ = getWebInspectorAttachedHeight - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "can-attach" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "can-attach" - attrGet _ = getWebInspectorCanAttach - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "inspected-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getWebInspectorInspectedUri :: (MonadIO m, WebInspectorK o) => o -> m T.Text -getWebInspectorInspectedUri obj = liftIO $ checkUnexpectedNothing "getWebInspectorInspectedUri" $ getObjectPropertyString obj "inspected-uri" - -data WebInspectorInspectedUriPropertyInfo -instance AttrInfo WebInspectorInspectedUriPropertyInfo where - type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) () - type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = WebInspectorK - type AttrGetType WebInspectorInspectedUriPropertyInfo = T.Text - type AttrLabel WebInspectorInspectedUriPropertyInfo = "inspected-uri" - attrGet _ = getWebInspectorInspectedUri - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList WebInspector = WebInspectorAttributeList -type WebInspectorAttributeList = ('[ '("attachedHeight", WebInspectorAttachedHeightPropertyInfo), '("canAttach", WebInspectorCanAttachPropertyInfo), '("inspectedUri", WebInspectorInspectedUriPropertyInfo)] :: [(Symbol, *)]) - -webInspectorAttachedHeight :: AttrLabelProxy "attachedHeight" -webInspectorAttachedHeight = AttrLabelProxy - -webInspectorCanAttach :: AttrLabelProxy "canAttach" -webInspectorCanAttach = AttrLabelProxy - -webInspectorInspectedUri :: AttrLabelProxy "inspectedUri" -webInspectorInspectedUri = AttrLabelProxy - -data WebInspectorAttachSignalInfo -instance SignalInfo WebInspectorAttachSignalInfo where - type HaskellCallbackType WebInspectorAttachSignalInfo = WebInspectorAttachCallback - connectSignal _ = connectWebInspectorAttach - -data WebInspectorBringToFrontSignalInfo -instance SignalInfo WebInspectorBringToFrontSignalInfo where - type HaskellCallbackType WebInspectorBringToFrontSignalInfo = WebInspectorBringToFrontCallback - connectSignal _ = connectWebInspectorBringToFront - -data WebInspectorClosedSignalInfo -instance SignalInfo WebInspectorClosedSignalInfo where - type HaskellCallbackType WebInspectorClosedSignalInfo = WebInspectorClosedCallback - connectSignal _ = connectWebInspectorClosed - -data WebInspectorDetachSignalInfo -instance SignalInfo WebInspectorDetachSignalInfo where - type HaskellCallbackType WebInspectorDetachSignalInfo = WebInspectorDetachCallback - connectSignal _ = connectWebInspectorDetach - -data WebInspectorOpenWindowSignalInfo -instance SignalInfo WebInspectorOpenWindowSignalInfo where - type HaskellCallbackType WebInspectorOpenWindowSignalInfo = WebInspectorOpenWindowCallback - connectSignal _ = connectWebInspectorOpenWindow - -type instance SignalList WebInspector = WebInspectorSignalList -type WebInspectorSignalList = ('[ '("attach", WebInspectorAttachSignalInfo), '("bringToFront", WebInspectorBringToFrontSignalInfo), '("closed", WebInspectorClosedSignalInfo), '("detach", WebInspectorDetachSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("openWindow", WebInspectorOpenWindowSignalInfo)] :: [(Symbol, *)]) - --- method WebInspector::attach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_inspector_attach" webkit_web_inspector_attach :: - Ptr WebInspector -> -- _obj : TInterface "WebKit2" "WebInspector" - IO () - - -webInspectorAttach :: - (MonadIO m, WebInspectorK a) => - a -- _obj - -> m () -- result -webInspectorAttach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_inspector_attach _obj' - touchManagedPtr _obj - return () - -data WebInspectorAttachMethodInfo -instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorAttachMethodInfo a signature where - overloadedMethod _ = webInspectorAttach - --- method WebInspector::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_inspector_close" webkit_web_inspector_close :: - Ptr WebInspector -> -- _obj : TInterface "WebKit2" "WebInspector" - IO () - - -webInspectorClose :: - (MonadIO m, WebInspectorK a) => - a -- _obj - -> m () -- result -webInspectorClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_inspector_close _obj' - touchManagedPtr _obj - return () - -data WebInspectorCloseMethodInfo -instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorCloseMethodInfo a signature where - overloadedMethod _ = webInspectorClose - --- method WebInspector::detach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_inspector_detach" webkit_web_inspector_detach :: - Ptr WebInspector -> -- _obj : TInterface "WebKit2" "WebInspector" - IO () - - -webInspectorDetach :: - (MonadIO m, WebInspectorK a) => - a -- _obj - -> m () -- result -webInspectorDetach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_inspector_detach _obj' - touchManagedPtr _obj - return () - -data WebInspectorDetachMethodInfo -instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorDetachMethodInfo a signature where - overloadedMethod _ = webInspectorDetach - --- method WebInspector::get_attached_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_inspector_get_attached_height" webkit_web_inspector_get_attached_height :: - Ptr WebInspector -> -- _obj : TInterface "WebKit2" "WebInspector" - IO Word32 - - -webInspectorGetAttachedHeight :: - (MonadIO m, WebInspectorK a) => - a -- _obj - -> m Word32 -- result -webInspectorGetAttachedHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_inspector_get_attached_height _obj' - touchManagedPtr _obj - return result - -data WebInspectorGetAttachedHeightMethodInfo -instance (signature ~ (m Word32), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetAttachedHeightMethodInfo a signature where - overloadedMethod _ = webInspectorGetAttachedHeight - --- method WebInspector::get_can_attach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_inspector_get_can_attach" webkit_web_inspector_get_can_attach :: - Ptr WebInspector -> -- _obj : TInterface "WebKit2" "WebInspector" - IO CInt - - -webInspectorGetCanAttach :: - (MonadIO m, WebInspectorK a) => - a -- _obj - -> m Bool -- result -webInspectorGetCanAttach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_inspector_get_can_attach _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WebInspectorGetCanAttachMethodInfo -instance (signature ~ (m Bool), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetCanAttachMethodInfo a signature where - overloadedMethod _ = webInspectorGetCanAttach - --- method WebInspector::get_inspected_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_inspector_get_inspected_uri" webkit_web_inspector_get_inspected_uri :: - Ptr WebInspector -> -- _obj : TInterface "WebKit2" "WebInspector" - IO CString - - -webInspectorGetInspectedUri :: - (MonadIO m, WebInspectorK a) => - a -- _obj - -> m T.Text -- result -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' - -data WebInspectorGetInspectedUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetInspectedUriMethodInfo a signature where - overloadedMethod _ = webInspectorGetInspectedUri - --- method WebInspector::get_web_view --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebInspectorGetWebViewMethodInfo -instance (signature ~ (m WebViewBase), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetWebViewMethodInfo a signature where - overloadedMethod _ = webInspectorGetWebView - --- method WebInspector::is_attached --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_inspector_is_attached" webkit_web_inspector_is_attached :: - Ptr WebInspector -> -- _obj : TInterface "WebKit2" "WebInspector" - IO CInt - - -webInspectorIsAttached :: - (MonadIO m, WebInspectorK a) => - a -- _obj - -> m Bool -- result -webInspectorIsAttached _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_inspector_is_attached _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WebInspectorIsAttachedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorIsAttachedMethodInfo a signature where - overloadedMethod _ = webInspectorIsAttached - --- method WebInspector::show --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_inspector_show" webkit_web_inspector_show :: - Ptr WebInspector -> -- _obj : TInterface "WebKit2" "WebInspector" - IO () - - -webInspectorShow :: - (MonadIO m, WebInspectorK a) => - a -- _obj - -> m () -- result -webInspectorShow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_inspector_show _obj' - touchManagedPtr _obj - return () - -data WebInspectorShowMethodInfo -instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorShowMethodInfo a signature where - overloadedMethod _ = webInspectorShow - - diff --git a/GI/WebKit2/Objects/WebInspector.hs-boot b/GI/WebKit2/Objects/WebInspector.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/WebInspector.hs-boot +++ /dev/null @@ -1,30 +0,0 @@ -module GI.WebKit2.Objects.WebInspector where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WebInspector = WebInspector (ForeignPtr WebInspector) -instance GObject WebInspector where -class GObject o => WebInspectorK o -instance (GObject o, IsDescendantOf WebInspector o) => WebInspectorK o -data WebInspectorAttachedHeightPropertyInfo -data WebInspectorCanAttachPropertyInfo -data WebInspectorInspectedUriPropertyInfo -data WebInspectorAttachSignalInfo -data WebInspectorBringToFrontSignalInfo -data WebInspectorClosedSignalInfo -data WebInspectorDetachSignalInfo -data WebInspectorOpenWindowSignalInfo -data WebInspectorAttachMethodInfo -data WebInspectorCloseMethodInfo -data WebInspectorDetachMethodInfo -data WebInspectorGetAttachedHeightMethodInfo -data WebInspectorGetCanAttachMethodInfo -data WebInspectorGetInspectedUriMethodInfo -data WebInspectorGetWebViewMethodInfo -data WebInspectorIsAttachedMethodInfo -data WebInspectorShowMethodInfo diff --git a/GI/WebKit2/Objects/WebResource.hs b/GI/WebKit2/Objects/WebResource.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/WebResource.hs +++ /dev/null @@ -1,627 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.WebResource - ( - --- * Exported types - WebResource(..) , - WebResourceK , - toWebResource , - noWebResource , - - - -- * Methods --- ** webResourceGetData - WebResourceGetDataMethodInfo , - webResourceGetData , - - --- ** webResourceGetDataFinish - WebResourceGetDataFinishMethodInfo , - webResourceGetDataFinish , - - --- ** webResourceGetResponse - WebResourceGetResponseMethodInfo , - webResourceGetResponse , - - --- ** webResourceGetUri - WebResourceGetUriMethodInfo , - webResourceGetUri , - - - - - -- * Properties --- ** Response - WebResourceResponsePropertyInfo , - getWebResourceResponse , - webResourceResponse , - - --- ** Uri - WebResourceUriPropertyInfo , - getWebResourceUri , - webResourceUri , - - - - - -- * Signals --- ** Failed - WebResourceFailedCallback , - WebResourceFailedCallbackC , - WebResourceFailedSignalInfo , - afterWebResourceFailed , - mkWebResourceFailedCallback , - noWebResourceFailedCallback , - onWebResourceFailed , - webResourceFailedCallbackWrapper , - webResourceFailedClosure , - - --- ** FailedWithTlsErrors - WebResourceFailedWithTlsErrorsCallback , - WebResourceFailedWithTlsErrorsCallbackC , - WebResourceFailedWithTlsErrorsSignalInfo, - afterWebResourceFailedWithTlsErrors , - mkWebResourceFailedWithTlsErrorsCallback, - noWebResourceFailedWithTlsErrorsCallback, - onWebResourceFailedWithTlsErrors , - webResourceFailedWithTlsErrorsCallbackWrapper, - webResourceFailedWithTlsErrorsClosure , - - --- ** Finished - WebResourceFinishedCallback , - WebResourceFinishedCallbackC , - WebResourceFinishedSignalInfo , - afterWebResourceFinished , - mkWebResourceFinishedCallback , - noWebResourceFinishedCallback , - onWebResourceFinished , - webResourceFinishedCallbackWrapper , - webResourceFinishedClosure , - - --- ** ReceivedData - WebResourceReceivedDataCallback , - WebResourceReceivedDataCallbackC , - WebResourceReceivedDataSignalInfo , - afterWebResourceReceivedData , - mkWebResourceReceivedDataCallback , - noWebResourceReceivedDataCallback , - onWebResourceReceivedData , - webResourceReceivedDataCallbackWrapper , - webResourceReceivedDataClosure , - - --- ** SentRequest - WebResourceSentRequestCallback , - WebResourceSentRequestCallbackC , - WebResourceSentRequestSignalInfo , - afterWebResourceSentRequest , - mkWebResourceSentRequestCallback , - noWebResourceSentRequestCallback , - onWebResourceSentRequest , - webResourceSentRequestCallbackWrapper , - webResourceSentRequestClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype WebResource = WebResource (ForeignPtr WebResource) -foreign import ccall "webkit_web_resource_get_type" - c_webkit_web_resource_get_type :: IO GType - -type instance ParentTypes WebResource = WebResourceParentTypes -type WebResourceParentTypes = '[GObject.Object] - -instance GObject WebResource where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_web_resource_get_type - - -class GObject o => WebResourceK o -instance (GObject o, IsDescendantOf WebResource o) => WebResourceK o - -toWebResource :: WebResourceK o => o -> IO WebResource -toWebResource = unsafeCastTo WebResource - -noWebResource :: Maybe WebResource -noWebResource = Nothing - -type family ResolveWebResourceMethod (t :: Symbol) (o :: *) :: * where - ResolveWebResourceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWebResourceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWebResourceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWebResourceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWebResourceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWebResourceMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWebResourceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWebResourceMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWebResourceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWebResourceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWebResourceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWebResourceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWebResourceMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWebResourceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWebResourceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWebResourceMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWebResourceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWebResourceMethod "getDataFinish" o = WebResourceGetDataFinishMethodInfo - ResolveWebResourceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWebResourceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWebResourceMethod "getResponse" o = WebResourceGetResponseMethodInfo - ResolveWebResourceMethod "getUri" o = WebResourceGetUriMethodInfo - ResolveWebResourceMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWebResourceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWebResourceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebResourceMethod t WebResource, MethodInfo info WebResource p) => IsLabelProxy t (WebResource -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebResourceMethod t WebResource, MethodInfo info WebResource p) => IsLabel t (WebResource -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal WebResource::failed -type WebResourceFailedCallback = - GError -> - IO () - -noWebResourceFailedCallback :: Maybe WebResourceFailedCallback -noWebResourceFailedCallback = Nothing - -type WebResourceFailedCallbackC = - Ptr () -> -- object - Ptr GError -> - 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 GError -> - Ptr () -> - IO () -webResourceFailedCallbackWrapper _cb _ error_ _ = do - error_' <- (newBoxed GError) error_ - _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 _ dataLength _ = do - _cb dataLength - -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 redirectedResponse _ = do - request' <- (newObject URIRequest) request - redirectedResponse' <- (newObject URIResponse) redirectedResponse - _cb request' redirectedResponse' - -onWebResourceSentRequest :: (GObject a, MonadIO m) => a -> WebResourceSentRequestCallback -> m SignalHandlerId -onWebResourceSentRequest obj cb = liftIO $ connectWebResourceSentRequest obj cb SignalConnectBefore -afterWebResourceSentRequest :: (GObject a, MonadIO m) => a -> WebResourceSentRequestCallback -> m SignalHandlerId -afterWebResourceSentRequest obj cb = connectWebResourceSentRequest obj cb SignalConnectAfter - -connectWebResourceSentRequest :: (GObject a, MonadIO m) => - a -> WebResourceSentRequestCallback -> SignalConnectMode -> m SignalHandlerId -connectWebResourceSentRequest obj cb after = liftIO $ do - cb' <- mkWebResourceSentRequestCallback (webResourceSentRequestCallbackWrapper cb) - connectSignalFunPtr obj "sent-request" cb' after - --- VVV Prop "response" - -- Type: TInterface "WebKit2" "URIResponse" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getWebResourceResponse :: (MonadIO m, WebResourceK o) => o -> m URIResponse -getWebResourceResponse obj = liftIO $ checkUnexpectedNothing "getWebResourceResponse" $ getObjectPropertyObject obj "response" URIResponse - -data WebResourceResponsePropertyInfo -instance AttrInfo WebResourceResponsePropertyInfo where - type AttrAllowedOps WebResourceResponsePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebResourceResponsePropertyInfo = (~) () - type AttrBaseTypeConstraint WebResourceResponsePropertyInfo = WebResourceK - type AttrGetType WebResourceResponsePropertyInfo = URIResponse - type AttrLabel WebResourceResponsePropertyInfo = "response" - attrGet _ = getWebResourceResponse - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getWebResourceUri :: (MonadIO m, WebResourceK o) => o -> m T.Text -getWebResourceUri obj = liftIO $ checkUnexpectedNothing "getWebResourceUri" $ getObjectPropertyString obj "uri" - -data WebResourceUriPropertyInfo -instance AttrInfo WebResourceUriPropertyInfo where - type AttrAllowedOps WebResourceUriPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebResourceUriPropertyInfo = (~) () - type AttrBaseTypeConstraint WebResourceUriPropertyInfo = WebResourceK - type AttrGetType WebResourceUriPropertyInfo = T.Text - type AttrLabel WebResourceUriPropertyInfo = "uri" - attrGet _ = getWebResourceUri - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList WebResource = WebResourceAttributeList -type WebResourceAttributeList = ('[ '("response", WebResourceResponsePropertyInfo), '("uri", WebResourceUriPropertyInfo)] :: [(Symbol, *)]) - -webResourceResponse :: AttrLabelProxy "response" -webResourceResponse = AttrLabelProxy - -webResourceUri :: AttrLabelProxy "uri" -webResourceUri = AttrLabelProxy - -data WebResourceFailedSignalInfo -instance SignalInfo WebResourceFailedSignalInfo where - type HaskellCallbackType WebResourceFailedSignalInfo = WebResourceFailedCallback - connectSignal _ = connectWebResourceFailed - -data WebResourceFailedWithTlsErrorsSignalInfo -instance SignalInfo WebResourceFailedWithTlsErrorsSignalInfo where - type HaskellCallbackType WebResourceFailedWithTlsErrorsSignalInfo = WebResourceFailedWithTlsErrorsCallback - connectSignal _ = connectWebResourceFailedWithTlsErrors - -data WebResourceFinishedSignalInfo -instance SignalInfo WebResourceFinishedSignalInfo where - type HaskellCallbackType WebResourceFinishedSignalInfo = WebResourceFinishedCallback - connectSignal _ = connectWebResourceFinished - -data WebResourceReceivedDataSignalInfo -instance SignalInfo WebResourceReceivedDataSignalInfo where - type HaskellCallbackType WebResourceReceivedDataSignalInfo = WebResourceReceivedDataCallback - connectSignal _ = connectWebResourceReceivedData - -data WebResourceSentRequestSignalInfo -instance SignalInfo WebResourceSentRequestSignalInfo where - type HaskellCallbackType WebResourceSentRequestSignalInfo = WebResourceSentRequestCallback - connectSignal _ = connectWebResourceSentRequest - -type instance SignalList WebResource = WebResourceSignalList -type WebResourceSignalList = ('[ '("failed", WebResourceFailedSignalInfo), '("failedWithTlsErrors", WebResourceFailedWithTlsErrorsSignalInfo), '("finished", WebResourceFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("receivedData", WebResourceReceivedDataSignalInfo), '("sentRequest", WebResourceSentRequestSignalInfo)] :: [(Symbol, *)]) - --- method WebResource::get_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_resource_get_data" webkit_web_resource_get_data :: - Ptr WebResource -> -- _obj : TInterface "WebKit2" "WebResource" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -webResourceGetData :: - (MonadIO m, WebResourceK a, Gio.CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -webResourceGetData _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - webkit_web_resource_get_data _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data WebResourceGetDataMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebResourceK a, Gio.CancellableK b) => MethodInfo WebResourceGetDataMethodInfo a signature where - overloadedMethod _ = webResourceGetData - --- method WebResource::get_data_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 2 (TBasicType TUInt8)) --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_resource_get_data_finish" webkit_web_resource_get_data_finish :: - Ptr WebResource -> -- _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 -- result -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_ - ) - -data WebResourceGetDataFinishMethodInfo -instance (signature ~ (b -> m ByteString), MonadIO m, WebResourceK a, Gio.AsyncResultK b) => MethodInfo WebResourceGetDataFinishMethodInfo a signature where - overloadedMethod _ = webResourceGetDataFinish - --- method WebResource::get_response --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebResourceGetResponseMethodInfo -instance (signature ~ (m URIResponse), MonadIO m, WebResourceK a) => MethodInfo WebResourceGetResponseMethodInfo a signature where - overloadedMethod _ = webResourceGetResponse - --- method WebResource::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_resource_get_uri" webkit_web_resource_get_uri :: - Ptr WebResource -> -- _obj : TInterface "WebKit2" "WebResource" - IO CString - - -webResourceGetUri :: - (MonadIO m, WebResourceK a) => - a -- _obj - -> m T.Text -- result -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' - -data WebResourceGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebResourceK a) => MethodInfo WebResourceGetUriMethodInfo a signature where - overloadedMethod _ = webResourceGetUri - - diff --git a/GI/WebKit2/Objects/WebResource.hs-boot b/GI/WebKit2/Objects/WebResource.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/WebResource.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.WebKit2.Objects.WebResource where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WebResource = WebResource (ForeignPtr WebResource) -instance GObject WebResource where -class GObject o => WebResourceK o -instance (GObject o, IsDescendantOf WebResource o) => WebResourceK o -data WebResourceResponsePropertyInfo -data WebResourceUriPropertyInfo -data WebResourceFailedSignalInfo -data WebResourceFailedWithTlsErrorsSignalInfo -data WebResourceFinishedSignalInfo -data WebResourceReceivedDataSignalInfo -data WebResourceSentRequestSignalInfo -data WebResourceGetDataMethodInfo -data WebResourceGetDataFinishMethodInfo -data WebResourceGetResponseMethodInfo -data WebResourceGetUriMethodInfo diff --git a/GI/WebKit2/Objects/WebView.hs b/GI/WebKit2/Objects/WebView.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/WebView.hs +++ /dev/null @@ -1,4720 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.WebView - ( - --- * Exported types - WebView(..) , - WebViewK , - toWebView , - noWebView , - - - -- * Methods --- ** webViewCanExecuteEditingCommand - WebViewCanExecuteEditingCommandMethodInfo, - webViewCanExecuteEditingCommand , - - --- ** webViewCanExecuteEditingCommandFinish - WebViewCanExecuteEditingCommandFinishMethodInfo, - webViewCanExecuteEditingCommandFinish , - - --- ** webViewCanGoBack - WebViewCanGoBackMethodInfo , - webViewCanGoBack , - - --- ** webViewCanGoForward - WebViewCanGoForwardMethodInfo , - webViewCanGoForward , - - --- ** webViewCanShowMimeType - WebViewCanShowMimeTypeMethodInfo , - webViewCanShowMimeType , - - --- ** webViewDownloadUri - WebViewDownloadUriMethodInfo , - webViewDownloadUri , - - --- ** webViewExecuteEditingCommand - WebViewExecuteEditingCommandMethodInfo , - webViewExecuteEditingCommand , - - --- ** webViewExecuteEditingCommandWithArgument - WebViewExecuteEditingCommandWithArgumentMethodInfo, - webViewExecuteEditingCommandWithArgument, - - --- ** webViewGetBackForwardList - WebViewGetBackForwardListMethodInfo , - webViewGetBackForwardList , - - --- ** webViewGetBackgroundColor - WebViewGetBackgroundColorMethodInfo , - webViewGetBackgroundColor , - - --- ** webViewGetContext - WebViewGetContextMethodInfo , - webViewGetContext , - - --- ** webViewGetCustomCharset - WebViewGetCustomCharsetMethodInfo , - webViewGetCustomCharset , - - --- ** webViewGetEditorState - WebViewGetEditorStateMethodInfo , - webViewGetEditorState , - - --- ** webViewGetEstimatedLoadProgress - WebViewGetEstimatedLoadProgressMethodInfo, - webViewGetEstimatedLoadProgress , - - --- ** webViewGetFavicon - WebViewGetFaviconMethodInfo , - webViewGetFavicon , - - --- ** webViewGetFindController - WebViewGetFindControllerMethodInfo , - webViewGetFindController , - - --- ** webViewGetInspector - WebViewGetInspectorMethodInfo , - webViewGetInspector , - - --- ** webViewGetJavascriptGlobalContext - WebViewGetJavascriptGlobalContextMethodInfo, - webViewGetJavascriptGlobalContext , - - --- ** webViewGetMainResource - WebViewGetMainResourceMethodInfo , - webViewGetMainResource , - - --- ** webViewGetPageId - WebViewGetPageIdMethodInfo , - webViewGetPageId , - - --- ** webViewGetSessionState - WebViewGetSessionStateMethodInfo , - webViewGetSessionState , - - --- ** webViewGetSettings - WebViewGetSettingsMethodInfo , - webViewGetSettings , - - --- ** webViewGetSnapshot - WebViewGetSnapshotMethodInfo , - webViewGetSnapshot , - - --- ** webViewGetSnapshotFinish - WebViewGetSnapshotFinishMethodInfo , - webViewGetSnapshotFinish , - - --- ** webViewGetTitle - WebViewGetTitleMethodInfo , - webViewGetTitle , - - --- ** webViewGetTlsInfo - WebViewGetTlsInfoMethodInfo , - webViewGetTlsInfo , - - --- ** webViewGetUri - WebViewGetUriMethodInfo , - webViewGetUri , - - --- ** webViewGetUserContentManager - WebViewGetUserContentManagerMethodInfo , - webViewGetUserContentManager , - - --- ** webViewGetWindowProperties - WebViewGetWindowPropertiesMethodInfo , - webViewGetWindowProperties , - - --- ** webViewGetZoomLevel - WebViewGetZoomLevelMethodInfo , - webViewGetZoomLevel , - - --- ** webViewGoBack - WebViewGoBackMethodInfo , - webViewGoBack , - - --- ** webViewGoForward - WebViewGoForwardMethodInfo , - webViewGoForward , - - --- ** webViewGoToBackForwardListItem - WebViewGoToBackForwardListItemMethodInfo, - webViewGoToBackForwardListItem , - - --- ** webViewIsEditable - WebViewIsEditableMethodInfo , - webViewIsEditable , - - --- ** webViewIsLoading - WebViewIsLoadingMethodInfo , - webViewIsLoading , - - --- ** webViewIsPlayingAudio - WebViewIsPlayingAudioMethodInfo , - webViewIsPlayingAudio , - - --- ** webViewLoadAlternateHtml - WebViewLoadAlternateHtmlMethodInfo , - webViewLoadAlternateHtml , - - --- ** webViewLoadBytes - WebViewLoadBytesMethodInfo , - webViewLoadBytes , - - --- ** webViewLoadHtml - WebViewLoadHtmlMethodInfo , - webViewLoadHtml , - - --- ** webViewLoadPlainText - WebViewLoadPlainTextMethodInfo , - webViewLoadPlainText , - - --- ** webViewLoadRequest - WebViewLoadRequestMethodInfo , - webViewLoadRequest , - - --- ** webViewLoadUri - WebViewLoadUriMethodInfo , - webViewLoadUri , - - --- ** webViewNew - webViewNew , - - --- ** webViewNewWithContext - webViewNewWithContext , - - --- ** webViewNewWithRelatedView - WebViewNewWithRelatedViewMethodInfo , - webViewNewWithRelatedView , - - --- ** webViewNewWithSettings - webViewNewWithSettings , - - --- ** webViewNewWithUserContentManager - webViewNewWithUserContentManager , - - --- ** webViewReload - WebViewReloadMethodInfo , - webViewReload , - - --- ** webViewReloadBypassCache - WebViewReloadBypassCacheMethodInfo , - webViewReloadBypassCache , - - --- ** webViewRestoreSessionState - WebViewRestoreSessionStateMethodInfo , - webViewRestoreSessionState , - - --- ** webViewRunJavascript - WebViewRunJavascriptMethodInfo , - webViewRunJavascript , - - --- ** webViewRunJavascriptFinish - WebViewRunJavascriptFinishMethodInfo , - webViewRunJavascriptFinish , - - --- ** webViewRunJavascriptFromGresource - WebViewRunJavascriptFromGresourceMethodInfo, - webViewRunJavascriptFromGresource , - - --- ** webViewRunJavascriptFromGresourceFinish - WebViewRunJavascriptFromGresourceFinishMethodInfo, - webViewRunJavascriptFromGresourceFinish , - - --- ** webViewSave - WebViewSaveMethodInfo , - webViewSave , - - --- ** webViewSaveFinish - WebViewSaveFinishMethodInfo , - webViewSaveFinish , - - --- ** webViewSaveToFile - WebViewSaveToFileMethodInfo , - webViewSaveToFile , - - --- ** webViewSaveToFileFinish - WebViewSaveToFileFinishMethodInfo , - webViewSaveToFileFinish , - - --- ** webViewSetBackgroundColor - WebViewSetBackgroundColorMethodInfo , - webViewSetBackgroundColor , - - --- ** webViewSetCustomCharset - WebViewSetCustomCharsetMethodInfo , - webViewSetCustomCharset , - - --- ** webViewSetEditable - WebViewSetEditableMethodInfo , - webViewSetEditable , - - --- ** webViewSetSettings - WebViewSetSettingsMethodInfo , - webViewSetSettings , - - --- ** webViewSetZoomLevel - WebViewSetZoomLevelMethodInfo , - webViewSetZoomLevel , - - --- ** webViewStopLoading - WebViewStopLoadingMethodInfo , - webViewStopLoading , - - --- ** webViewTryClose - WebViewTryCloseMethodInfo , - webViewTryClose , - - - - - -- * Properties --- ** Editable - WebViewEditablePropertyInfo , - constructWebViewEditable , - getWebViewEditable , - setWebViewEditable , - webViewEditable , - - --- ** EstimatedLoadProgress - WebViewEstimatedLoadProgressPropertyInfo, - getWebViewEstimatedLoadProgress , - webViewEstimatedLoadProgress , - - --- ** Favicon - WebViewFaviconPropertyInfo , - getWebViewFavicon , - webViewFavicon , - - --- ** IsLoading - WebViewIsLoadingPropertyInfo , - getWebViewIsLoading , - - --- ** IsPlayingAudio - WebViewIsPlayingAudioPropertyInfo , - getWebViewIsPlayingAudio , - - --- ** RelatedView - WebViewRelatedViewPropertyInfo , - constructWebViewRelatedView , - webViewRelatedView , - - --- ** Settings - WebViewSettingsPropertyInfo , - constructWebViewSettings , - setWebViewSettings , - webViewSettings , - - --- ** Title - WebViewTitlePropertyInfo , - getWebViewTitle , - webViewTitle , - - --- ** Uri - WebViewUriPropertyInfo , - getWebViewUri , - webViewUri , - - --- ** UserContentManager - WebViewUserContentManagerPropertyInfo , - constructWebViewUserContentManager , - getWebViewUserContentManager , - webViewUserContentManager , - - --- ** WebContext - WebViewWebContextPropertyInfo , - constructWebViewWebContext , - getWebViewWebContext , - webViewWebContext , - - --- ** ZoomLevel - WebViewZoomLevelPropertyInfo , - constructWebViewZoomLevel , - getWebViewZoomLevel , - setWebViewZoomLevel , - webViewZoomLevel , - - - - - -- * Signals --- ** Authenticate - WebViewAuthenticateCallback , - WebViewAuthenticateCallbackC , - WebViewAuthenticateSignalInfo , - afterWebViewAuthenticate , - mkWebViewAuthenticateCallback , - noWebViewAuthenticateCallback , - onWebViewAuthenticate , - webViewAuthenticateCallbackWrapper , - webViewAuthenticateClosure , - - --- ** Close - WebViewCloseCallback , - WebViewCloseCallbackC , - WebViewCloseSignalInfo , - afterWebViewClose , - mkWebViewCloseCallback , - noWebViewCloseCallback , - onWebViewClose , - webViewCloseCallbackWrapper , - webViewCloseClosure , - - --- ** ContextMenu - WebViewContextMenuCallback , - WebViewContextMenuCallbackC , - WebViewContextMenuSignalInfo , - afterWebViewContextMenu , - mkWebViewContextMenuCallback , - noWebViewContextMenuCallback , - onWebViewContextMenu , - webViewContextMenuCallbackWrapper , - webViewContextMenuClosure , - - --- ** ContextMenuDismissed - WebViewContextMenuDismissedCallback , - WebViewContextMenuDismissedCallbackC , - WebViewContextMenuDismissedSignalInfo , - afterWebViewContextMenuDismissed , - mkWebViewContextMenuDismissedCallback , - noWebViewContextMenuDismissedCallback , - onWebViewContextMenuDismissed , - webViewContextMenuDismissedCallbackWrapper, - webViewContextMenuDismissedClosure , - - --- ** Create - WebViewCreateCallback , - WebViewCreateCallbackC , - WebViewCreateSignalInfo , - afterWebViewCreate , - mkWebViewCreateCallback , - noWebViewCreateCallback , - onWebViewCreate , - webViewCreateCallbackWrapper , - webViewCreateClosure , - - --- ** DecidePolicy - WebViewDecidePolicyCallback , - WebViewDecidePolicyCallbackC , - WebViewDecidePolicySignalInfo , - afterWebViewDecidePolicy , - mkWebViewDecidePolicyCallback , - noWebViewDecidePolicyCallback , - onWebViewDecidePolicy , - webViewDecidePolicyCallbackWrapper , - webViewDecidePolicyClosure , - - --- ** EnterFullscreen - WebViewEnterFullscreenCallback , - WebViewEnterFullscreenCallbackC , - WebViewEnterFullscreenSignalInfo , - afterWebViewEnterFullscreen , - mkWebViewEnterFullscreenCallback , - noWebViewEnterFullscreenCallback , - onWebViewEnterFullscreen , - webViewEnterFullscreenCallbackWrapper , - webViewEnterFullscreenClosure , - - --- ** InsecureContentDetected - WebViewInsecureContentDetectedCallback , - WebViewInsecureContentDetectedCallbackC , - WebViewInsecureContentDetectedSignalInfo, - afterWebViewInsecureContentDetected , - mkWebViewInsecureContentDetectedCallback, - noWebViewInsecureContentDetectedCallback, - onWebViewInsecureContentDetected , - webViewInsecureContentDetectedCallbackWrapper, - webViewInsecureContentDetectedClosure , - - --- ** LeaveFullscreen - WebViewLeaveFullscreenCallback , - WebViewLeaveFullscreenCallbackC , - WebViewLeaveFullscreenSignalInfo , - afterWebViewLeaveFullscreen , - mkWebViewLeaveFullscreenCallback , - noWebViewLeaveFullscreenCallback , - onWebViewLeaveFullscreen , - webViewLeaveFullscreenCallbackWrapper , - webViewLeaveFullscreenClosure , - - --- ** LoadChanged - WebViewLoadChangedCallback , - WebViewLoadChangedCallbackC , - WebViewLoadChangedSignalInfo , - afterWebViewLoadChanged , - mkWebViewLoadChangedCallback , - noWebViewLoadChangedCallback , - onWebViewLoadChanged , - webViewLoadChangedCallbackWrapper , - webViewLoadChangedClosure , - - --- ** LoadFailed - WebViewLoadFailedCallback , - WebViewLoadFailedCallbackC , - WebViewLoadFailedSignalInfo , - afterWebViewLoadFailed , - mkWebViewLoadFailedCallback , - noWebViewLoadFailedCallback , - onWebViewLoadFailed , - webViewLoadFailedCallbackWrapper , - webViewLoadFailedClosure , - - --- ** LoadFailedWithTlsErrors - WebViewLoadFailedWithTlsErrorsCallback , - WebViewLoadFailedWithTlsErrorsCallbackC , - WebViewLoadFailedWithTlsErrorsSignalInfo, - afterWebViewLoadFailedWithTlsErrors , - mkWebViewLoadFailedWithTlsErrorsCallback, - noWebViewLoadFailedWithTlsErrorsCallback, - onWebViewLoadFailedWithTlsErrors , - webViewLoadFailedWithTlsErrorsCallbackWrapper, - webViewLoadFailedWithTlsErrorsClosure , - - --- ** MouseTargetChanged - WebViewMouseTargetChangedCallback , - WebViewMouseTargetChangedCallbackC , - WebViewMouseTargetChangedSignalInfo , - afterWebViewMouseTargetChanged , - mkWebViewMouseTargetChangedCallback , - noWebViewMouseTargetChangedCallback , - onWebViewMouseTargetChanged , - webViewMouseTargetChangedCallbackWrapper, - webViewMouseTargetChangedClosure , - - --- ** PermissionRequest - WebViewPermissionRequestCallback , - WebViewPermissionRequestCallbackC , - WebViewPermissionRequestSignalInfo , - afterWebViewPermissionRequest , - mkWebViewPermissionRequestCallback , - noWebViewPermissionRequestCallback , - onWebViewPermissionRequest , - webViewPermissionRequestCallbackWrapper , - webViewPermissionRequestClosure , - - --- ** Print - WebViewPrintCallback , - WebViewPrintCallbackC , - WebViewPrintSignalInfo , - afterWebViewPrint , - mkWebViewPrintCallback , - noWebViewPrintCallback , - onWebViewPrint , - webViewPrintCallbackWrapper , - webViewPrintClosure , - - --- ** ReadyToShow - WebViewReadyToShowCallback , - WebViewReadyToShowCallbackC , - WebViewReadyToShowSignalInfo , - afterWebViewReadyToShow , - mkWebViewReadyToShowCallback , - noWebViewReadyToShowCallback , - onWebViewReadyToShow , - webViewReadyToShowCallbackWrapper , - webViewReadyToShowClosure , - - --- ** ResourceLoadStarted - WebViewResourceLoadStartedCallback , - WebViewResourceLoadStartedCallbackC , - WebViewResourceLoadStartedSignalInfo , - afterWebViewResourceLoadStarted , - mkWebViewResourceLoadStartedCallback , - noWebViewResourceLoadStartedCallback , - onWebViewResourceLoadStarted , - webViewResourceLoadStartedCallbackWrapper, - webViewResourceLoadStartedClosure , - - --- ** RunAsModal - WebViewRunAsModalCallback , - WebViewRunAsModalCallbackC , - WebViewRunAsModalSignalInfo , - afterWebViewRunAsModal , - mkWebViewRunAsModalCallback , - noWebViewRunAsModalCallback , - onWebViewRunAsModal , - webViewRunAsModalCallbackWrapper , - webViewRunAsModalClosure , - - --- ** RunColorChooser - WebViewRunColorChooserCallback , - WebViewRunColorChooserCallbackC , - WebViewRunColorChooserSignalInfo , - afterWebViewRunColorChooser , - mkWebViewRunColorChooserCallback , - noWebViewRunColorChooserCallback , - onWebViewRunColorChooser , - webViewRunColorChooserCallbackWrapper , - webViewRunColorChooserClosure , - - --- ** RunFileChooser - WebViewRunFileChooserCallback , - WebViewRunFileChooserCallbackC , - WebViewRunFileChooserSignalInfo , - afterWebViewRunFileChooser , - mkWebViewRunFileChooserCallback , - noWebViewRunFileChooserCallback , - onWebViewRunFileChooser , - webViewRunFileChooserCallbackWrapper , - webViewRunFileChooserClosure , - - --- ** ScriptDialog - WebViewScriptDialogCallback , - WebViewScriptDialogCallbackC , - WebViewScriptDialogSignalInfo , - afterWebViewScriptDialog , - mkWebViewScriptDialogCallback , - noWebViewScriptDialogCallback , - onWebViewScriptDialog , - webViewScriptDialogCallbackWrapper , - webViewScriptDialogClosure , - - --- ** ShowNotification - WebViewShowNotificationCallback , - WebViewShowNotificationCallbackC , - WebViewShowNotificationSignalInfo , - afterWebViewShowNotification , - mkWebViewShowNotificationCallback , - noWebViewShowNotificationCallback , - onWebViewShowNotification , - webViewShowNotificationCallbackWrapper , - webViewShowNotificationClosure , - - --- ** SubmitForm - WebViewSubmitFormCallback , - WebViewSubmitFormCallbackC , - WebViewSubmitFormSignalInfo , - afterWebViewSubmitForm , - mkWebViewSubmitFormCallback , - noWebViewSubmitFormCallback , - onWebViewSubmitForm , - webViewSubmitFormCallbackWrapper , - webViewSubmitFormClosure , - - --- ** WebProcessCrashed - WebViewWebProcessCrashedCallback , - WebViewWebProcessCrashedCallbackC , - WebViewWebProcessCrashedSignalInfo , - afterWebViewWebProcessCrashed , - mkWebViewWebProcessCrashedCallback , - noWebViewWebProcessCrashedCallback , - onWebViewWebProcessCrashed , - webViewWebProcessCrashedCallbackWrapper , - webViewWebProcessCrashedClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Gio as Gio -import qualified GI.Gtk as Gtk -import qualified GI.JavaScriptCore as JavaScriptCore -import qualified GI.Cairo as Cairo - -newtype WebView = WebView (ForeignPtr WebView) -foreign import ccall "webkit_web_view_get_type" - c_webkit_web_view_get_type :: IO GType - -type instance ParentTypes WebView = WebViewParentTypes -type WebViewParentTypes = '[WebViewBase, Gtk.Container, Gtk.Widget, GObject.Object, Atk.ImplementorIface, Gtk.Buildable] - -instance GObject WebView where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_webkit_web_view_get_type - - -class GObject o => WebViewK o -instance (GObject o, IsDescendantOf WebView o) => WebViewK o - -toWebView :: WebViewK o => o -> IO WebView -toWebView = unsafeCastTo WebView - -noWebView :: Maybe WebView -noWebView = Nothing - -type family ResolveWebViewMethod (t :: Symbol) (o :: *) :: * where - ResolveWebViewMethod "activate" o = Gtk.WidgetActivateMethodInfo - ResolveWebViewMethod "add" o = Gtk.ContainerAddMethodInfo - ResolveWebViewMethod "addAccelerator" o = Gtk.WidgetAddAcceleratorMethodInfo - ResolveWebViewMethod "addChild" o = Gtk.BuildableAddChildMethodInfo - ResolveWebViewMethod "addDeviceEvents" o = Gtk.WidgetAddDeviceEventsMethodInfo - ResolveWebViewMethod "addEvents" o = Gtk.WidgetAddEventsMethodInfo - ResolveWebViewMethod "addMnemonicLabel" o = Gtk.WidgetAddMnemonicLabelMethodInfo - ResolveWebViewMethod "addTickCallback" o = Gtk.WidgetAddTickCallbackMethodInfo - ResolveWebViewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWebViewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWebViewMethod "canActivateAccel" o = Gtk.WidgetCanActivateAccelMethodInfo - ResolveWebViewMethod "canExecuteEditingCommand" o = WebViewCanExecuteEditingCommandMethodInfo - ResolveWebViewMethod "canExecuteEditingCommandFinish" o = WebViewCanExecuteEditingCommandFinishMethodInfo - ResolveWebViewMethod "canGoBack" o = WebViewCanGoBackMethodInfo - ResolveWebViewMethod "canGoForward" o = WebViewCanGoForwardMethodInfo - ResolveWebViewMethod "canShowMimeType" o = WebViewCanShowMimeTypeMethodInfo - ResolveWebViewMethod "checkResize" o = Gtk.ContainerCheckResizeMethodInfo - ResolveWebViewMethod "childFocus" o = Gtk.WidgetChildFocusMethodInfo - ResolveWebViewMethod "childGetProperty" o = Gtk.ContainerChildGetPropertyMethodInfo - ResolveWebViewMethod "childNotifyByPspec" o = Gtk.ContainerChildNotifyByPspecMethodInfo - ResolveWebViewMethod "childSetProperty" o = Gtk.ContainerChildSetPropertyMethodInfo - ResolveWebViewMethod "childType" o = Gtk.ContainerChildTypeMethodInfo - ResolveWebViewMethod "classPath" o = Gtk.WidgetClassPathMethodInfo - ResolveWebViewMethod "computeExpand" o = Gtk.WidgetComputeExpandMethodInfo - ResolveWebViewMethod "constructChild" o = Gtk.BuildableConstructChildMethodInfo - ResolveWebViewMethod "createPangoContext" o = Gtk.WidgetCreatePangoContextMethodInfo - ResolveWebViewMethod "createPangoLayout" o = Gtk.WidgetCreatePangoLayoutMethodInfo - ResolveWebViewMethod "customFinished" o = Gtk.BuildableCustomFinishedMethodInfo - ResolveWebViewMethod "customTagEnd" o = Gtk.BuildableCustomTagEndMethodInfo - ResolveWebViewMethod "customTagStart" o = Gtk.BuildableCustomTagStartMethodInfo - ResolveWebViewMethod "destroy" o = Gtk.WidgetDestroyMethodInfo - ResolveWebViewMethod "destroyed" o = Gtk.WidgetDestroyedMethodInfo - ResolveWebViewMethod "deviceIsShadowed" o = Gtk.WidgetDeviceIsShadowedMethodInfo - ResolveWebViewMethod "downloadUri" o = WebViewDownloadUriMethodInfo - ResolveWebViewMethod "dragBegin" o = Gtk.WidgetDragBeginMethodInfo - ResolveWebViewMethod "dragBeginWithCoordinates" o = Gtk.WidgetDragBeginWithCoordinatesMethodInfo - ResolveWebViewMethod "dragCheckThreshold" o = Gtk.WidgetDragCheckThresholdMethodInfo - ResolveWebViewMethod "dragDestAddImageTargets" o = Gtk.WidgetDragDestAddImageTargetsMethodInfo - ResolveWebViewMethod "dragDestAddTextTargets" o = Gtk.WidgetDragDestAddTextTargetsMethodInfo - ResolveWebViewMethod "dragDestAddUriTargets" o = Gtk.WidgetDragDestAddUriTargetsMethodInfo - ResolveWebViewMethod "dragDestFindTarget" o = Gtk.WidgetDragDestFindTargetMethodInfo - ResolveWebViewMethod "dragDestGetTargetList" o = Gtk.WidgetDragDestGetTargetListMethodInfo - ResolveWebViewMethod "dragDestGetTrackMotion" o = Gtk.WidgetDragDestGetTrackMotionMethodInfo - ResolveWebViewMethod "dragDestSet" o = Gtk.WidgetDragDestSetMethodInfo - ResolveWebViewMethod "dragDestSetProxy" o = Gtk.WidgetDragDestSetProxyMethodInfo - ResolveWebViewMethod "dragDestSetTargetList" o = Gtk.WidgetDragDestSetTargetListMethodInfo - ResolveWebViewMethod "dragDestSetTrackMotion" o = Gtk.WidgetDragDestSetTrackMotionMethodInfo - ResolveWebViewMethod "dragDestUnset" o = Gtk.WidgetDragDestUnsetMethodInfo - ResolveWebViewMethod "dragGetData" o = Gtk.WidgetDragGetDataMethodInfo - ResolveWebViewMethod "dragHighlight" o = Gtk.WidgetDragHighlightMethodInfo - ResolveWebViewMethod "dragSourceAddImageTargets" o = Gtk.WidgetDragSourceAddImageTargetsMethodInfo - ResolveWebViewMethod "dragSourceAddTextTargets" o = Gtk.WidgetDragSourceAddTextTargetsMethodInfo - ResolveWebViewMethod "dragSourceAddUriTargets" o = Gtk.WidgetDragSourceAddUriTargetsMethodInfo - ResolveWebViewMethod "dragSourceGetTargetList" o = Gtk.WidgetDragSourceGetTargetListMethodInfo - ResolveWebViewMethod "dragSourceSet" o = Gtk.WidgetDragSourceSetMethodInfo - ResolveWebViewMethod "dragSourceSetIconGicon" o = Gtk.WidgetDragSourceSetIconGiconMethodInfo - ResolveWebViewMethod "dragSourceSetIconName" o = Gtk.WidgetDragSourceSetIconNameMethodInfo - ResolveWebViewMethod "dragSourceSetIconPixbuf" o = Gtk.WidgetDragSourceSetIconPixbufMethodInfo - ResolveWebViewMethod "dragSourceSetIconStock" o = Gtk.WidgetDragSourceSetIconStockMethodInfo - ResolveWebViewMethod "dragSourceSetTargetList" o = Gtk.WidgetDragSourceSetTargetListMethodInfo - ResolveWebViewMethod "dragSourceUnset" o = Gtk.WidgetDragSourceUnsetMethodInfo - ResolveWebViewMethod "dragUnhighlight" o = Gtk.WidgetDragUnhighlightMethodInfo - ResolveWebViewMethod "draw" o = Gtk.WidgetDrawMethodInfo - ResolveWebViewMethod "ensureStyle" o = Gtk.WidgetEnsureStyleMethodInfo - ResolveWebViewMethod "errorBell" o = Gtk.WidgetErrorBellMethodInfo - ResolveWebViewMethod "event" o = Gtk.WidgetEventMethodInfo - ResolveWebViewMethod "executeEditingCommand" o = WebViewExecuteEditingCommandMethodInfo - ResolveWebViewMethod "executeEditingCommandWithArgument" o = WebViewExecuteEditingCommandWithArgumentMethodInfo - ResolveWebViewMethod "forall" o = Gtk.ContainerForallMethodInfo - ResolveWebViewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWebViewMethod "foreach" o = Gtk.ContainerForeachMethodInfo - ResolveWebViewMethod "freezeChildNotify" o = Gtk.WidgetFreezeChildNotifyMethodInfo - ResolveWebViewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWebViewMethod "goBack" o = WebViewGoBackMethodInfo - ResolveWebViewMethod "goForward" o = WebViewGoForwardMethodInfo - ResolveWebViewMethod "goToBackForwardListItem" o = WebViewGoToBackForwardListItemMethodInfo - ResolveWebViewMethod "grabAdd" o = Gtk.WidgetGrabAddMethodInfo - ResolveWebViewMethod "grabDefault" o = Gtk.WidgetGrabDefaultMethodInfo - ResolveWebViewMethod "grabFocus" o = Gtk.WidgetGrabFocusMethodInfo - ResolveWebViewMethod "grabRemove" o = Gtk.WidgetGrabRemoveMethodInfo - ResolveWebViewMethod "hasDefault" o = Gtk.WidgetHasDefaultMethodInfo - ResolveWebViewMethod "hasFocus" o = Gtk.WidgetHasFocusMethodInfo - ResolveWebViewMethod "hasGrab" o = Gtk.WidgetHasGrabMethodInfo - ResolveWebViewMethod "hasRcStyle" o = Gtk.WidgetHasRcStyleMethodInfo - ResolveWebViewMethod "hasScreen" o = Gtk.WidgetHasScreenMethodInfo - ResolveWebViewMethod "hasVisibleFocus" o = Gtk.WidgetHasVisibleFocusMethodInfo - ResolveWebViewMethod "hide" o = Gtk.WidgetHideMethodInfo - ResolveWebViewMethod "hideOnDelete" o = Gtk.WidgetHideOnDeleteMethodInfo - ResolveWebViewMethod "inDestruction" o = Gtk.WidgetInDestructionMethodInfo - ResolveWebViewMethod "initTemplate" o = Gtk.WidgetInitTemplateMethodInfo - ResolveWebViewMethod "inputShapeCombineRegion" o = Gtk.WidgetInputShapeCombineRegionMethodInfo - ResolveWebViewMethod "insertActionGroup" o = Gtk.WidgetInsertActionGroupMethodInfo - ResolveWebViewMethod "intersect" o = Gtk.WidgetIntersectMethodInfo - ResolveWebViewMethod "isAncestor" o = Gtk.WidgetIsAncestorMethodInfo - ResolveWebViewMethod "isComposited" o = Gtk.WidgetIsCompositedMethodInfo - ResolveWebViewMethod "isDrawable" o = Gtk.WidgetIsDrawableMethodInfo - ResolveWebViewMethod "isEditable" o = WebViewIsEditableMethodInfo - ResolveWebViewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWebViewMethod "isFocus" o = Gtk.WidgetIsFocusMethodInfo - ResolveWebViewMethod "isLoading" o = WebViewIsLoadingMethodInfo - ResolveWebViewMethod "isPlayingAudio" o = WebViewIsPlayingAudioMethodInfo - ResolveWebViewMethod "isSensitive" o = Gtk.WidgetIsSensitiveMethodInfo - ResolveWebViewMethod "isToplevel" o = Gtk.WidgetIsToplevelMethodInfo - ResolveWebViewMethod "isVisible" o = Gtk.WidgetIsVisibleMethodInfo - ResolveWebViewMethod "keynavFailed" o = Gtk.WidgetKeynavFailedMethodInfo - ResolveWebViewMethod "listAccelClosures" o = Gtk.WidgetListAccelClosuresMethodInfo - ResolveWebViewMethod "listActionPrefixes" o = Gtk.WidgetListActionPrefixesMethodInfo - ResolveWebViewMethod "listMnemonicLabels" o = Gtk.WidgetListMnemonicLabelsMethodInfo - ResolveWebViewMethod "loadAlternateHtml" o = WebViewLoadAlternateHtmlMethodInfo - ResolveWebViewMethod "loadBytes" o = WebViewLoadBytesMethodInfo - ResolveWebViewMethod "loadHtml" o = WebViewLoadHtmlMethodInfo - ResolveWebViewMethod "loadPlainText" o = WebViewLoadPlainTextMethodInfo - ResolveWebViewMethod "loadRequest" o = WebViewLoadRequestMethodInfo - ResolveWebViewMethod "loadUri" o = WebViewLoadUriMethodInfo - ResolveWebViewMethod "map" o = Gtk.WidgetMapMethodInfo - ResolveWebViewMethod "mnemonicActivate" o = Gtk.WidgetMnemonicActivateMethodInfo - ResolveWebViewMethod "modifyBase" o = Gtk.WidgetModifyBaseMethodInfo - ResolveWebViewMethod "modifyBg" o = Gtk.WidgetModifyBgMethodInfo - ResolveWebViewMethod "modifyCursor" o = Gtk.WidgetModifyCursorMethodInfo - ResolveWebViewMethod "modifyFg" o = Gtk.WidgetModifyFgMethodInfo - ResolveWebViewMethod "modifyFont" o = Gtk.WidgetModifyFontMethodInfo - ResolveWebViewMethod "modifyStyle" o = Gtk.WidgetModifyStyleMethodInfo - ResolveWebViewMethod "modifyText" o = Gtk.WidgetModifyTextMethodInfo - ResolveWebViewMethod "newWithRelatedView" o = WebViewNewWithRelatedViewMethodInfo - ResolveWebViewMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWebViewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWebViewMethod "overrideBackgroundColor" o = Gtk.WidgetOverrideBackgroundColorMethodInfo - ResolveWebViewMethod "overrideColor" o = Gtk.WidgetOverrideColorMethodInfo - ResolveWebViewMethod "overrideCursor" o = Gtk.WidgetOverrideCursorMethodInfo - ResolveWebViewMethod "overrideFont" o = Gtk.WidgetOverrideFontMethodInfo - ResolveWebViewMethod "overrideSymbolicColor" o = Gtk.WidgetOverrideSymbolicColorMethodInfo - ResolveWebViewMethod "parserFinished" o = Gtk.BuildableParserFinishedMethodInfo - ResolveWebViewMethod "path" o = Gtk.WidgetPathMethodInfo - ResolveWebViewMethod "propagateDraw" o = Gtk.ContainerPropagateDrawMethodInfo - ResolveWebViewMethod "queueComputeExpand" o = Gtk.WidgetQueueComputeExpandMethodInfo - ResolveWebViewMethod "queueDraw" o = Gtk.WidgetQueueDrawMethodInfo - ResolveWebViewMethod "queueDrawArea" o = Gtk.WidgetQueueDrawAreaMethodInfo - ResolveWebViewMethod "queueDrawRegion" o = Gtk.WidgetQueueDrawRegionMethodInfo - ResolveWebViewMethod "queueResize" o = Gtk.WidgetQueueResizeMethodInfo - ResolveWebViewMethod "queueResizeNoRedraw" o = Gtk.WidgetQueueResizeNoRedrawMethodInfo - ResolveWebViewMethod "realize" o = Gtk.WidgetRealizeMethodInfo - ResolveWebViewMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWebViewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWebViewMethod "regionIntersect" o = Gtk.WidgetRegionIntersectMethodInfo - ResolveWebViewMethod "registerWindow" o = Gtk.WidgetRegisterWindowMethodInfo - ResolveWebViewMethod "reload" o = WebViewReloadMethodInfo - ResolveWebViewMethod "reloadBypassCache" o = WebViewReloadBypassCacheMethodInfo - ResolveWebViewMethod "remove" o = Gtk.ContainerRemoveMethodInfo - ResolveWebViewMethod "removeAccelerator" o = Gtk.WidgetRemoveAcceleratorMethodInfo - ResolveWebViewMethod "removeMnemonicLabel" o = Gtk.WidgetRemoveMnemonicLabelMethodInfo - ResolveWebViewMethod "removeTickCallback" o = Gtk.WidgetRemoveTickCallbackMethodInfo - ResolveWebViewMethod "renderIcon" o = Gtk.WidgetRenderIconMethodInfo - ResolveWebViewMethod "renderIconPixbuf" o = Gtk.WidgetRenderIconPixbufMethodInfo - ResolveWebViewMethod "reparent" o = Gtk.WidgetReparentMethodInfo - ResolveWebViewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWebViewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWebViewMethod "resetRcStyles" o = Gtk.WidgetResetRcStylesMethodInfo - ResolveWebViewMethod "resetStyle" o = Gtk.WidgetResetStyleMethodInfo - ResolveWebViewMethod "resizeChildren" o = Gtk.ContainerResizeChildrenMethodInfo - ResolveWebViewMethod "restoreSessionState" o = WebViewRestoreSessionStateMethodInfo - ResolveWebViewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWebViewMethod "runJavascript" o = WebViewRunJavascriptMethodInfo - ResolveWebViewMethod "runJavascriptFinish" o = WebViewRunJavascriptFinishMethodInfo - ResolveWebViewMethod "runJavascriptFromGresource" o = WebViewRunJavascriptFromGresourceMethodInfo - ResolveWebViewMethod "runJavascriptFromGresourceFinish" o = WebViewRunJavascriptFromGresourceFinishMethodInfo - ResolveWebViewMethod "save" o = WebViewSaveMethodInfo - ResolveWebViewMethod "saveFinish" o = WebViewSaveFinishMethodInfo - ResolveWebViewMethod "saveToFile" o = WebViewSaveToFileMethodInfo - ResolveWebViewMethod "saveToFileFinish" o = WebViewSaveToFileFinishMethodInfo - ResolveWebViewMethod "sendExpose" o = Gtk.WidgetSendExposeMethodInfo - ResolveWebViewMethod "sendFocusChange" o = Gtk.WidgetSendFocusChangeMethodInfo - ResolveWebViewMethod "shapeCombineRegion" o = Gtk.WidgetShapeCombineRegionMethodInfo - ResolveWebViewMethod "show" o = Gtk.WidgetShowMethodInfo - ResolveWebViewMethod "showAll" o = Gtk.WidgetShowAllMethodInfo - ResolveWebViewMethod "showNow" o = Gtk.WidgetShowNowMethodInfo - ResolveWebViewMethod "sizeAllocate" o = Gtk.WidgetSizeAllocateMethodInfo - ResolveWebViewMethod "sizeAllocateWithBaseline" o = Gtk.WidgetSizeAllocateWithBaselineMethodInfo - ResolveWebViewMethod "sizeRequest" o = Gtk.WidgetSizeRequestMethodInfo - ResolveWebViewMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWebViewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWebViewMethod "stopLoading" o = WebViewStopLoadingMethodInfo - ResolveWebViewMethod "styleAttach" o = Gtk.WidgetStyleAttachMethodInfo - ResolveWebViewMethod "styleGetProperty" o = Gtk.WidgetStyleGetPropertyMethodInfo - ResolveWebViewMethod "thawChildNotify" o = Gtk.WidgetThawChildNotifyMethodInfo - ResolveWebViewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWebViewMethod "translateCoordinates" o = Gtk.WidgetTranslateCoordinatesMethodInfo - ResolveWebViewMethod "triggerTooltipQuery" o = Gtk.WidgetTriggerTooltipQueryMethodInfo - ResolveWebViewMethod "tryClose" o = WebViewTryCloseMethodInfo - ResolveWebViewMethod "unmap" o = Gtk.WidgetUnmapMethodInfo - ResolveWebViewMethod "unparent" o = Gtk.WidgetUnparentMethodInfo - ResolveWebViewMethod "unrealize" o = Gtk.WidgetUnrealizeMethodInfo - ResolveWebViewMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWebViewMethod "unregisterWindow" o = Gtk.WidgetUnregisterWindowMethodInfo - ResolveWebViewMethod "unsetFocusChain" o = Gtk.ContainerUnsetFocusChainMethodInfo - ResolveWebViewMethod "unsetStateFlags" o = Gtk.WidgetUnsetStateFlagsMethodInfo - ResolveWebViewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWebViewMethod "getAccessible" o = Gtk.WidgetGetAccessibleMethodInfo - ResolveWebViewMethod "getActionGroup" o = Gtk.WidgetGetActionGroupMethodInfo - ResolveWebViewMethod "getAllocatedBaseline" o = Gtk.WidgetGetAllocatedBaselineMethodInfo - ResolveWebViewMethod "getAllocatedHeight" o = Gtk.WidgetGetAllocatedHeightMethodInfo - ResolveWebViewMethod "getAllocatedWidth" o = Gtk.WidgetGetAllocatedWidthMethodInfo - ResolveWebViewMethod "getAllocation" o = Gtk.WidgetGetAllocationMethodInfo - ResolveWebViewMethod "getAncestor" o = Gtk.WidgetGetAncestorMethodInfo - ResolveWebViewMethod "getAppPaintable" o = Gtk.WidgetGetAppPaintableMethodInfo - ResolveWebViewMethod "getBackForwardList" o = WebViewGetBackForwardListMethodInfo - ResolveWebViewMethod "getBackgroundColor" o = WebViewGetBackgroundColorMethodInfo - ResolveWebViewMethod "getBorderWidth" o = Gtk.ContainerGetBorderWidthMethodInfo - ResolveWebViewMethod "getCanDefault" o = Gtk.WidgetGetCanDefaultMethodInfo - ResolveWebViewMethod "getCanFocus" o = Gtk.WidgetGetCanFocusMethodInfo - ResolveWebViewMethod "getChildRequisition" o = Gtk.WidgetGetChildRequisitionMethodInfo - ResolveWebViewMethod "getChildVisible" o = Gtk.WidgetGetChildVisibleMethodInfo - ResolveWebViewMethod "getChildren" o = Gtk.ContainerGetChildrenMethodInfo - ResolveWebViewMethod "getClip" o = Gtk.WidgetGetClipMethodInfo - ResolveWebViewMethod "getClipboard" o = Gtk.WidgetGetClipboardMethodInfo - ResolveWebViewMethod "getCompositeName" o = Gtk.WidgetGetCompositeNameMethodInfo - ResolveWebViewMethod "getContext" o = WebViewGetContextMethodInfo - ResolveWebViewMethod "getCustomCharset" o = WebViewGetCustomCharsetMethodInfo - ResolveWebViewMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWebViewMethod "getDeviceEnabled" o = Gtk.WidgetGetDeviceEnabledMethodInfo - ResolveWebViewMethod "getDeviceEvents" o = Gtk.WidgetGetDeviceEventsMethodInfo - ResolveWebViewMethod "getDirection" o = Gtk.WidgetGetDirectionMethodInfo - ResolveWebViewMethod "getDisplay" o = Gtk.WidgetGetDisplayMethodInfo - ResolveWebViewMethod "getDoubleBuffered" o = Gtk.WidgetGetDoubleBufferedMethodInfo - ResolveWebViewMethod "getEditorState" o = WebViewGetEditorStateMethodInfo - ResolveWebViewMethod "getEstimatedLoadProgress" o = WebViewGetEstimatedLoadProgressMethodInfo - ResolveWebViewMethod "getEvents" o = Gtk.WidgetGetEventsMethodInfo - ResolveWebViewMethod "getFavicon" o = WebViewGetFaviconMethodInfo - ResolveWebViewMethod "getFindController" o = WebViewGetFindControllerMethodInfo - ResolveWebViewMethod "getFocusChain" o = Gtk.ContainerGetFocusChainMethodInfo - ResolveWebViewMethod "getFocusChild" o = Gtk.ContainerGetFocusChildMethodInfo - ResolveWebViewMethod "getFocusHadjustment" o = Gtk.ContainerGetFocusHadjustmentMethodInfo - ResolveWebViewMethod "getFocusVadjustment" o = Gtk.ContainerGetFocusVadjustmentMethodInfo - ResolveWebViewMethod "getFontMap" o = Gtk.WidgetGetFontMapMethodInfo - ResolveWebViewMethod "getFontOptions" o = Gtk.WidgetGetFontOptionsMethodInfo - ResolveWebViewMethod "getFrameClock" o = Gtk.WidgetGetFrameClockMethodInfo - ResolveWebViewMethod "getHalign" o = Gtk.WidgetGetHalignMethodInfo - ResolveWebViewMethod "getHasTooltip" o = Gtk.WidgetGetHasTooltipMethodInfo - ResolveWebViewMethod "getHasWindow" o = Gtk.WidgetGetHasWindowMethodInfo - ResolveWebViewMethod "getHexpand" o = Gtk.WidgetGetHexpandMethodInfo - ResolveWebViewMethod "getHexpandSet" o = Gtk.WidgetGetHexpandSetMethodInfo - ResolveWebViewMethod "getInspector" o = WebViewGetInspectorMethodInfo - ResolveWebViewMethod "getInternalChild" o = Gtk.BuildableGetInternalChildMethodInfo - ResolveWebViewMethod "getJavascriptGlobalContext" o = WebViewGetJavascriptGlobalContextMethodInfo - ResolveWebViewMethod "getMainResource" o = WebViewGetMainResourceMethodInfo - ResolveWebViewMethod "getMapped" o = Gtk.WidgetGetMappedMethodInfo - ResolveWebViewMethod "getMarginBottom" o = Gtk.WidgetGetMarginBottomMethodInfo - ResolveWebViewMethod "getMarginEnd" o = Gtk.WidgetGetMarginEndMethodInfo - ResolveWebViewMethod "getMarginLeft" o = Gtk.WidgetGetMarginLeftMethodInfo - ResolveWebViewMethod "getMarginRight" o = Gtk.WidgetGetMarginRightMethodInfo - ResolveWebViewMethod "getMarginStart" o = Gtk.WidgetGetMarginStartMethodInfo - ResolveWebViewMethod "getMarginTop" o = Gtk.WidgetGetMarginTopMethodInfo - ResolveWebViewMethod "getModifierMask" o = Gtk.WidgetGetModifierMaskMethodInfo - ResolveWebViewMethod "getModifierStyle" o = Gtk.WidgetGetModifierStyleMethodInfo - ResolveWebViewMethod "getNoShowAll" o = Gtk.WidgetGetNoShowAllMethodInfo - ResolveWebViewMethod "getOpacity" o = Gtk.WidgetGetOpacityMethodInfo - ResolveWebViewMethod "getPageId" o = WebViewGetPageIdMethodInfo - ResolveWebViewMethod "getPangoContext" o = Gtk.WidgetGetPangoContextMethodInfo - ResolveWebViewMethod "getParent" o = Gtk.WidgetGetParentMethodInfo - ResolveWebViewMethod "getParentWindow" o = Gtk.WidgetGetParentWindowMethodInfo - ResolveWebViewMethod "getPath" o = Gtk.WidgetGetPathMethodInfo - ResolveWebViewMethod "getPathForChild" o = Gtk.ContainerGetPathForChildMethodInfo - ResolveWebViewMethod "getPointer" o = Gtk.WidgetGetPointerMethodInfo - ResolveWebViewMethod "getPreferredHeight" o = Gtk.WidgetGetPreferredHeightMethodInfo - ResolveWebViewMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveWebViewMethod "getPreferredHeightForWidth" o = Gtk.WidgetGetPreferredHeightForWidthMethodInfo - ResolveWebViewMethod "getPreferredSize" o = Gtk.WidgetGetPreferredSizeMethodInfo - ResolveWebViewMethod "getPreferredWidth" o = Gtk.WidgetGetPreferredWidthMethodInfo - ResolveWebViewMethod "getPreferredWidthForHeight" o = Gtk.WidgetGetPreferredWidthForHeightMethodInfo - ResolveWebViewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWebViewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWebViewMethod "getRealized" o = Gtk.WidgetGetRealizedMethodInfo - ResolveWebViewMethod "getReceivesDefault" o = Gtk.WidgetGetReceivesDefaultMethodInfo - ResolveWebViewMethod "getRequestMode" o = Gtk.WidgetGetRequestModeMethodInfo - ResolveWebViewMethod "getRequisition" o = Gtk.WidgetGetRequisitionMethodInfo - ResolveWebViewMethod "getResizeMode" o = Gtk.ContainerGetResizeModeMethodInfo - ResolveWebViewMethod "getRootWindow" o = Gtk.WidgetGetRootWindowMethodInfo - ResolveWebViewMethod "getScaleFactor" o = Gtk.WidgetGetScaleFactorMethodInfo - ResolveWebViewMethod "getScreen" o = Gtk.WidgetGetScreenMethodInfo - ResolveWebViewMethod "getSensitive" o = Gtk.WidgetGetSensitiveMethodInfo - ResolveWebViewMethod "getSessionState" o = WebViewGetSessionStateMethodInfo - ResolveWebViewMethod "getSizeRequest" o = Gtk.WidgetGetSizeRequestMethodInfo - ResolveWebViewMethod "getSnapshot" o = WebViewGetSnapshotMethodInfo - ResolveWebViewMethod "getSnapshotFinish" o = WebViewGetSnapshotFinishMethodInfo - ResolveWebViewMethod "getState" o = Gtk.WidgetGetStateMethodInfo - ResolveWebViewMethod "getStateFlags" o = Gtk.WidgetGetStateFlagsMethodInfo - ResolveWebViewMethod "getStyle" o = Gtk.WidgetGetStyleMethodInfo - ResolveWebViewMethod "getStyleContext" o = Gtk.WidgetGetStyleContextMethodInfo - ResolveWebViewMethod "getSupportMultidevice" o = Gtk.WidgetGetSupportMultideviceMethodInfo - ResolveWebViewMethod "getTemplateChild" o = Gtk.WidgetGetTemplateChildMethodInfo - ResolveWebViewMethod "getTitle" o = WebViewGetTitleMethodInfo - ResolveWebViewMethod "getTlsInfo" o = WebViewGetTlsInfoMethodInfo - ResolveWebViewMethod "getTooltipMarkup" o = Gtk.WidgetGetTooltipMarkupMethodInfo - ResolveWebViewMethod "getTooltipText" o = Gtk.WidgetGetTooltipTextMethodInfo - ResolveWebViewMethod "getTooltipWindow" o = Gtk.WidgetGetTooltipWindowMethodInfo - ResolveWebViewMethod "getToplevel" o = Gtk.WidgetGetToplevelMethodInfo - ResolveWebViewMethod "getUri" o = WebViewGetUriMethodInfo - ResolveWebViewMethod "getUserContentManager" o = WebViewGetUserContentManagerMethodInfo - ResolveWebViewMethod "getValign" o = Gtk.WidgetGetValignMethodInfo - ResolveWebViewMethod "getValignWithBaseline" o = Gtk.WidgetGetValignWithBaselineMethodInfo - ResolveWebViewMethod "getVexpand" o = Gtk.WidgetGetVexpandMethodInfo - ResolveWebViewMethod "getVexpandSet" o = Gtk.WidgetGetVexpandSetMethodInfo - ResolveWebViewMethod "getVisible" o = Gtk.WidgetGetVisibleMethodInfo - ResolveWebViewMethod "getVisual" o = Gtk.WidgetGetVisualMethodInfo - ResolveWebViewMethod "getWindow" o = Gtk.WidgetGetWindowMethodInfo - ResolveWebViewMethod "getWindowProperties" o = WebViewGetWindowPropertiesMethodInfo - ResolveWebViewMethod "getZoomLevel" o = WebViewGetZoomLevelMethodInfo - ResolveWebViewMethod "setAccelPath" o = Gtk.WidgetSetAccelPathMethodInfo - ResolveWebViewMethod "setAllocation" o = Gtk.WidgetSetAllocationMethodInfo - ResolveWebViewMethod "setAppPaintable" o = Gtk.WidgetSetAppPaintableMethodInfo - ResolveWebViewMethod "setBackgroundColor" o = WebViewSetBackgroundColorMethodInfo - ResolveWebViewMethod "setBorderWidth" o = Gtk.ContainerSetBorderWidthMethodInfo - ResolveWebViewMethod "setBuildableProperty" o = Gtk.BuildableSetBuildablePropertyMethodInfo - ResolveWebViewMethod "setCanDefault" o = Gtk.WidgetSetCanDefaultMethodInfo - ResolveWebViewMethod "setCanFocus" o = Gtk.WidgetSetCanFocusMethodInfo - ResolveWebViewMethod "setChildVisible" o = Gtk.WidgetSetChildVisibleMethodInfo - ResolveWebViewMethod "setClip" o = Gtk.WidgetSetClipMethodInfo - ResolveWebViewMethod "setCompositeName" o = Gtk.WidgetSetCompositeNameMethodInfo - ResolveWebViewMethod "setCustomCharset" o = WebViewSetCustomCharsetMethodInfo - ResolveWebViewMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWebViewMethod "setDeviceEnabled" o = Gtk.WidgetSetDeviceEnabledMethodInfo - ResolveWebViewMethod "setDeviceEvents" o = Gtk.WidgetSetDeviceEventsMethodInfo - ResolveWebViewMethod "setDirection" o = Gtk.WidgetSetDirectionMethodInfo - ResolveWebViewMethod "setDoubleBuffered" o = Gtk.WidgetSetDoubleBufferedMethodInfo - ResolveWebViewMethod "setEditable" o = WebViewSetEditableMethodInfo - ResolveWebViewMethod "setEvents" o = Gtk.WidgetSetEventsMethodInfo - ResolveWebViewMethod "setFocusChain" o = Gtk.ContainerSetFocusChainMethodInfo - ResolveWebViewMethod "setFocusChild" o = Gtk.ContainerSetFocusChildMethodInfo - ResolveWebViewMethod "setFocusHadjustment" o = Gtk.ContainerSetFocusHadjustmentMethodInfo - ResolveWebViewMethod "setFocusVadjustment" o = Gtk.ContainerSetFocusVadjustmentMethodInfo - ResolveWebViewMethod "setFontMap" o = Gtk.WidgetSetFontMapMethodInfo - ResolveWebViewMethod "setFontOptions" o = Gtk.WidgetSetFontOptionsMethodInfo - ResolveWebViewMethod "setHalign" o = Gtk.WidgetSetHalignMethodInfo - ResolveWebViewMethod "setHasTooltip" o = Gtk.WidgetSetHasTooltipMethodInfo - ResolveWebViewMethod "setHasWindow" o = Gtk.WidgetSetHasWindowMethodInfo - ResolveWebViewMethod "setHexpand" o = Gtk.WidgetSetHexpandMethodInfo - ResolveWebViewMethod "setHexpandSet" o = Gtk.WidgetSetHexpandSetMethodInfo - ResolveWebViewMethod "setMapped" o = Gtk.WidgetSetMappedMethodInfo - ResolveWebViewMethod "setMarginBottom" o = Gtk.WidgetSetMarginBottomMethodInfo - ResolveWebViewMethod "setMarginEnd" o = Gtk.WidgetSetMarginEndMethodInfo - ResolveWebViewMethod "setMarginLeft" o = Gtk.WidgetSetMarginLeftMethodInfo - ResolveWebViewMethod "setMarginRight" o = Gtk.WidgetSetMarginRightMethodInfo - ResolveWebViewMethod "setMarginStart" o = Gtk.WidgetSetMarginStartMethodInfo - ResolveWebViewMethod "setMarginTop" o = Gtk.WidgetSetMarginTopMethodInfo - ResolveWebViewMethod "setNoShowAll" o = Gtk.WidgetSetNoShowAllMethodInfo - ResolveWebViewMethod "setOpacity" o = Gtk.WidgetSetOpacityMethodInfo - ResolveWebViewMethod "setParent" o = Gtk.WidgetSetParentMethodInfo - ResolveWebViewMethod "setParentWindow" o = Gtk.WidgetSetParentWindowMethodInfo - ResolveWebViewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWebViewMethod "setRealized" o = Gtk.WidgetSetRealizedMethodInfo - ResolveWebViewMethod "setReallocateRedraws" o = Gtk.ContainerSetReallocateRedrawsMethodInfo - ResolveWebViewMethod "setReceivesDefault" o = Gtk.WidgetSetReceivesDefaultMethodInfo - ResolveWebViewMethod "setRedrawOnAllocate" o = Gtk.WidgetSetRedrawOnAllocateMethodInfo - ResolveWebViewMethod "setResizeMode" o = Gtk.ContainerSetResizeModeMethodInfo - ResolveWebViewMethod "setSensitive" o = Gtk.WidgetSetSensitiveMethodInfo - ResolveWebViewMethod "setSettings" o = WebViewSetSettingsMethodInfo - ResolveWebViewMethod "setSizeRequest" o = Gtk.WidgetSetSizeRequestMethodInfo - ResolveWebViewMethod "setState" o = Gtk.WidgetSetStateMethodInfo - ResolveWebViewMethod "setStateFlags" o = Gtk.WidgetSetStateFlagsMethodInfo - ResolveWebViewMethod "setStyle" o = Gtk.WidgetSetStyleMethodInfo - ResolveWebViewMethod "setSupportMultidevice" o = Gtk.WidgetSetSupportMultideviceMethodInfo - ResolveWebViewMethod "setTooltipMarkup" o = Gtk.WidgetSetTooltipMarkupMethodInfo - ResolveWebViewMethod "setTooltipText" o = Gtk.WidgetSetTooltipTextMethodInfo - ResolveWebViewMethod "setTooltipWindow" o = Gtk.WidgetSetTooltipWindowMethodInfo - ResolveWebViewMethod "setValign" o = Gtk.WidgetSetValignMethodInfo - ResolveWebViewMethod "setVexpand" o = Gtk.WidgetSetVexpandMethodInfo - ResolveWebViewMethod "setVexpandSet" o = Gtk.WidgetSetVexpandSetMethodInfo - ResolveWebViewMethod "setVisible" o = Gtk.WidgetSetVisibleMethodInfo - ResolveWebViewMethod "setVisual" o = Gtk.WidgetSetVisualMethodInfo - ResolveWebViewMethod "setWindow" o = Gtk.WidgetSetWindowMethodInfo - ResolveWebViewMethod "setZoomLevel" o = WebViewSetZoomLevelMethodInfo - ResolveWebViewMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebViewMethod t WebView, MethodInfo info WebView p) => IsLabelProxy t (WebView -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebViewMethod t WebView, MethodInfo info WebView p) => IsLabel t (WebView -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal WebView::authenticate -type WebViewAuthenticateCallback = - AuthenticationRequest -> - IO Bool - -noWebViewAuthenticateCallback :: Maybe WebViewAuthenticateCallback -noWebViewAuthenticateCallback = Nothing - -type WebViewAuthenticateCallbackC = - Ptr () -> -- object - Ptr AuthenticationRequest -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewAuthenticateCallback :: WebViewAuthenticateCallbackC -> IO (FunPtr WebViewAuthenticateCallbackC) - -webViewAuthenticateClosure :: WebViewAuthenticateCallback -> IO Closure -webViewAuthenticateClosure cb = newCClosure =<< mkWebViewAuthenticateCallback wrapped - where wrapped = webViewAuthenticateCallbackWrapper cb - -webViewAuthenticateCallbackWrapper :: - WebViewAuthenticateCallback -> - Ptr () -> - Ptr AuthenticationRequest -> - Ptr () -> - IO CInt -webViewAuthenticateCallbackWrapper _cb _ request _ = do - request' <- (newObject AuthenticationRequest) request - result <- _cb request' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewAuthenticate :: (GObject a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId -onWebViewAuthenticate obj cb = liftIO $ connectWebViewAuthenticate obj cb SignalConnectBefore -afterWebViewAuthenticate :: (GObject a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId -afterWebViewAuthenticate obj cb = connectWebViewAuthenticate obj cb SignalConnectAfter - -connectWebViewAuthenticate :: (GObject a, MonadIO m) => - a -> WebViewAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewAuthenticate obj cb after = liftIO $ do - cb' <- mkWebViewAuthenticateCallback (webViewAuthenticateCallbackWrapper cb) - connectSignalFunPtr obj "authenticate" cb' after - --- signal WebView::close -type WebViewCloseCallback = - IO () - -noWebViewCloseCallback :: Maybe WebViewCloseCallback -noWebViewCloseCallback = Nothing - -type WebViewCloseCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewCloseCallback :: WebViewCloseCallbackC -> IO (FunPtr WebViewCloseCallbackC) - -webViewCloseClosure :: WebViewCloseCallback -> IO Closure -webViewCloseClosure cb = newCClosure =<< mkWebViewCloseCallback wrapped - where wrapped = webViewCloseCallbackWrapper cb - -webViewCloseCallbackWrapper :: - WebViewCloseCallback -> - Ptr () -> - Ptr () -> - IO () -webViewCloseCallbackWrapper _cb _ _ = do - _cb - -onWebViewClose :: (GObject a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId -onWebViewClose obj cb = liftIO $ connectWebViewClose obj cb SignalConnectBefore -afterWebViewClose :: (GObject a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId -afterWebViewClose obj cb = connectWebViewClose obj cb SignalConnectAfter - -connectWebViewClose :: (GObject a, MonadIO m) => - a -> WebViewCloseCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewClose obj cb after = liftIO $ do - cb' <- mkWebViewCloseCallback (webViewCloseCallbackWrapper cb) - connectSignalFunPtr obj "close" cb' after - --- signal WebView::context-menu -type WebViewContextMenuCallback = - ContextMenu -> - Gdk.Event -> - HitTestResult -> - IO Bool - -noWebViewContextMenuCallback :: Maybe WebViewContextMenuCallback -noWebViewContextMenuCallback = Nothing - -type WebViewContextMenuCallbackC = - Ptr () -> -- object - Ptr ContextMenu -> - Ptr Gdk.Event -> - Ptr HitTestResult -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewContextMenuCallback :: WebViewContextMenuCallbackC -> IO (FunPtr WebViewContextMenuCallbackC) - -webViewContextMenuClosure :: WebViewContextMenuCallback -> IO Closure -webViewContextMenuClosure cb = newCClosure =<< mkWebViewContextMenuCallback wrapped - where wrapped = webViewContextMenuCallbackWrapper cb - -webViewContextMenuCallbackWrapper :: - WebViewContextMenuCallback -> - Ptr () -> - Ptr ContextMenu -> - Ptr Gdk.Event -> - Ptr HitTestResult -> - Ptr () -> - IO CInt -webViewContextMenuCallbackWrapper _cb _ contextMenu event hitTestResult _ = do - contextMenu' <- (newObject ContextMenu) contextMenu - event' <- (newBoxed Gdk.Event) event - hitTestResult' <- (newObject HitTestResult) hitTestResult - result <- _cb contextMenu' event' hitTestResult' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId -onWebViewContextMenu obj cb = liftIO $ connectWebViewContextMenu obj cb SignalConnectBefore -afterWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId -afterWebViewContextMenu obj cb = connectWebViewContextMenu obj cb SignalConnectAfter - -connectWebViewContextMenu :: (GObject a, MonadIO m) => - a -> WebViewContextMenuCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewContextMenu obj cb after = liftIO $ do - cb' <- mkWebViewContextMenuCallback (webViewContextMenuCallbackWrapper cb) - connectSignalFunPtr obj "context-menu" cb' after - --- signal WebView::context-menu-dismissed -type WebViewContextMenuDismissedCallback = - IO () - -noWebViewContextMenuDismissedCallback :: Maybe WebViewContextMenuDismissedCallback -noWebViewContextMenuDismissedCallback = Nothing - -type WebViewContextMenuDismissedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewContextMenuDismissedCallback :: WebViewContextMenuDismissedCallbackC -> IO (FunPtr WebViewContextMenuDismissedCallbackC) - -webViewContextMenuDismissedClosure :: WebViewContextMenuDismissedCallback -> IO Closure -webViewContextMenuDismissedClosure cb = newCClosure =<< mkWebViewContextMenuDismissedCallback wrapped - where wrapped = webViewContextMenuDismissedCallbackWrapper cb - -webViewContextMenuDismissedCallbackWrapper :: - WebViewContextMenuDismissedCallback -> - Ptr () -> - Ptr () -> - IO () -webViewContextMenuDismissedCallbackWrapper _cb _ _ = do - _cb - -onWebViewContextMenuDismissed :: (GObject a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId -onWebViewContextMenuDismissed obj cb = liftIO $ connectWebViewContextMenuDismissed obj cb SignalConnectBefore -afterWebViewContextMenuDismissed :: (GObject a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId -afterWebViewContextMenuDismissed obj cb = connectWebViewContextMenuDismissed obj cb SignalConnectAfter - -connectWebViewContextMenuDismissed :: (GObject a, MonadIO m) => - a -> WebViewContextMenuDismissedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewContextMenuDismissed obj cb after = liftIO $ do - cb' <- mkWebViewContextMenuDismissedCallback (webViewContextMenuDismissedCallbackWrapper cb) - connectSignalFunPtr obj "context-menu-dismissed" cb' after - --- signal WebView::create -type WebViewCreateCallback = - NavigationAction -> - IO Gtk.Widget - -noWebViewCreateCallback :: Maybe WebViewCreateCallback -noWebViewCreateCallback = Nothing - -type WebViewCreateCallbackC = - Ptr () -> -- object - Ptr NavigationAction -> - Ptr () -> -- user_data - IO (Ptr Gtk.Widget) - -foreign import ccall "wrapper" - mkWebViewCreateCallback :: WebViewCreateCallbackC -> IO (FunPtr WebViewCreateCallbackC) - -webViewCreateClosure :: WebViewCreateCallback -> IO Closure -webViewCreateClosure cb = newCClosure =<< mkWebViewCreateCallback wrapped - where wrapped = webViewCreateCallbackWrapper cb - -webViewCreateCallbackWrapper :: - WebViewCreateCallback -> - Ptr () -> - Ptr NavigationAction -> - Ptr () -> - IO (Ptr Gtk.Widget) -webViewCreateCallbackWrapper _cb _ navigationAction _ = do - navigationAction' <- (newBoxed NavigationAction) navigationAction - result <- _cb navigationAction' - result' <- refObject result - return result' - -onWebViewCreate :: (GObject a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId -onWebViewCreate obj cb = liftIO $ connectWebViewCreate obj cb SignalConnectBefore -afterWebViewCreate :: (GObject a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId -afterWebViewCreate obj cb = connectWebViewCreate obj cb SignalConnectAfter - -connectWebViewCreate :: (GObject a, MonadIO m) => - a -> WebViewCreateCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewCreate obj cb after = liftIO $ do - cb' <- mkWebViewCreateCallback (webViewCreateCallbackWrapper cb) - connectSignalFunPtr obj "create" cb' after - --- signal WebView::decide-policy -type WebViewDecidePolicyCallback = - PolicyDecision -> - PolicyDecisionType -> - IO Bool - -noWebViewDecidePolicyCallback :: Maybe WebViewDecidePolicyCallback -noWebViewDecidePolicyCallback = Nothing - -type WebViewDecidePolicyCallbackC = - Ptr () -> -- object - Ptr PolicyDecision -> - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewDecidePolicyCallback :: WebViewDecidePolicyCallbackC -> IO (FunPtr WebViewDecidePolicyCallbackC) - -webViewDecidePolicyClosure :: WebViewDecidePolicyCallback -> IO Closure -webViewDecidePolicyClosure cb = newCClosure =<< mkWebViewDecidePolicyCallback wrapped - where wrapped = webViewDecidePolicyCallbackWrapper cb - -webViewDecidePolicyCallbackWrapper :: - WebViewDecidePolicyCallback -> - Ptr () -> - Ptr PolicyDecision -> - CUInt -> - Ptr () -> - IO CInt -webViewDecidePolicyCallbackWrapper _cb _ decision decisionType _ = do - decision' <- (newObject PolicyDecision) decision - let decisionType' = (toEnum . fromIntegral) decisionType - result <- _cb decision' decisionType' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewDecidePolicy :: (GObject a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId -onWebViewDecidePolicy obj cb = liftIO $ connectWebViewDecidePolicy obj cb SignalConnectBefore -afterWebViewDecidePolicy :: (GObject a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId -afterWebViewDecidePolicy obj cb = connectWebViewDecidePolicy obj cb SignalConnectAfter - -connectWebViewDecidePolicy :: (GObject a, MonadIO m) => - a -> WebViewDecidePolicyCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewDecidePolicy obj cb after = liftIO $ do - cb' <- mkWebViewDecidePolicyCallback (webViewDecidePolicyCallbackWrapper cb) - connectSignalFunPtr obj "decide-policy" cb' after - --- signal WebView::enter-fullscreen -type WebViewEnterFullscreenCallback = - IO Bool - -noWebViewEnterFullscreenCallback :: Maybe WebViewEnterFullscreenCallback -noWebViewEnterFullscreenCallback = Nothing - -type WebViewEnterFullscreenCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewEnterFullscreenCallback :: WebViewEnterFullscreenCallbackC -> IO (FunPtr WebViewEnterFullscreenCallbackC) - -webViewEnterFullscreenClosure :: WebViewEnterFullscreenCallback -> IO Closure -webViewEnterFullscreenClosure cb = newCClosure =<< mkWebViewEnterFullscreenCallback wrapped - where wrapped = webViewEnterFullscreenCallbackWrapper cb - -webViewEnterFullscreenCallbackWrapper :: - WebViewEnterFullscreenCallback -> - Ptr () -> - Ptr () -> - IO CInt -webViewEnterFullscreenCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewEnterFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId -onWebViewEnterFullscreen obj cb = liftIO $ connectWebViewEnterFullscreen obj cb SignalConnectBefore -afterWebViewEnterFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId -afterWebViewEnterFullscreen obj cb = connectWebViewEnterFullscreen obj cb SignalConnectAfter - -connectWebViewEnterFullscreen :: (GObject a, MonadIO m) => - a -> WebViewEnterFullscreenCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewEnterFullscreen obj cb after = liftIO $ do - cb' <- mkWebViewEnterFullscreenCallback (webViewEnterFullscreenCallbackWrapper cb) - connectSignalFunPtr obj "enter-fullscreen" cb' after - --- signal WebView::insecure-content-detected -type WebViewInsecureContentDetectedCallback = - InsecureContentEvent -> - IO () - -noWebViewInsecureContentDetectedCallback :: Maybe WebViewInsecureContentDetectedCallback -noWebViewInsecureContentDetectedCallback = Nothing - -type WebViewInsecureContentDetectedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewInsecureContentDetectedCallback :: WebViewInsecureContentDetectedCallbackC -> IO (FunPtr WebViewInsecureContentDetectedCallbackC) - -webViewInsecureContentDetectedClosure :: WebViewInsecureContentDetectedCallback -> IO Closure -webViewInsecureContentDetectedClosure cb = newCClosure =<< mkWebViewInsecureContentDetectedCallback wrapped - where wrapped = webViewInsecureContentDetectedCallbackWrapper cb - -webViewInsecureContentDetectedCallbackWrapper :: - WebViewInsecureContentDetectedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -webViewInsecureContentDetectedCallbackWrapper _cb _ event _ = do - let event' = (toEnum . fromIntegral) event - _cb event' - -onWebViewInsecureContentDetected :: (GObject a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId -onWebViewInsecureContentDetected obj cb = liftIO $ connectWebViewInsecureContentDetected obj cb SignalConnectBefore -afterWebViewInsecureContentDetected :: (GObject a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId -afterWebViewInsecureContentDetected obj cb = connectWebViewInsecureContentDetected obj cb SignalConnectAfter - -connectWebViewInsecureContentDetected :: (GObject a, MonadIO m) => - a -> WebViewInsecureContentDetectedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewInsecureContentDetected obj cb after = liftIO $ do - cb' <- mkWebViewInsecureContentDetectedCallback (webViewInsecureContentDetectedCallbackWrapper cb) - connectSignalFunPtr obj "insecure-content-detected" cb' after - --- signal WebView::leave-fullscreen -type WebViewLeaveFullscreenCallback = - IO Bool - -noWebViewLeaveFullscreenCallback :: Maybe WebViewLeaveFullscreenCallback -noWebViewLeaveFullscreenCallback = Nothing - -type WebViewLeaveFullscreenCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewLeaveFullscreenCallback :: WebViewLeaveFullscreenCallbackC -> IO (FunPtr WebViewLeaveFullscreenCallbackC) - -webViewLeaveFullscreenClosure :: WebViewLeaveFullscreenCallback -> IO Closure -webViewLeaveFullscreenClosure cb = newCClosure =<< mkWebViewLeaveFullscreenCallback wrapped - where wrapped = webViewLeaveFullscreenCallbackWrapper cb - -webViewLeaveFullscreenCallbackWrapper :: - WebViewLeaveFullscreenCallback -> - Ptr () -> - Ptr () -> - IO CInt -webViewLeaveFullscreenCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewLeaveFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId -onWebViewLeaveFullscreen obj cb = liftIO $ connectWebViewLeaveFullscreen obj cb SignalConnectBefore -afterWebViewLeaveFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId -afterWebViewLeaveFullscreen obj cb = connectWebViewLeaveFullscreen obj cb SignalConnectAfter - -connectWebViewLeaveFullscreen :: (GObject a, MonadIO m) => - a -> WebViewLeaveFullscreenCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewLeaveFullscreen obj cb after = liftIO $ do - cb' <- mkWebViewLeaveFullscreenCallback (webViewLeaveFullscreenCallbackWrapper cb) - connectSignalFunPtr obj "leave-fullscreen" cb' after - --- signal WebView::load-changed -type WebViewLoadChangedCallback = - LoadEvent -> - IO () - -noWebViewLoadChangedCallback :: Maybe WebViewLoadChangedCallback -noWebViewLoadChangedCallback = Nothing - -type WebViewLoadChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewLoadChangedCallback :: WebViewLoadChangedCallbackC -> IO (FunPtr WebViewLoadChangedCallbackC) - -webViewLoadChangedClosure :: WebViewLoadChangedCallback -> IO Closure -webViewLoadChangedClosure cb = newCClosure =<< mkWebViewLoadChangedCallback wrapped - where wrapped = webViewLoadChangedCallbackWrapper cb - -webViewLoadChangedCallbackWrapper :: - WebViewLoadChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -webViewLoadChangedCallbackWrapper _cb _ loadEvent _ = do - let loadEvent' = (toEnum . fromIntegral) loadEvent - _cb loadEvent' - -onWebViewLoadChanged :: (GObject a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId -onWebViewLoadChanged obj cb = liftIO $ connectWebViewLoadChanged obj cb SignalConnectBefore -afterWebViewLoadChanged :: (GObject a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId -afterWebViewLoadChanged obj cb = connectWebViewLoadChanged obj cb SignalConnectAfter - -connectWebViewLoadChanged :: (GObject a, MonadIO m) => - a -> WebViewLoadChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewLoadChanged obj cb after = liftIO $ do - cb' <- mkWebViewLoadChangedCallback (webViewLoadChangedCallbackWrapper cb) - connectSignalFunPtr obj "load-changed" cb' after - --- signal WebView::load-failed -type WebViewLoadFailedCallback = - LoadEvent -> - T.Text -> - GError -> - IO Bool - -noWebViewLoadFailedCallback :: Maybe WebViewLoadFailedCallback -noWebViewLoadFailedCallback = Nothing - -type WebViewLoadFailedCallbackC = - Ptr () -> -- object - CUInt -> - CString -> - Ptr GError -> - 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 GError -> - Ptr () -> - IO CInt -webViewLoadFailedCallbackWrapper _cb _ loadEvent failingUri error_ _ = do - let loadEvent' = (toEnum . fromIntegral) loadEvent - failingUri' <- cstringToText failingUri - error_' <- (newBoxed GError) error_ - result <- _cb loadEvent' failingUri' error_' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewLoadFailed :: (GObject a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId -onWebViewLoadFailed obj cb = liftIO $ connectWebViewLoadFailed obj cb SignalConnectBefore -afterWebViewLoadFailed :: (GObject a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId -afterWebViewLoadFailed obj cb = connectWebViewLoadFailed obj cb SignalConnectAfter - -connectWebViewLoadFailed :: (GObject a, MonadIO m) => - a -> WebViewLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewLoadFailed obj cb after = liftIO $ do - cb' <- mkWebViewLoadFailedCallback (webViewLoadFailedCallbackWrapper cb) - connectSignalFunPtr obj "load-failed" cb' after - --- signal WebView::load-failed-with-tls-errors -type WebViewLoadFailedWithTlsErrorsCallback = - T.Text -> - Gio.TlsCertificate -> - [Gio.TlsCertificateFlags] -> - IO Bool - -noWebViewLoadFailedWithTlsErrorsCallback :: Maybe WebViewLoadFailedWithTlsErrorsCallback -noWebViewLoadFailedWithTlsErrorsCallback = Nothing - -type WebViewLoadFailedWithTlsErrorsCallbackC = - Ptr () -> -- object - CString -> - Ptr Gio.TlsCertificate -> - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewLoadFailedWithTlsErrorsCallback :: WebViewLoadFailedWithTlsErrorsCallbackC -> IO (FunPtr WebViewLoadFailedWithTlsErrorsCallbackC) - -webViewLoadFailedWithTlsErrorsClosure :: WebViewLoadFailedWithTlsErrorsCallback -> IO Closure -webViewLoadFailedWithTlsErrorsClosure cb = newCClosure =<< mkWebViewLoadFailedWithTlsErrorsCallback wrapped - where wrapped = webViewLoadFailedWithTlsErrorsCallbackWrapper cb - -webViewLoadFailedWithTlsErrorsCallbackWrapper :: - WebViewLoadFailedWithTlsErrorsCallback -> - Ptr () -> - CString -> - Ptr Gio.TlsCertificate -> - CUInt -> - Ptr () -> - IO CInt -webViewLoadFailedWithTlsErrorsCallbackWrapper _cb _ failingUri certificate errors _ = do - failingUri' <- cstringToText failingUri - certificate' <- (newObject Gio.TlsCertificate) certificate - let errors' = wordToGFlags errors - result <- _cb failingUri' certificate' errors' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId -onWebViewLoadFailedWithTlsErrors obj cb = liftIO $ connectWebViewLoadFailedWithTlsErrors obj cb SignalConnectBefore -afterWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId -afterWebViewLoadFailedWithTlsErrors obj cb = connectWebViewLoadFailedWithTlsErrors obj cb SignalConnectAfter - -connectWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => - a -> WebViewLoadFailedWithTlsErrorsCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewLoadFailedWithTlsErrors obj cb after = liftIO $ do - cb' <- mkWebViewLoadFailedWithTlsErrorsCallback (webViewLoadFailedWithTlsErrorsCallbackWrapper cb) - connectSignalFunPtr obj "load-failed-with-tls-errors" cb' after - --- signal WebView::mouse-target-changed -type WebViewMouseTargetChangedCallback = - HitTestResult -> - Word32 -> - IO () - -noWebViewMouseTargetChangedCallback :: Maybe WebViewMouseTargetChangedCallback -noWebViewMouseTargetChangedCallback = Nothing - -type WebViewMouseTargetChangedCallbackC = - Ptr () -> -- object - Ptr HitTestResult -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewMouseTargetChangedCallback :: WebViewMouseTargetChangedCallbackC -> IO (FunPtr WebViewMouseTargetChangedCallbackC) - -webViewMouseTargetChangedClosure :: WebViewMouseTargetChangedCallback -> IO Closure -webViewMouseTargetChangedClosure cb = newCClosure =<< mkWebViewMouseTargetChangedCallback wrapped - where wrapped = webViewMouseTargetChangedCallbackWrapper cb - -webViewMouseTargetChangedCallbackWrapper :: - WebViewMouseTargetChangedCallback -> - Ptr () -> - Ptr HitTestResult -> - Word32 -> - Ptr () -> - IO () -webViewMouseTargetChangedCallbackWrapper _cb _ hitTestResult modifiers _ = do - hitTestResult' <- (newObject HitTestResult) hitTestResult - _cb hitTestResult' modifiers - -onWebViewMouseTargetChanged :: (GObject a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId -onWebViewMouseTargetChanged obj cb = liftIO $ connectWebViewMouseTargetChanged obj cb SignalConnectBefore -afterWebViewMouseTargetChanged :: (GObject a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId -afterWebViewMouseTargetChanged obj cb = connectWebViewMouseTargetChanged obj cb SignalConnectAfter - -connectWebViewMouseTargetChanged :: (GObject a, MonadIO m) => - a -> WebViewMouseTargetChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewMouseTargetChanged obj cb after = liftIO $ do - cb' <- mkWebViewMouseTargetChangedCallback (webViewMouseTargetChangedCallbackWrapper cb) - connectSignalFunPtr obj "mouse-target-changed" cb' after - --- signal WebView::permission-request -type WebViewPermissionRequestCallback = - PermissionRequest -> - IO Bool - -noWebViewPermissionRequestCallback :: Maybe WebViewPermissionRequestCallback -noWebViewPermissionRequestCallback = Nothing - -type WebViewPermissionRequestCallbackC = - Ptr () -> -- object - Ptr PermissionRequest -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewPermissionRequestCallback :: WebViewPermissionRequestCallbackC -> IO (FunPtr WebViewPermissionRequestCallbackC) - -webViewPermissionRequestClosure :: WebViewPermissionRequestCallback -> IO Closure -webViewPermissionRequestClosure cb = newCClosure =<< mkWebViewPermissionRequestCallback wrapped - where wrapped = webViewPermissionRequestCallbackWrapper cb - -webViewPermissionRequestCallbackWrapper :: - WebViewPermissionRequestCallback -> - Ptr () -> - Ptr PermissionRequest -> - Ptr () -> - IO CInt -webViewPermissionRequestCallbackWrapper _cb _ request _ = do - request' <- (newObject PermissionRequest) request - result <- _cb request' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewPermissionRequest :: (GObject a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId -onWebViewPermissionRequest obj cb = liftIO $ connectWebViewPermissionRequest obj cb SignalConnectBefore -afterWebViewPermissionRequest :: (GObject a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId -afterWebViewPermissionRequest obj cb = connectWebViewPermissionRequest obj cb SignalConnectAfter - -connectWebViewPermissionRequest :: (GObject a, MonadIO m) => - a -> WebViewPermissionRequestCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewPermissionRequest obj cb after = liftIO $ do - cb' <- mkWebViewPermissionRequestCallback (webViewPermissionRequestCallbackWrapper cb) - connectSignalFunPtr obj "permission-request" cb' after - --- signal WebView::print -type WebViewPrintCallback = - PrintOperation -> - IO Bool - -noWebViewPrintCallback :: Maybe WebViewPrintCallback -noWebViewPrintCallback = Nothing - -type WebViewPrintCallbackC = - Ptr () -> -- object - Ptr PrintOperation -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewPrintCallback :: WebViewPrintCallbackC -> IO (FunPtr WebViewPrintCallbackC) - -webViewPrintClosure :: WebViewPrintCallback -> IO Closure -webViewPrintClosure cb = newCClosure =<< mkWebViewPrintCallback wrapped - where wrapped = webViewPrintCallbackWrapper cb - -webViewPrintCallbackWrapper :: - WebViewPrintCallback -> - Ptr () -> - Ptr PrintOperation -> - Ptr () -> - IO CInt -webViewPrintCallbackWrapper _cb _ printOperation _ = do - printOperation' <- (newObject PrintOperation) printOperation - result <- _cb printOperation' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewPrint :: (GObject a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId -onWebViewPrint obj cb = liftIO $ connectWebViewPrint obj cb SignalConnectBefore -afterWebViewPrint :: (GObject a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId -afterWebViewPrint obj cb = connectWebViewPrint obj cb SignalConnectAfter - -connectWebViewPrint :: (GObject a, MonadIO m) => - a -> WebViewPrintCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewPrint obj cb after = liftIO $ do - cb' <- mkWebViewPrintCallback (webViewPrintCallbackWrapper cb) - connectSignalFunPtr obj "print" cb' after - --- signal WebView::ready-to-show -type WebViewReadyToShowCallback = - IO () - -noWebViewReadyToShowCallback :: Maybe WebViewReadyToShowCallback -noWebViewReadyToShowCallback = Nothing - -type WebViewReadyToShowCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewReadyToShowCallback :: WebViewReadyToShowCallbackC -> IO (FunPtr WebViewReadyToShowCallbackC) - -webViewReadyToShowClosure :: WebViewReadyToShowCallback -> IO Closure -webViewReadyToShowClosure cb = newCClosure =<< mkWebViewReadyToShowCallback wrapped - where wrapped = webViewReadyToShowCallbackWrapper cb - -webViewReadyToShowCallbackWrapper :: - WebViewReadyToShowCallback -> - Ptr () -> - Ptr () -> - IO () -webViewReadyToShowCallbackWrapper _cb _ _ = do - _cb - -onWebViewReadyToShow :: (GObject a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId -onWebViewReadyToShow obj cb = liftIO $ connectWebViewReadyToShow obj cb SignalConnectBefore -afterWebViewReadyToShow :: (GObject a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId -afterWebViewReadyToShow obj cb = connectWebViewReadyToShow obj cb SignalConnectAfter - -connectWebViewReadyToShow :: (GObject a, MonadIO m) => - a -> WebViewReadyToShowCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewReadyToShow obj cb after = liftIO $ do - cb' <- mkWebViewReadyToShowCallback (webViewReadyToShowCallbackWrapper cb) - connectSignalFunPtr obj "ready-to-show" cb' after - --- signal WebView::resource-load-started -type WebViewResourceLoadStartedCallback = - WebResource -> - URIRequest -> - IO () - -noWebViewResourceLoadStartedCallback :: Maybe WebViewResourceLoadStartedCallback -noWebViewResourceLoadStartedCallback = Nothing - -type WebViewResourceLoadStartedCallbackC = - Ptr () -> -- object - Ptr WebResource -> - Ptr URIRequest -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewResourceLoadStartedCallback :: WebViewResourceLoadStartedCallbackC -> IO (FunPtr WebViewResourceLoadStartedCallbackC) - -webViewResourceLoadStartedClosure :: WebViewResourceLoadStartedCallback -> IO Closure -webViewResourceLoadStartedClosure cb = newCClosure =<< mkWebViewResourceLoadStartedCallback wrapped - where wrapped = webViewResourceLoadStartedCallbackWrapper cb - -webViewResourceLoadStartedCallbackWrapper :: - WebViewResourceLoadStartedCallback -> - Ptr () -> - Ptr WebResource -> - Ptr URIRequest -> - Ptr () -> - IO () -webViewResourceLoadStartedCallbackWrapper _cb _ resource request _ = do - resource' <- (newObject WebResource) resource - request' <- (newObject URIRequest) request - _cb resource' request' - -onWebViewResourceLoadStarted :: (GObject a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId -onWebViewResourceLoadStarted obj cb = liftIO $ connectWebViewResourceLoadStarted obj cb SignalConnectBefore -afterWebViewResourceLoadStarted :: (GObject a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId -afterWebViewResourceLoadStarted obj cb = connectWebViewResourceLoadStarted obj cb SignalConnectAfter - -connectWebViewResourceLoadStarted :: (GObject a, MonadIO m) => - a -> WebViewResourceLoadStartedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewResourceLoadStarted obj cb after = liftIO $ do - cb' <- mkWebViewResourceLoadStartedCallback (webViewResourceLoadStartedCallbackWrapper cb) - connectSignalFunPtr obj "resource-load-started" cb' after - --- signal WebView::run-as-modal -type WebViewRunAsModalCallback = - IO () - -noWebViewRunAsModalCallback :: Maybe WebViewRunAsModalCallback -noWebViewRunAsModalCallback = Nothing - -type WebViewRunAsModalCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewRunAsModalCallback :: WebViewRunAsModalCallbackC -> IO (FunPtr WebViewRunAsModalCallbackC) - -webViewRunAsModalClosure :: WebViewRunAsModalCallback -> IO Closure -webViewRunAsModalClosure cb = newCClosure =<< mkWebViewRunAsModalCallback wrapped - where wrapped = webViewRunAsModalCallbackWrapper cb - -webViewRunAsModalCallbackWrapper :: - WebViewRunAsModalCallback -> - Ptr () -> - Ptr () -> - IO () -webViewRunAsModalCallbackWrapper _cb _ _ = do - _cb - -onWebViewRunAsModal :: (GObject a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId -onWebViewRunAsModal obj cb = liftIO $ connectWebViewRunAsModal obj cb SignalConnectBefore -afterWebViewRunAsModal :: (GObject a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId -afterWebViewRunAsModal obj cb = connectWebViewRunAsModal obj cb SignalConnectAfter - -connectWebViewRunAsModal :: (GObject a, MonadIO m) => - a -> WebViewRunAsModalCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewRunAsModal obj cb after = liftIO $ do - cb' <- mkWebViewRunAsModalCallback (webViewRunAsModalCallbackWrapper cb) - connectSignalFunPtr obj "run-as-modal" cb' after - --- signal WebView::run-color-chooser -type WebViewRunColorChooserCallback = - ColorChooserRequest -> - IO Bool - -noWebViewRunColorChooserCallback :: Maybe WebViewRunColorChooserCallback -noWebViewRunColorChooserCallback = Nothing - -type WebViewRunColorChooserCallbackC = - Ptr () -> -- object - Ptr ColorChooserRequest -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewRunColorChooserCallback :: WebViewRunColorChooserCallbackC -> IO (FunPtr WebViewRunColorChooserCallbackC) - -webViewRunColorChooserClosure :: WebViewRunColorChooserCallback -> IO Closure -webViewRunColorChooserClosure cb = newCClosure =<< mkWebViewRunColorChooserCallback wrapped - where wrapped = webViewRunColorChooserCallbackWrapper cb - -webViewRunColorChooserCallbackWrapper :: - WebViewRunColorChooserCallback -> - Ptr () -> - Ptr ColorChooserRequest -> - Ptr () -> - IO CInt -webViewRunColorChooserCallbackWrapper _cb _ request _ = do - request' <- (newObject ColorChooserRequest) request - result <- _cb request' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewRunColorChooser :: (GObject a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId -onWebViewRunColorChooser obj cb = liftIO $ connectWebViewRunColorChooser obj cb SignalConnectBefore -afterWebViewRunColorChooser :: (GObject a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId -afterWebViewRunColorChooser obj cb = connectWebViewRunColorChooser obj cb SignalConnectAfter - -connectWebViewRunColorChooser :: (GObject a, MonadIO m) => - a -> WebViewRunColorChooserCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewRunColorChooser obj cb after = liftIO $ do - cb' <- mkWebViewRunColorChooserCallback (webViewRunColorChooserCallbackWrapper cb) - connectSignalFunPtr obj "run-color-chooser" cb' after - --- signal WebView::run-file-chooser -type WebViewRunFileChooserCallback = - FileChooserRequest -> - IO Bool - -noWebViewRunFileChooserCallback :: Maybe WebViewRunFileChooserCallback -noWebViewRunFileChooserCallback = Nothing - -type WebViewRunFileChooserCallbackC = - Ptr () -> -- object - Ptr FileChooserRequest -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewRunFileChooserCallback :: WebViewRunFileChooserCallbackC -> IO (FunPtr WebViewRunFileChooserCallbackC) - -webViewRunFileChooserClosure :: WebViewRunFileChooserCallback -> IO Closure -webViewRunFileChooserClosure cb = newCClosure =<< mkWebViewRunFileChooserCallback wrapped - where wrapped = webViewRunFileChooserCallbackWrapper cb - -webViewRunFileChooserCallbackWrapper :: - WebViewRunFileChooserCallback -> - Ptr () -> - Ptr FileChooserRequest -> - Ptr () -> - IO CInt -webViewRunFileChooserCallbackWrapper _cb _ request _ = do - request' <- (newObject FileChooserRequest) request - result <- _cb request' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId -onWebViewRunFileChooser obj cb = liftIO $ connectWebViewRunFileChooser obj cb SignalConnectBefore -afterWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId -afterWebViewRunFileChooser obj cb = connectWebViewRunFileChooser obj cb SignalConnectAfter - -connectWebViewRunFileChooser :: (GObject a, MonadIO m) => - a -> WebViewRunFileChooserCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewRunFileChooser obj cb after = liftIO $ do - cb' <- mkWebViewRunFileChooserCallback (webViewRunFileChooserCallbackWrapper cb) - connectSignalFunPtr obj "run-file-chooser" cb' after - --- signal WebView::script-dialog -type WebViewScriptDialogCallback = - ScriptDialog -> - IO Bool - -noWebViewScriptDialogCallback :: Maybe WebViewScriptDialogCallback -noWebViewScriptDialogCallback = Nothing - -type WebViewScriptDialogCallbackC = - Ptr () -> -- object - Ptr ScriptDialog -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewScriptDialogCallback :: WebViewScriptDialogCallbackC -> IO (FunPtr WebViewScriptDialogCallbackC) - -webViewScriptDialogClosure :: WebViewScriptDialogCallback -> IO Closure -webViewScriptDialogClosure cb = newCClosure =<< mkWebViewScriptDialogCallback wrapped - where wrapped = webViewScriptDialogCallbackWrapper cb - -webViewScriptDialogCallbackWrapper :: - WebViewScriptDialogCallback -> - Ptr () -> - Ptr ScriptDialog -> - Ptr () -> - IO CInt -webViewScriptDialogCallbackWrapper _cb _ dialog _ = do - dialog' <- (newBoxed ScriptDialog) dialog - result <- _cb dialog' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewScriptDialog :: (GObject a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId -onWebViewScriptDialog obj cb = liftIO $ connectWebViewScriptDialog obj cb SignalConnectBefore -afterWebViewScriptDialog :: (GObject a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId -afterWebViewScriptDialog obj cb = connectWebViewScriptDialog obj cb SignalConnectAfter - -connectWebViewScriptDialog :: (GObject a, MonadIO m) => - a -> WebViewScriptDialogCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewScriptDialog obj cb after = liftIO $ do - cb' <- mkWebViewScriptDialogCallback (webViewScriptDialogCallbackWrapper cb) - connectSignalFunPtr obj "script-dialog" cb' after - --- signal WebView::show-notification -type WebViewShowNotificationCallback = - Notification -> - IO Bool - -noWebViewShowNotificationCallback :: Maybe WebViewShowNotificationCallback -noWebViewShowNotificationCallback = Nothing - -type WebViewShowNotificationCallbackC = - Ptr () -> -- object - Ptr Notification -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewShowNotificationCallback :: WebViewShowNotificationCallbackC -> IO (FunPtr WebViewShowNotificationCallbackC) - -webViewShowNotificationClosure :: WebViewShowNotificationCallback -> IO Closure -webViewShowNotificationClosure cb = newCClosure =<< mkWebViewShowNotificationCallback wrapped - where wrapped = webViewShowNotificationCallbackWrapper cb - -webViewShowNotificationCallbackWrapper :: - WebViewShowNotificationCallback -> - Ptr () -> - Ptr Notification -> - Ptr () -> - IO CInt -webViewShowNotificationCallbackWrapper _cb _ notification _ = do - notification' <- (newObject Notification) notification - result <- _cb notification' - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewShowNotification :: (GObject a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId -onWebViewShowNotification obj cb = liftIO $ connectWebViewShowNotification obj cb SignalConnectBefore -afterWebViewShowNotification :: (GObject a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId -afterWebViewShowNotification obj cb = connectWebViewShowNotification obj cb SignalConnectAfter - -connectWebViewShowNotification :: (GObject a, MonadIO m) => - a -> WebViewShowNotificationCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewShowNotification obj cb after = liftIO $ do - cb' <- mkWebViewShowNotificationCallback (webViewShowNotificationCallbackWrapper cb) - connectSignalFunPtr obj "show-notification" cb' after - --- signal WebView::submit-form -type WebViewSubmitFormCallback = - FormSubmissionRequest -> - IO () - -noWebViewSubmitFormCallback :: Maybe WebViewSubmitFormCallback -noWebViewSubmitFormCallback = Nothing - -type WebViewSubmitFormCallbackC = - Ptr () -> -- object - Ptr FormSubmissionRequest -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebViewSubmitFormCallback :: WebViewSubmitFormCallbackC -> IO (FunPtr WebViewSubmitFormCallbackC) - -webViewSubmitFormClosure :: WebViewSubmitFormCallback -> IO Closure -webViewSubmitFormClosure cb = newCClosure =<< mkWebViewSubmitFormCallback wrapped - where wrapped = webViewSubmitFormCallbackWrapper cb - -webViewSubmitFormCallbackWrapper :: - WebViewSubmitFormCallback -> - Ptr () -> - Ptr FormSubmissionRequest -> - Ptr () -> - IO () -webViewSubmitFormCallbackWrapper _cb _ request _ = do - request' <- (newObject FormSubmissionRequest) request - _cb request' - -onWebViewSubmitForm :: (GObject a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId -onWebViewSubmitForm obj cb = liftIO $ connectWebViewSubmitForm obj cb SignalConnectBefore -afterWebViewSubmitForm :: (GObject a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId -afterWebViewSubmitForm obj cb = connectWebViewSubmitForm obj cb SignalConnectAfter - -connectWebViewSubmitForm :: (GObject a, MonadIO m) => - a -> WebViewSubmitFormCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewSubmitForm obj cb after = liftIO $ do - cb' <- mkWebViewSubmitFormCallback (webViewSubmitFormCallbackWrapper cb) - connectSignalFunPtr obj "submit-form" cb' after - --- signal WebView::web-process-crashed -type WebViewWebProcessCrashedCallback = - IO Bool - -noWebViewWebProcessCrashedCallback :: Maybe WebViewWebProcessCrashedCallback -noWebViewWebProcessCrashedCallback = Nothing - -type WebViewWebProcessCrashedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWebViewWebProcessCrashedCallback :: WebViewWebProcessCrashedCallbackC -> IO (FunPtr WebViewWebProcessCrashedCallbackC) - -webViewWebProcessCrashedClosure :: WebViewWebProcessCrashedCallback -> IO Closure -webViewWebProcessCrashedClosure cb = newCClosure =<< mkWebViewWebProcessCrashedCallback wrapped - where wrapped = webViewWebProcessCrashedCallbackWrapper cb - -webViewWebProcessCrashedCallbackWrapper :: - WebViewWebProcessCrashedCallback -> - Ptr () -> - Ptr () -> - IO CInt -webViewWebProcessCrashedCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWebViewWebProcessCrashed :: (GObject a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId -onWebViewWebProcessCrashed obj cb = liftIO $ connectWebViewWebProcessCrashed obj cb SignalConnectBefore -afterWebViewWebProcessCrashed :: (GObject a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId -afterWebViewWebProcessCrashed obj cb = connectWebViewWebProcessCrashed obj cb SignalConnectAfter - -connectWebViewWebProcessCrashed :: (GObject a, MonadIO m) => - a -> WebViewWebProcessCrashedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebViewWebProcessCrashed obj cb after = liftIO $ do - cb' <- mkWebViewWebProcessCrashedCallback (webViewWebProcessCrashedCallbackWrapper cb) - connectSignalFunPtr obj "web-process-crashed" cb' after - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getWebViewEditable :: (MonadIO m, WebViewK o) => o -> m Bool -getWebViewEditable obj = liftIO $ getObjectPropertyBool obj "editable" - -setWebViewEditable :: (MonadIO m, WebViewK o) => o -> Bool -> m () -setWebViewEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val - -constructWebViewEditable :: Bool -> IO ([Char], GValue) -constructWebViewEditable val = constructObjectPropertyBool "editable" val - -data WebViewEditablePropertyInfo -instance AttrInfo WebViewEditablePropertyInfo where - type AttrAllowedOps WebViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewEditablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WebViewEditablePropertyInfo = WebViewK - type AttrGetType WebViewEditablePropertyInfo = Bool - type AttrLabel WebViewEditablePropertyInfo = "editable" - attrGet _ = getWebViewEditable - attrSet _ = setWebViewEditable - attrConstruct _ = constructWebViewEditable - attrClear _ = undefined - --- VVV Prop "estimated-load-progress" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getWebViewEstimatedLoadProgress :: (MonadIO m, WebViewK o) => o -> m Double -getWebViewEstimatedLoadProgress obj = liftIO $ getObjectPropertyDouble obj "estimated-load-progress" - -data WebViewEstimatedLoadProgressPropertyInfo -instance AttrInfo WebViewEstimatedLoadProgressPropertyInfo where - type AttrAllowedOps WebViewEstimatedLoadProgressPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = WebViewK - type AttrGetType WebViewEstimatedLoadProgressPropertyInfo = Double - type AttrLabel WebViewEstimatedLoadProgressPropertyInfo = "estimated-load-progress" - attrGet _ = getWebViewEstimatedLoadProgress - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "favicon" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getWebViewFavicon :: (MonadIO m, WebViewK o) => o -> m (Ptr ()) -getWebViewFavicon obj = liftIO $ getObjectPropertyPtr obj "favicon" - -data WebViewFaviconPropertyInfo -instance AttrInfo WebViewFaviconPropertyInfo where - type AttrAllowedOps WebViewFaviconPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewFaviconPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewFaviconPropertyInfo = WebViewK - type AttrGetType WebViewFaviconPropertyInfo = (Ptr ()) - type AttrLabel WebViewFaviconPropertyInfo = "favicon" - attrGet _ = getWebViewFavicon - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-loading" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getWebViewIsLoading :: (MonadIO m, WebViewK o) => o -> m Bool -getWebViewIsLoading obj = liftIO $ getObjectPropertyBool obj "is-loading" - -data WebViewIsLoadingPropertyInfo -instance AttrInfo WebViewIsLoadingPropertyInfo where - type AttrAllowedOps WebViewIsLoadingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewIsLoadingPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewIsLoadingPropertyInfo = WebViewK - type AttrGetType WebViewIsLoadingPropertyInfo = Bool - type AttrLabel WebViewIsLoadingPropertyInfo = "is-loading" - attrGet _ = getWebViewIsLoading - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-playing-audio" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getWebViewIsPlayingAudio :: (MonadIO m, WebViewK o) => o -> m Bool -getWebViewIsPlayingAudio obj = liftIO $ getObjectPropertyBool obj "is-playing-audio" - -data WebViewIsPlayingAudioPropertyInfo -instance AttrInfo WebViewIsPlayingAudioPropertyInfo where - type AttrAllowedOps WebViewIsPlayingAudioPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebViewIsPlayingAudioPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewIsPlayingAudioPropertyInfo = WebViewK - type AttrGetType WebViewIsPlayingAudioPropertyInfo = Bool - type AttrLabel WebViewIsPlayingAudioPropertyInfo = "is-playing-audio" - attrGet _ = getWebViewIsPlayingAudio - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "related-view" - -- Type: TInterface "WebKit2" "WebView" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructWebViewRelatedView :: (WebViewK a) => a -> IO ([Char], GValue) -constructWebViewRelatedView val = constructObjectPropertyObject "related-view" (Just val) - -data WebViewRelatedViewPropertyInfo -instance AttrInfo WebViewRelatedViewPropertyInfo where - type AttrAllowedOps WebViewRelatedViewPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint WebViewRelatedViewPropertyInfo = WebViewK - type AttrBaseTypeConstraint WebViewRelatedViewPropertyInfo = WebViewK - type AttrGetType WebViewRelatedViewPropertyInfo = () - type AttrLabel WebViewRelatedViewPropertyInfo = "related-view" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructWebViewRelatedView - attrClear _ = undefined - --- VVV Prop "settings" - -- Type: TInterface "WebKit2" "Settings" - -- Flags: [PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -setWebViewSettings :: (MonadIO m, WebViewK o, SettingsK a) => o -> a -> m () -setWebViewSettings obj val = liftIO $ setObjectPropertyObject obj "settings" (Just val) - -constructWebViewSettings :: (SettingsK a) => a -> IO ([Char], GValue) -constructWebViewSettings val = constructObjectPropertyObject "settings" (Just val) - -data WebViewSettingsPropertyInfo -instance AttrInfo WebViewSettingsPropertyInfo where - type AttrAllowedOps WebViewSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint WebViewSettingsPropertyInfo = SettingsK - type AttrBaseTypeConstraint WebViewSettingsPropertyInfo = WebViewK - type AttrGetType WebViewSettingsPropertyInfo = () - type AttrLabel WebViewSettingsPropertyInfo = "settings" - attrGet _ = undefined - attrSet _ = setWebViewSettings - attrConstruct _ = constructWebViewSettings - attrClear _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getWebViewTitle :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewTitle obj = liftIO $ checkUnexpectedNothing "getWebViewTitle" $ getObjectPropertyString obj "title" - -data WebViewTitlePropertyInfo -instance AttrInfo WebViewTitlePropertyInfo where - type AttrAllowedOps WebViewTitlePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebViewTitlePropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewTitlePropertyInfo = WebViewK - type AttrGetType WebViewTitlePropertyInfo = T.Text - type AttrLabel WebViewTitlePropertyInfo = "title" - attrGet _ = getWebViewTitle - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just True,Nothing) - -getWebViewUri :: (MonadIO m, WebViewK o) => o -> m (Maybe T.Text) -getWebViewUri obj = liftIO $ getObjectPropertyString obj "uri" - -data WebViewUriPropertyInfo -instance AttrInfo WebViewUriPropertyInfo where - type AttrAllowedOps WebViewUriPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebViewUriPropertyInfo = (~) () - type AttrBaseTypeConstraint WebViewUriPropertyInfo = WebViewK - type AttrGetType WebViewUriPropertyInfo = (Maybe T.Text) - type AttrLabel WebViewUriPropertyInfo = "uri" - attrGet _ = getWebViewUri - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "user-content-manager" - -- Type: TInterface "WebKit2" "UserContentManager" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebViewUserContentManager :: (MonadIO m, WebViewK o) => o -> m UserContentManager -getWebViewUserContentManager obj = liftIO $ checkUnexpectedNothing "getWebViewUserContentManager" $ getObjectPropertyObject obj "user-content-manager" UserContentManager - -constructWebViewUserContentManager :: (UserContentManagerK a) => a -> IO ([Char], GValue) -constructWebViewUserContentManager val = constructObjectPropertyObject "user-content-manager" (Just val) - -data WebViewUserContentManagerPropertyInfo -instance AttrInfo WebViewUserContentManagerPropertyInfo where - type AttrAllowedOps WebViewUserContentManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebViewUserContentManagerPropertyInfo = UserContentManagerK - type AttrBaseTypeConstraint WebViewUserContentManagerPropertyInfo = WebViewK - type AttrGetType WebViewUserContentManagerPropertyInfo = UserContentManager - type AttrLabel WebViewUserContentManagerPropertyInfo = "user-content-manager" - attrGet _ = getWebViewUserContentManager - attrSet _ = undefined - attrConstruct _ = constructWebViewUserContentManager - attrClear _ = undefined - --- VVV Prop "web-context" - -- Type: TInterface "WebKit2" "WebContext" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getWebViewWebContext :: (MonadIO m, WebViewK o) => o -> m (Maybe WebContext) -getWebViewWebContext obj = liftIO $ getObjectPropertyObject obj "web-context" WebContext - -constructWebViewWebContext :: (WebContextK a) => a -> IO ([Char], GValue) -constructWebViewWebContext val = constructObjectPropertyObject "web-context" (Just val) - -data WebViewWebContextPropertyInfo -instance AttrInfo WebViewWebContextPropertyInfo where - type AttrAllowedOps WebViewWebContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebViewWebContextPropertyInfo = WebContextK - type AttrBaseTypeConstraint WebViewWebContextPropertyInfo = WebViewK - type AttrGetType WebViewWebContextPropertyInfo = (Maybe WebContext) - type AttrLabel WebViewWebContextPropertyInfo = "web-context" - attrGet _ = getWebViewWebContext - attrSet _ = undefined - attrConstruct _ = constructWebViewWebContext - attrClear _ = undefined - --- VVV Prop "zoom-level" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> m Double -getWebViewZoomLevel obj = liftIO $ getObjectPropertyDouble obj "zoom-level" - -setWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> Double -> m () -setWebViewZoomLevel obj val = liftIO $ setObjectPropertyDouble obj "zoom-level" val - -constructWebViewZoomLevel :: Double -> IO ([Char], GValue) -constructWebViewZoomLevel val = constructObjectPropertyDouble "zoom-level" val - -data WebViewZoomLevelPropertyInfo -instance AttrInfo WebViewZoomLevelPropertyInfo where - type AttrAllowedOps WebViewZoomLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebViewZoomLevelPropertyInfo = (~) Double - type AttrBaseTypeConstraint WebViewZoomLevelPropertyInfo = WebViewK - type AttrGetType WebViewZoomLevelPropertyInfo = Double - type AttrLabel WebViewZoomLevelPropertyInfo = "zoom-level" - attrGet _ = getWebViewZoomLevel - attrSet _ = setWebViewZoomLevel - attrConstruct _ = constructWebViewZoomLevel - attrClear _ = undefined - -type instance AttributeList WebView = WebViewAttributeList -type WebViewAttributeList = ('[ '("appPaintable", Gtk.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.WidgetCanFocusPropertyInfo), '("child", Gtk.ContainerChildPropertyInfo), '("compositeChild", Gtk.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.WidgetDoubleBufferedPropertyInfo), '("editable", WebViewEditablePropertyInfo), '("estimatedLoadProgress", WebViewEstimatedLoadProgressPropertyInfo), '("events", Gtk.WidgetEventsPropertyInfo), '("expand", Gtk.WidgetExpandPropertyInfo), '("favicon", WebViewFaviconPropertyInfo), '("halign", Gtk.WidgetHalignPropertyInfo), '("hasDefault", Gtk.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.WidgetIsFocusPropertyInfo), '("isLoading", WebViewIsLoadingPropertyInfo), '("isPlayingAudio", WebViewIsPlayingAudioPropertyInfo), '("margin", Gtk.WidgetMarginPropertyInfo), '("marginBottom", Gtk.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.WidgetMarginTopPropertyInfo), '("name", Gtk.WidgetNamePropertyInfo), '("noShowAll", Gtk.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.WidgetOpacityPropertyInfo), '("parent", Gtk.WidgetParentPropertyInfo), '("receivesDefault", Gtk.WidgetReceivesDefaultPropertyInfo), '("relatedView", WebViewRelatedViewPropertyInfo), '("resizeMode", Gtk.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.WidgetSensitivePropertyInfo), '("settings", WebViewSettingsPropertyInfo), '("style", Gtk.WidgetStylePropertyInfo), '("title", WebViewTitlePropertyInfo), '("tooltipMarkup", Gtk.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.WidgetTooltipTextPropertyInfo), '("uri", WebViewUriPropertyInfo), '("userContentManager", WebViewUserContentManagerPropertyInfo), '("valign", Gtk.WidgetValignPropertyInfo), '("vexpand", Gtk.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.WidgetVexpandSetPropertyInfo), '("visible", Gtk.WidgetVisiblePropertyInfo), '("webContext", WebViewWebContextPropertyInfo), '("widthRequest", Gtk.WidgetWidthRequestPropertyInfo), '("window", Gtk.WidgetWindowPropertyInfo), '("zoomLevel", WebViewZoomLevelPropertyInfo)] :: [(Symbol, *)]) - -webViewEditable :: AttrLabelProxy "editable" -webViewEditable = AttrLabelProxy - -webViewEstimatedLoadProgress :: AttrLabelProxy "estimatedLoadProgress" -webViewEstimatedLoadProgress = AttrLabelProxy - -webViewFavicon :: AttrLabelProxy "favicon" -webViewFavicon = AttrLabelProxy - -webViewRelatedView :: AttrLabelProxy "relatedView" -webViewRelatedView = AttrLabelProxy - -webViewSettings :: AttrLabelProxy "settings" -webViewSettings = AttrLabelProxy - -webViewTitle :: AttrLabelProxy "title" -webViewTitle = AttrLabelProxy - -webViewUri :: AttrLabelProxy "uri" -webViewUri = AttrLabelProxy - -webViewUserContentManager :: AttrLabelProxy "userContentManager" -webViewUserContentManager = AttrLabelProxy - -webViewWebContext :: AttrLabelProxy "webContext" -webViewWebContext = AttrLabelProxy - -webViewZoomLevel :: AttrLabelProxy "zoomLevel" -webViewZoomLevel = AttrLabelProxy - -data WebViewAuthenticateSignalInfo -instance SignalInfo WebViewAuthenticateSignalInfo where - type HaskellCallbackType WebViewAuthenticateSignalInfo = WebViewAuthenticateCallback - connectSignal _ = connectWebViewAuthenticate - -data WebViewCloseSignalInfo -instance SignalInfo WebViewCloseSignalInfo where - type HaskellCallbackType WebViewCloseSignalInfo = WebViewCloseCallback - connectSignal _ = connectWebViewClose - -data WebViewContextMenuSignalInfo -instance SignalInfo WebViewContextMenuSignalInfo where - type HaskellCallbackType WebViewContextMenuSignalInfo = WebViewContextMenuCallback - connectSignal _ = connectWebViewContextMenu - -data WebViewContextMenuDismissedSignalInfo -instance SignalInfo WebViewContextMenuDismissedSignalInfo where - type HaskellCallbackType WebViewContextMenuDismissedSignalInfo = WebViewContextMenuDismissedCallback - connectSignal _ = connectWebViewContextMenuDismissed - -data WebViewCreateSignalInfo -instance SignalInfo WebViewCreateSignalInfo where - type HaskellCallbackType WebViewCreateSignalInfo = WebViewCreateCallback - connectSignal _ = connectWebViewCreate - -data WebViewDecidePolicySignalInfo -instance SignalInfo WebViewDecidePolicySignalInfo where - type HaskellCallbackType WebViewDecidePolicySignalInfo = WebViewDecidePolicyCallback - connectSignal _ = connectWebViewDecidePolicy - -data WebViewEnterFullscreenSignalInfo -instance SignalInfo WebViewEnterFullscreenSignalInfo where - type HaskellCallbackType WebViewEnterFullscreenSignalInfo = WebViewEnterFullscreenCallback - connectSignal _ = connectWebViewEnterFullscreen - -data WebViewInsecureContentDetectedSignalInfo -instance SignalInfo WebViewInsecureContentDetectedSignalInfo where - type HaskellCallbackType WebViewInsecureContentDetectedSignalInfo = WebViewInsecureContentDetectedCallback - connectSignal _ = connectWebViewInsecureContentDetected - -data WebViewLeaveFullscreenSignalInfo -instance SignalInfo WebViewLeaveFullscreenSignalInfo where - type HaskellCallbackType WebViewLeaveFullscreenSignalInfo = WebViewLeaveFullscreenCallback - connectSignal _ = connectWebViewLeaveFullscreen - -data WebViewLoadChangedSignalInfo -instance SignalInfo WebViewLoadChangedSignalInfo where - type HaskellCallbackType WebViewLoadChangedSignalInfo = WebViewLoadChangedCallback - connectSignal _ = connectWebViewLoadChanged - -data WebViewLoadFailedSignalInfo -instance SignalInfo WebViewLoadFailedSignalInfo where - type HaskellCallbackType WebViewLoadFailedSignalInfo = WebViewLoadFailedCallback - connectSignal _ = connectWebViewLoadFailed - -data WebViewLoadFailedWithTlsErrorsSignalInfo -instance SignalInfo WebViewLoadFailedWithTlsErrorsSignalInfo where - type HaskellCallbackType WebViewLoadFailedWithTlsErrorsSignalInfo = WebViewLoadFailedWithTlsErrorsCallback - connectSignal _ = connectWebViewLoadFailedWithTlsErrors - -data WebViewMouseTargetChangedSignalInfo -instance SignalInfo WebViewMouseTargetChangedSignalInfo where - type HaskellCallbackType WebViewMouseTargetChangedSignalInfo = WebViewMouseTargetChangedCallback - connectSignal _ = connectWebViewMouseTargetChanged - -data WebViewPermissionRequestSignalInfo -instance SignalInfo WebViewPermissionRequestSignalInfo where - type HaskellCallbackType WebViewPermissionRequestSignalInfo = WebViewPermissionRequestCallback - connectSignal _ = connectWebViewPermissionRequest - -data WebViewPrintSignalInfo -instance SignalInfo WebViewPrintSignalInfo where - type HaskellCallbackType WebViewPrintSignalInfo = WebViewPrintCallback - connectSignal _ = connectWebViewPrint - -data WebViewReadyToShowSignalInfo -instance SignalInfo WebViewReadyToShowSignalInfo where - type HaskellCallbackType WebViewReadyToShowSignalInfo = WebViewReadyToShowCallback - connectSignal _ = connectWebViewReadyToShow - -data WebViewResourceLoadStartedSignalInfo -instance SignalInfo WebViewResourceLoadStartedSignalInfo where - type HaskellCallbackType WebViewResourceLoadStartedSignalInfo = WebViewResourceLoadStartedCallback - connectSignal _ = connectWebViewResourceLoadStarted - -data WebViewRunAsModalSignalInfo -instance SignalInfo WebViewRunAsModalSignalInfo where - type HaskellCallbackType WebViewRunAsModalSignalInfo = WebViewRunAsModalCallback - connectSignal _ = connectWebViewRunAsModal - -data WebViewRunColorChooserSignalInfo -instance SignalInfo WebViewRunColorChooserSignalInfo where - type HaskellCallbackType WebViewRunColorChooserSignalInfo = WebViewRunColorChooserCallback - connectSignal _ = connectWebViewRunColorChooser - -data WebViewRunFileChooserSignalInfo -instance SignalInfo WebViewRunFileChooserSignalInfo where - type HaskellCallbackType WebViewRunFileChooserSignalInfo = WebViewRunFileChooserCallback - connectSignal _ = connectWebViewRunFileChooser - -data WebViewScriptDialogSignalInfo -instance SignalInfo WebViewScriptDialogSignalInfo where - type HaskellCallbackType WebViewScriptDialogSignalInfo = WebViewScriptDialogCallback - connectSignal _ = connectWebViewScriptDialog - -data WebViewShowNotificationSignalInfo -instance SignalInfo WebViewShowNotificationSignalInfo where - type HaskellCallbackType WebViewShowNotificationSignalInfo = WebViewShowNotificationCallback - connectSignal _ = connectWebViewShowNotification - -data WebViewSubmitFormSignalInfo -instance SignalInfo WebViewSubmitFormSignalInfo where - type HaskellCallbackType WebViewSubmitFormSignalInfo = WebViewSubmitFormCallback - connectSignal _ = connectWebViewSubmitForm - -data WebViewWebProcessCrashedSignalInfo -instance SignalInfo WebViewWebProcessCrashedSignalInfo where - type HaskellCallbackType WebViewWebProcessCrashedSignalInfo = WebViewWebProcessCrashedCallback - connectSignal _ = connectWebViewWebProcessCrashed - -type instance SignalList WebView = WebViewSignalList -type WebViewSignalList = ('[ '("accelClosuresChanged", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("authenticate", WebViewAuthenticateSignalInfo), '("buttonPressEvent", Gtk.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.WidgetChildNotifySignalInfo), '("close", WebViewCloseSignalInfo), '("compositedChanged", Gtk.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.WidgetConfigureEventSignalInfo), '("contextMenu", WebViewContextMenuSignalInfo), '("contextMenuDismissed", WebViewContextMenuDismissedSignalInfo), '("create", WebViewCreateSignalInfo), '("damageEvent", Gtk.WidgetDamageEventSignalInfo), '("decidePolicy", WebViewDecidePolicySignalInfo), '("deleteEvent", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroyEvent", Gtk.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.WidgetDragDropSignalInfo), '("dragEnd", Gtk.WidgetDragEndSignalInfo), '("dragFailed", Gtk.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("enterFullscreen", WebViewEnterFullscreenSignalInfo), '("enterNotifyEvent", Gtk.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("eventAfter", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focusInEvent", Gtk.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.WidgetHierarchyChangedSignalInfo), '("insecureContentDetected", WebViewInsecureContentDetectedSignalInfo), '("keyPressEvent", Gtk.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.WidgetKeynavFailedSignalInfo), '("leaveFullscreen", WebViewLeaveFullscreenSignalInfo), '("leaveNotifyEvent", Gtk.WidgetLeaveNotifyEventSignalInfo), '("loadChanged", WebViewLoadChangedSignalInfo), '("loadFailed", WebViewLoadFailedSignalInfo), '("loadFailedWithTlsErrors", WebViewLoadFailedWithTlsErrorsSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("mapEvent", Gtk.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.WidgetMotionNotifyEventSignalInfo), '("mouseTargetChanged", WebViewMouseTargetChangedSignalInfo), '("moveFocus", Gtk.WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", Gtk.WidgetParentSetSignalInfo), '("permissionRequest", WebViewPermissionRequestSignalInfo), '("popupMenu", Gtk.WidgetPopupMenuSignalInfo), '("print", WebViewPrintSignalInfo), '("propertyNotifyEvent", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.WidgetQueryTooltipSignalInfo), '("readyToShow", WebViewReadyToShowSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("resourceLoadStarted", WebViewResourceLoadStartedSignalInfo), '("runAsModal", WebViewRunAsModalSignalInfo), '("runColorChooser", WebViewRunColorChooserSignalInfo), '("runFileChooser", WebViewRunFileChooserSignalInfo), '("screenChanged", Gtk.WidgetScreenChangedSignalInfo), '("scriptDialog", WebViewScriptDialogSignalInfo), '("scrollEvent", Gtk.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.ContainerSetFocusChildSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("showHelp", Gtk.WidgetShowHelpSignalInfo), '("showNotification", WebViewShowNotificationSignalInfo), '("sizeAllocate", Gtk.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.WidgetStyleUpdatedSignalInfo), '("submitForm", WebViewSubmitFormSignalInfo), '("touchEvent", Gtk.WidgetTouchEventSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("webProcessCrashed", WebViewWebProcessCrashedSignalInfo), '("windowStateEvent", Gtk.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method WebView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebView") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_new" webkit_web_view_new :: - IO (Ptr WebView) - - -webViewNew :: - (MonadIO m) => - m WebView -- result -webViewNew = liftIO $ do - result <- webkit_web_view_new - checkUnexpectedReturnNULL "webkit_web_view_new" result - result' <- (newObject WebView) result - return result' - --- method WebView::new_with_context --- method type : Constructor --- Args : [Arg {argCName = "context", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebView") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_new_with_context" webkit_web_view_new_with_context :: - Ptr WebContext -> -- context : TInterface "WebKit2" "WebContext" - IO (Ptr WebView) - - -webViewNewWithContext :: - (MonadIO m, WebContextK a) => - a -- context - -> m WebView -- result -webViewNewWithContext context = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - result <- webkit_web_view_new_with_context context' - checkUnexpectedReturnNULL "webkit_web_view_new_with_context" result - result' <- (newObject WebView) result - touchManagedPtr context - return result' - --- method WebView::new_with_settings --- method type : Constructor --- Args : [Arg {argCName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebView") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_new_with_settings" webkit_web_view_new_with_settings :: - Ptr Settings -> -- settings : TInterface "WebKit2" "Settings" - IO (Ptr WebView) - - -webViewNewWithSettings :: - (MonadIO m, SettingsK a) => - a -- settings - -> m WebView -- result -webViewNewWithSettings settings = liftIO $ do - let settings' = unsafeManagedPtrCastPtr settings - result <- webkit_web_view_new_with_settings settings' - checkUnexpectedReturnNULL "webkit_web_view_new_with_settings" result - result' <- (newObject WebView) result - touchManagedPtr settings - return result' - --- method WebView::new_with_user_content_manager --- method type : Constructor --- Args : [Arg {argCName = "user_content_manager", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebView") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_new_with_user_content_manager" webkit_web_view_new_with_user_content_manager :: - Ptr UserContentManager -> -- user_content_manager : TInterface "WebKit2" "UserContentManager" - IO (Ptr WebView) - - -webViewNewWithUserContentManager :: - (MonadIO m, UserContentManagerK a) => - a -- userContentManager - -> m WebView -- result -webViewNewWithUserContentManager userContentManager = liftIO $ do - let userContentManager' = unsafeManagedPtrCastPtr userContentManager - result <- webkit_web_view_new_with_user_content_manager userContentManager' - checkUnexpectedReturnNULL "webkit_web_view_new_with_user_content_manager" result - result' <- (newObject WebView) result - touchManagedPtr userContentManager - return result' - --- method WebView::can_execute_editing_command --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_can_execute_editing_command" webkit_web_view_can_execute_editing_command :: - Ptr WebView -> -- _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 TPtr - IO () - - -webViewCanExecuteEditingCommand :: - (MonadIO m, WebViewK a, Gio.CancellableK b) => - a -- _obj - -> T.Text -- command - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -webViewCanExecuteEditingCommand _obj command cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - command' <- textToCString command - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - webkit_web_view_can_execute_editing_command _obj' command' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem command' - return () - -data WebViewCanExecuteEditingCommandMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewCanExecuteEditingCommandMethodInfo a signature where - overloadedMethod _ = webViewCanExecuteEditingCommand - --- method WebView::can_execute_editing_command_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_view_can_execute_editing_command_finish" webkit_web_view_can_execute_editing_command_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -webViewCanExecuteEditingCommandFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -webViewCanExecuteEditingCommandFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ webkit_web_view_can_execute_editing_command_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data WebViewCanExecuteEditingCommandFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewCanExecuteEditingCommandFinishMethodInfo a signature where - overloadedMethod _ = webViewCanExecuteEditingCommandFinish - --- method WebView::can_go_back --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_can_go_back" webkit_web_view_can_go_back :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CInt - - -webViewCanGoBack :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m Bool -- result -webViewCanGoBack _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_can_go_back _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WebViewCanGoBackMethodInfo -instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewCanGoBackMethodInfo a signature where - overloadedMethod _ = webViewCanGoBack - --- method WebView::can_go_forward --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_can_go_forward" webkit_web_view_can_go_forward :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CInt - - -webViewCanGoForward :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m Bool -- result -webViewCanGoForward _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_can_go_forward _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WebViewCanGoForwardMethodInfo -instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewCanGoForwardMethodInfo a signature where - overloadedMethod _ = webViewCanGoForward - --- method WebView::can_show_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_can_show_mime_type" webkit_web_view_can_show_mime_type :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- mime_type : TBasicType TUTF8 - IO CInt - - -webViewCanShowMimeType :: - (MonadIO m, WebViewK a) => - a -- _obj - -> T.Text -- mimeType - -> m Bool -- result -webViewCanShowMimeType _obj mimeType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mimeType' <- textToCString mimeType - result <- webkit_web_view_can_show_mime_type _obj' mimeType' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem mimeType' - return result' - -data WebViewCanShowMimeTypeMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewCanShowMimeTypeMethodInfo a signature where - overloadedMethod _ = webViewCanShowMimeType - --- method WebView::download_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "Download") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_download_uri" webkit_web_view_download_uri :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- uri : TBasicType TUTF8 - IO (Ptr Download) - - -webViewDownloadUri :: - (MonadIO m, WebViewK a) => - a -- _obj - -> T.Text -- uri - -> m Download -- result -webViewDownloadUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - result <- webkit_web_view_download_uri _obj' uri' - checkUnexpectedReturnNULL "webkit_web_view_download_uri" result - result' <- (wrapObject Download) result - touchManagedPtr _obj - freeMem uri' - return result' - -data WebViewDownloadUriMethodInfo -instance (signature ~ (T.Text -> m Download), MonadIO m, WebViewK a) => MethodInfo WebViewDownloadUriMethodInfo a signature where - overloadedMethod _ = webViewDownloadUri - --- method WebView::execute_editing_command --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_execute_editing_command" webkit_web_view_execute_editing_command :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- command : TBasicType TUTF8 - IO () - - -webViewExecuteEditingCommand :: - (MonadIO m, WebViewK a) => - a -- _obj - -> T.Text -- command - -> m () -- result -webViewExecuteEditingCommand _obj command = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - command' <- textToCString command - webkit_web_view_execute_editing_command _obj' command' - touchManagedPtr _obj - freeMem command' - return () - -data WebViewExecuteEditingCommandMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewExecuteEditingCommandMethodInfo a signature where - overloadedMethod _ = webViewExecuteEditingCommand - --- method WebView::execute_editing_command_with_argument --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argument", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_execute_editing_command_with_argument" webkit_web_view_execute_editing_command_with_argument :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- command : TBasicType TUTF8 - CString -> -- argument : TBasicType TUTF8 - IO () - - -webViewExecuteEditingCommandWithArgument :: - (MonadIO m, WebViewK a) => - a -- _obj - -> T.Text -- command - -> T.Text -- argument - -> m () -- result -webViewExecuteEditingCommandWithArgument _obj command argument = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - command' <- textToCString command - argument' <- textToCString argument - webkit_web_view_execute_editing_command_with_argument _obj' command' argument' - touchManagedPtr _obj - freeMem command' - freeMem argument' - return () - -data WebViewExecuteEditingCommandWithArgumentMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewExecuteEditingCommandWithArgumentMethodInfo a signature where - overloadedMethod _ = webViewExecuteEditingCommandWithArgument - --- method WebView::get_back_forward_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "BackForwardList") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_back_forward_list" webkit_web_view_get_back_forward_list :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr BackForwardList) - - -webViewGetBackForwardList :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m BackForwardList -- result -webViewGetBackForwardList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_back_forward_list _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_back_forward_list" result - result' <- (newObject BackForwardList) result - touchManagedPtr _obj - return result' - -data WebViewGetBackForwardListMethodInfo -instance (signature ~ (m BackForwardList), MonadIO m, WebViewK a) => MethodInfo WebViewGetBackForwardListMethodInfo a signature where - overloadedMethod _ = webViewGetBackForwardList - --- method WebView::get_background_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_background_color" webkit_web_view_get_background_color :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO () - - -webViewGetBackgroundColor :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m (Gdk.RGBA) -- result -webViewGetBackgroundColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - webkit_web_view_get_background_color _obj' rgba - rgba' <- (wrapBoxed Gdk.RGBA) rgba - touchManagedPtr _obj - return rgba' - -data WebViewGetBackgroundColorMethodInfo -instance (signature ~ (m (Gdk.RGBA)), MonadIO m, WebViewK a) => MethodInfo WebViewGetBackgroundColorMethodInfo a signature where - overloadedMethod _ = webViewGetBackgroundColor - --- method WebView::get_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebContext") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_context" webkit_web_view_get_context :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr WebContext) - - -webViewGetContext :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m WebContext -- result -webViewGetContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_context _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_context" result - result' <- (newObject WebContext) result - touchManagedPtr _obj - return result' - -data WebViewGetContextMethodInfo -instance (signature ~ (m WebContext), MonadIO m, WebViewK a) => MethodInfo WebViewGetContextMethodInfo a signature where - overloadedMethod _ = webViewGetContext - --- method WebView::get_custom_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_custom_charset" webkit_web_view_get_custom_charset :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CString - - -webViewGetCustomCharset :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m T.Text -- result -webViewGetCustomCharset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_custom_charset _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_custom_charset" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WebViewGetCustomCharsetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebViewK a) => MethodInfo WebViewGetCustomCharsetMethodInfo a signature where - overloadedMethod _ = webViewGetCustomCharset - --- method WebView::get_editor_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "EditorState") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_editor_state" webkit_web_view_get_editor_state :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr EditorState) - - -webViewGetEditorState :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m EditorState -- result -webViewGetEditorState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_editor_state _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_editor_state" result - result' <- (newObject EditorState) result - touchManagedPtr _obj - return result' - -data WebViewGetEditorStateMethodInfo -instance (signature ~ (m EditorState), MonadIO m, WebViewK a) => MethodInfo WebViewGetEditorStateMethodInfo a signature where - overloadedMethod _ = webViewGetEditorState - --- method WebView::get_estimated_load_progress --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_estimated_load_progress" webkit_web_view_get_estimated_load_progress :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CDouble - - -webViewGetEstimatedLoadProgress :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m Double -- result -webViewGetEstimatedLoadProgress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_estimated_load_progress _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data WebViewGetEstimatedLoadProgressMethodInfo -instance (signature ~ (m Double), MonadIO m, WebViewK a) => MethodInfo WebViewGetEstimatedLoadProgressMethodInfo a signature where - overloadedMethod _ = webViewGetEstimatedLoadProgress - --- method WebView::get_favicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_favicon" webkit_web_view_get_favicon :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr Cairo.Surface) - - -webViewGetFavicon :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m Cairo.Surface -- result -webViewGetFavicon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_favicon _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_favicon" result - result' <- (newBoxed Cairo.Surface) result - touchManagedPtr _obj - return result' - -data WebViewGetFaviconMethodInfo -instance (signature ~ (m Cairo.Surface), MonadIO m, WebViewK a) => MethodInfo WebViewGetFaviconMethodInfo a signature where - overloadedMethod _ = webViewGetFavicon - --- method WebView::get_find_controller --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "FindController") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_find_controller" webkit_web_view_get_find_controller :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr FindController) - - -webViewGetFindController :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m FindController -- result -webViewGetFindController _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_find_controller _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_find_controller" result - result' <- (newObject FindController) result - touchManagedPtr _obj - return result' - -data WebViewGetFindControllerMethodInfo -instance (signature ~ (m FindController), MonadIO m, WebViewK a) => MethodInfo WebViewGetFindControllerMethodInfo a signature where - overloadedMethod _ = webViewGetFindController - --- method WebView::get_inspector --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebInspector") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_inspector" webkit_web_view_get_inspector :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr WebInspector) - - -webViewGetInspector :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m WebInspector -- result -webViewGetInspector _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_inspector _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_inspector" result - result' <- (newObject WebInspector) result - touchManagedPtr _obj - return result' - -data WebViewGetInspectorMethodInfo -instance (signature ~ (m WebInspector), MonadIO m, WebViewK a) => MethodInfo WebViewGetInspectorMethodInfo a signature where - overloadedMethod _ = webViewGetInspector - --- method WebView::get_javascript_global_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "JavaScriptCore" "GlobalContext") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_javascript_global_context" webkit_web_view_get_javascript_global_context :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr JavaScriptCore.GlobalContext) - - -webViewGetJavascriptGlobalContext :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m JavaScriptCore.GlobalContext -- result -webViewGetJavascriptGlobalContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_javascript_global_context _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_javascript_global_context" result - result' <- (wrapPtr JavaScriptCore.GlobalContext) result - touchManagedPtr _obj - return result' - -data WebViewGetJavascriptGlobalContextMethodInfo -instance (signature ~ (m JavaScriptCore.GlobalContext), MonadIO m, WebViewK a) => MethodInfo WebViewGetJavascriptGlobalContextMethodInfo a signature where - overloadedMethod _ = webViewGetJavascriptGlobalContext - --- method WebView::get_main_resource --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebResource") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_main_resource" webkit_web_view_get_main_resource :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr WebResource) - - -webViewGetMainResource :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m WebResource -- result -webViewGetMainResource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_main_resource _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_main_resource" result - result' <- (newObject WebResource) result - touchManagedPtr _obj - return result' - -data WebViewGetMainResourceMethodInfo -instance (signature ~ (m WebResource), MonadIO m, WebViewK a) => MethodInfo WebViewGetMainResourceMethodInfo a signature where - overloadedMethod _ = webViewGetMainResource - --- method WebView::get_page_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_page_id" webkit_web_view_get_page_id :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO Word64 - - -webViewGetPageId :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m Word64 -- result -webViewGetPageId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_page_id _obj' - touchManagedPtr _obj - return result - -data WebViewGetPageIdMethodInfo -instance (signature ~ (m Word64), MonadIO m, WebViewK a) => MethodInfo WebViewGetPageIdMethodInfo a signature where - overloadedMethod _ = webViewGetPageId - --- method WebView::get_session_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebViewSessionState") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_session_state" webkit_web_view_get_session_state :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr WebViewSessionState) - - -webViewGetSessionState :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m WebViewSessionState -- result -webViewGetSessionState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_session_state _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_session_state" result - result' <- (wrapBoxed WebViewSessionState) result - touchManagedPtr _obj - return result' - -data WebViewGetSessionStateMethodInfo -instance (signature ~ (m WebViewSessionState), MonadIO m, WebViewK a) => MethodInfo WebViewGetSessionStateMethodInfo a signature where - overloadedMethod _ = webViewGetSessionState - --- method WebView::get_settings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "Settings") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_settings" webkit_web_view_get_settings :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr Settings) - - -webViewGetSettings :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m Settings -- result -webViewGetSettings _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_settings _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_settings" result - result' <- (newObject Settings) result - touchManagedPtr _obj - return result' - -data WebViewGetSettingsMethodInfo -instance (signature ~ (m Settings), MonadIO m, WebViewK a) => MethodInfo WebViewGetSettingsMethodInfo a signature where - overloadedMethod _ = webViewGetSettings - --- method WebView::get_snapshot --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "WebKit2" "SnapshotRegion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "WebKit2" "SnapshotOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_snapshot" webkit_web_view_get_snapshot :: - Ptr WebView -> -- _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 TPtr - IO () - - -webViewGetSnapshot :: - (MonadIO m, WebViewK a, Gio.CancellableK b) => - a -- _obj - -> SnapshotRegion -- region - -> [SnapshotOptions] -- options - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -webViewGetSnapshot _obj region options cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = (fromIntegral . fromEnum) region - let options' = gflagsToWord options - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - webkit_web_view_get_snapshot _obj' region' options' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data WebViewGetSnapshotMethodInfo -instance (signature ~ (SnapshotRegion -> [SnapshotOptions] -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewGetSnapshotMethodInfo a signature where - overloadedMethod _ = webViewGetSnapshot - --- method WebView::get_snapshot_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_view_get_snapshot_finish" webkit_web_view_get_snapshot_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr Cairo.Surface) - - -webViewGetSnapshotFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m Cairo.Surface -- result -webViewGetSnapshotFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ webkit_web_view_get_snapshot_finish _obj' result_' - checkUnexpectedReturnNULL "webkit_web_view_get_snapshot_finish" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data WebViewGetSnapshotFinishMethodInfo -instance (signature ~ (b -> m Cairo.Surface), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewGetSnapshotFinishMethodInfo a signature where - overloadedMethod _ = webViewGetSnapshotFinish - --- method WebView::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_title" webkit_web_view_get_title :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CString - - -webViewGetTitle :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m T.Text -- result -webViewGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_title _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WebViewGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebViewK a) => MethodInfo WebViewGetTitleMethodInfo a signature where - overloadedMethod _ = webViewGetTitle - --- method WebView::get_tls_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_tls_info" webkit_web_view_get_tls_info :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr (Ptr Gio.TlsCertificate) -> -- certificate : TInterface "Gio" "TlsCertificate" - Ptr CUInt -> -- errors : TInterface "Gio" "TlsCertificateFlags" - IO CInt - - -webViewGetTlsInfo :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])-- result -webViewGetTlsInfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate)) - errors <- allocMem :: IO (Ptr CUInt) - result <- webkit_web_view_get_tls_info _obj' certificate errors - let result' = (/= 0) result - certificate' <- peek certificate - certificate'' <- (newObject Gio.TlsCertificate) certificate' - errors' <- peek errors - let errors'' = wordToGFlags errors' - touchManagedPtr _obj - freeMem certificate - freeMem errors - return (result', certificate'', errors'') - -data WebViewGetTlsInfoMethodInfo -instance (signature ~ (m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])), MonadIO m, WebViewK a) => MethodInfo WebViewGetTlsInfoMethodInfo a signature where - overloadedMethod _ = webViewGetTlsInfo - --- method WebView::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -webViewGetUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_uri _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data WebViewGetUriMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, WebViewK a) => MethodInfo WebViewGetUriMethodInfo a signature where - overloadedMethod _ = webViewGetUri - --- method WebView::get_user_content_manager --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "UserContentManager") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_user_content_manager" webkit_web_view_get_user_content_manager :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr UserContentManager) - - -webViewGetUserContentManager :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m UserContentManager -- result -webViewGetUserContentManager _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_user_content_manager _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_user_content_manager" result - result' <- (newObject UserContentManager) result - touchManagedPtr _obj - return result' - -data WebViewGetUserContentManagerMethodInfo -instance (signature ~ (m UserContentManager), MonadIO m, WebViewK a) => MethodInfo WebViewGetUserContentManagerMethodInfo a signature where - overloadedMethod _ = webViewGetUserContentManager - --- method WebView::get_window_properties --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WindowProperties") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_window_properties" webkit_web_view_get_window_properties :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr WindowProperties) - - -webViewGetWindowProperties :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m WindowProperties -- result -webViewGetWindowProperties _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_window_properties _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_window_properties" result - result' <- (newObject WindowProperties) result - touchManagedPtr _obj - return result' - -data WebViewGetWindowPropertiesMethodInfo -instance (signature ~ (m WindowProperties), MonadIO m, WebViewK a) => MethodInfo WebViewGetWindowPropertiesMethodInfo a signature where - overloadedMethod _ = webViewGetWindowProperties - --- method WebView::get_zoom_level --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_get_zoom_level" webkit_web_view_get_zoom_level :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CDouble - - -webViewGetZoomLevel :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m Double -- result -webViewGetZoomLevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_get_zoom_level _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data WebViewGetZoomLevelMethodInfo -instance (signature ~ (m Double), MonadIO m, WebViewK a) => MethodInfo WebViewGetZoomLevelMethodInfo a signature where - overloadedMethod _ = webViewGetZoomLevel - --- method WebView::go_back --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_go_back" webkit_web_view_go_back :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO () - - -webViewGoBack :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m () -- result -webViewGoBack _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_view_go_back _obj' - touchManagedPtr _obj - return () - -data WebViewGoBackMethodInfo -instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewGoBackMethodInfo a signature where - overloadedMethod _ = webViewGoBack - --- method WebView::go_forward --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_go_forward" webkit_web_view_go_forward :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO () - - -webViewGoForward :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m () -- result -webViewGoForward _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_view_go_forward _obj' - touchManagedPtr _obj - return () - -data WebViewGoForwardMethodInfo -instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewGoForwardMethodInfo a signature where - overloadedMethod _ = webViewGoForward - --- method WebView::go_to_back_forward_list_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list_item", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_go_to_back_forward_list_item" webkit_web_view_go_to_back_forward_list_item :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr BackForwardListItem -> -- list_item : TInterface "WebKit2" "BackForwardListItem" - IO () - - -webViewGoToBackForwardListItem :: - (MonadIO m, WebViewK a, BackForwardListItemK b) => - a -- _obj - -> b -- listItem - -> m () -- result -webViewGoToBackForwardListItem _obj listItem = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let listItem' = unsafeManagedPtrCastPtr listItem - webkit_web_view_go_to_back_forward_list_item _obj' listItem' - touchManagedPtr _obj - touchManagedPtr listItem - return () - -data WebViewGoToBackForwardListItemMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, BackForwardListItemK b) => MethodInfo WebViewGoToBackForwardListItemMethodInfo a signature where - overloadedMethod _ = webViewGoToBackForwardListItem - --- method WebView::is_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_is_editable" webkit_web_view_is_editable :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CInt - - -webViewIsEditable :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m Bool -- result -webViewIsEditable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_is_editable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WebViewIsEditableMethodInfo -instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewIsEditableMethodInfo a signature where - overloadedMethod _ = webViewIsEditable - --- method WebView::is_loading --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_is_loading" webkit_web_view_is_loading :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CInt - - -webViewIsLoading :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m Bool -- result -webViewIsLoading _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_is_loading _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WebViewIsLoadingMethodInfo -instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewIsLoadingMethodInfo a signature where - overloadedMethod _ = webViewIsLoading - --- method WebView::is_playing_audio --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_is_playing_audio" webkit_web_view_is_playing_audio :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO CInt - - -webViewIsPlayingAudio :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m Bool -- result -webViewIsPlayingAudio _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_is_playing_audio _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WebViewIsPlayingAudioMethodInfo -instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewIsPlayingAudioMethodInfo a signature where - overloadedMethod _ = webViewIsPlayingAudio - --- method WebView::load_alternate_html --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_load_alternate_html" webkit_web_view_load_alternate_html :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- content : TBasicType TUTF8 - CString -> -- content_uri : TBasicType TUTF8 - CString -> -- base_uri : TBasicType TUTF8 - IO () - - -webViewLoadAlternateHtml :: - (MonadIO m, WebViewK a) => - a -- _obj - -> T.Text -- content - -> T.Text -- contentUri - -> Maybe (T.Text) -- baseUri - -> m () -- result -webViewLoadAlternateHtml _obj content contentUri baseUri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - content' <- textToCString content - contentUri' <- textToCString contentUri - maybeBaseUri <- case baseUri of - Nothing -> return nullPtr - Just jBaseUri -> do - jBaseUri' <- textToCString jBaseUri - return jBaseUri' - webkit_web_view_load_alternate_html _obj' content' contentUri' maybeBaseUri - touchManagedPtr _obj - freeMem content' - freeMem contentUri' - freeMem maybeBaseUri - return () - -data WebViewLoadAlternateHtmlMethodInfo -instance (signature ~ (T.Text -> T.Text -> Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadAlternateHtmlMethodInfo a signature where - overloadedMethod _ = webViewLoadAlternateHtml - --- method WebView::load_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_load_bytes" webkit_web_view_load_bytes :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr GLib.Bytes -> -- bytes : TInterface "GLib" "Bytes" - CString -> -- mime_type : TBasicType TUTF8 - CString -> -- encoding : TBasicType TUTF8 - CString -> -- base_uri : TBasicType TUTF8 - IO () - - -webViewLoadBytes :: - (MonadIO m, WebViewK a) => - a -- _obj - -> GLib.Bytes -- bytes - -> Maybe (T.Text) -- mimeType - -> Maybe (T.Text) -- encoding - -> Maybe (T.Text) -- baseUri - -> m () -- result -webViewLoadBytes _obj bytes mimeType encoding baseUri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let bytes' = unsafeManagedPtrGetPtr bytes - maybeMimeType <- case mimeType of - Nothing -> return nullPtr - Just jMimeType -> do - jMimeType' <- textToCString jMimeType - return jMimeType' - maybeEncoding <- case encoding of - Nothing -> return nullPtr - Just jEncoding -> do - jEncoding' <- textToCString jEncoding - return jEncoding' - maybeBaseUri <- case baseUri of - Nothing -> return nullPtr - Just jBaseUri -> do - jBaseUri' <- textToCString jBaseUri - return jBaseUri' - webkit_web_view_load_bytes _obj' bytes' maybeMimeType maybeEncoding maybeBaseUri - touchManagedPtr _obj - touchManagedPtr bytes - freeMem maybeMimeType - freeMem maybeEncoding - freeMem maybeBaseUri - return () - -data WebViewLoadBytesMethodInfo -instance (signature ~ (GLib.Bytes -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadBytesMethodInfo a signature where - overloadedMethod _ = webViewLoadBytes - --- method WebView::load_html --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_load_html" webkit_web_view_load_html :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- content : TBasicType TUTF8 - CString -> -- base_uri : TBasicType TUTF8 - IO () - - -webViewLoadHtml :: - (MonadIO m, WebViewK a) => - a -- _obj - -> T.Text -- content - -> Maybe (T.Text) -- baseUri - -> m () -- result -webViewLoadHtml _obj content baseUri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - content' <- textToCString content - maybeBaseUri <- case baseUri of - Nothing -> return nullPtr - Just jBaseUri -> do - jBaseUri' <- textToCString jBaseUri - return jBaseUri' - webkit_web_view_load_html _obj' content' maybeBaseUri - touchManagedPtr _obj - freeMem content' - freeMem maybeBaseUri - return () - -data WebViewLoadHtmlMethodInfo -instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadHtmlMethodInfo a signature where - overloadedMethod _ = webViewLoadHtml - --- method WebView::load_plain_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "plain_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_load_plain_text" webkit_web_view_load_plain_text :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- plain_text : TBasicType TUTF8 - IO () - - -webViewLoadPlainText :: - (MonadIO m, WebViewK a) => - a -- _obj - -> T.Text -- plainText - -> m () -- result -webViewLoadPlainText _obj plainText = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - plainText' <- textToCString plainText - webkit_web_view_load_plain_text _obj' plainText' - touchManagedPtr _obj - freeMem plainText' - return () - -data WebViewLoadPlainTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadPlainTextMethodInfo a signature where - overloadedMethod _ = webViewLoadPlainText - --- method WebView::load_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "request", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_load_request" webkit_web_view_load_request :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr URIRequest -> -- request : TInterface "WebKit2" "URIRequest" - IO () - - -webViewLoadRequest :: - (MonadIO m, WebViewK a, URIRequestK b) => - a -- _obj - -> b -- request - -> m () -- result -webViewLoadRequest _obj request = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let request' = unsafeManagedPtrCastPtr request - webkit_web_view_load_request _obj' request' - touchManagedPtr _obj - touchManagedPtr request - return () - -data WebViewLoadRequestMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, URIRequestK b) => MethodInfo WebViewLoadRequestMethodInfo a signature where - overloadedMethod _ = webViewLoadRequest - --- method WebView::load_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_load_uri" webkit_web_view_load_uri :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- uri : TBasicType TUTF8 - IO () - - -webViewLoadUri :: - (MonadIO m, WebViewK a) => - a -- _obj - -> T.Text -- uri - -> m () -- result -webViewLoadUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - webkit_web_view_load_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - -data WebViewLoadUriMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadUriMethodInfo a signature where - overloadedMethod _ = webViewLoadUri - --- method WebView::new_with_related_view --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_new_with_related_view" webkit_web_view_new_with_related_view :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO (Ptr Gtk.Widget) - - -webViewNewWithRelatedView :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m Gtk.Widget -- result -webViewNewWithRelatedView _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_view_new_with_related_view _obj' - checkUnexpectedReturnNULL "webkit_web_view_new_with_related_view" result - result' <- (wrapObject Gtk.Widget) result - touchManagedPtr _obj - return result' - -data WebViewNewWithRelatedViewMethodInfo -instance (signature ~ (m Gtk.Widget), MonadIO m, WebViewK a) => MethodInfo WebViewNewWithRelatedViewMethodInfo a signature where - overloadedMethod _ = webViewNewWithRelatedView - --- method WebView::reload --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_reload" webkit_web_view_reload :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO () - - -webViewReload :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m () -- result -webViewReload _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_view_reload _obj' - touchManagedPtr _obj - return () - -data WebViewReloadMethodInfo -instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewReloadMethodInfo a signature where - overloadedMethod _ = webViewReload - --- method WebView::reload_bypass_cache --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_reload_bypass_cache" webkit_web_view_reload_bypass_cache :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO () - - -webViewReloadBypassCache :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m () -- result -webViewReloadBypassCache _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_view_reload_bypass_cache _obj' - touchManagedPtr _obj - return () - -data WebViewReloadBypassCacheMethodInfo -instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewReloadBypassCacheMethodInfo a signature where - overloadedMethod _ = webViewReloadBypassCache - --- method WebView::restore_session_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "WebKit2" "WebViewSessionState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_restore_session_state" webkit_web_view_restore_session_state :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr WebViewSessionState -> -- state : TInterface "WebKit2" "WebViewSessionState" - IO () - - -webViewRestoreSessionState :: - (MonadIO m, WebViewK a) => - a -- _obj - -> WebViewSessionState -- state - -> m () -- result -webViewRestoreSessionState _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = unsafeManagedPtrGetPtr state - webkit_web_view_restore_session_state _obj' state' - touchManagedPtr _obj - touchManagedPtr state - return () - -data WebViewRestoreSessionStateMethodInfo -instance (signature ~ (WebViewSessionState -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewRestoreSessionStateMethodInfo a signature where - overloadedMethod _ = webViewRestoreSessionState - --- method WebView::run_javascript --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "script", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_run_javascript" webkit_web_view_run_javascript :: - Ptr WebView -> -- _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 TPtr - IO () - - -webViewRunJavascript :: - (MonadIO m, WebViewK a, Gio.CancellableK b) => - a -- _obj - -> T.Text -- script - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -webViewRunJavascript _obj script cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - script' <- textToCString script - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - webkit_web_view_run_javascript _obj' script' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem script' - return () - -data WebViewRunJavascriptMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewRunJavascriptMethodInfo a signature where - overloadedMethod _ = webViewRunJavascript - --- method WebView::run_javascript_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "JavascriptResult") --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_view_run_javascript_finish" webkit_web_view_run_javascript_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr JavascriptResult) - - -webViewRunJavascriptFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m JavascriptResult -- result -webViewRunJavascriptFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ webkit_web_view_run_javascript_finish _obj' result_' - checkUnexpectedReturnNULL "webkit_web_view_run_javascript_finish" result - result' <- (wrapBoxed JavascriptResult) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data WebViewRunJavascriptFinishMethodInfo -instance (signature ~ (b -> m JavascriptResult), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewRunJavascriptFinishMethodInfo a signature where - overloadedMethod _ = webViewRunJavascriptFinish - --- method WebView::run_javascript_from_gresource --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_run_javascript_from_gresource" webkit_web_view_run_javascript_from_gresource :: - Ptr WebView -> -- _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 TPtr - IO () - - -webViewRunJavascriptFromGresource :: - (MonadIO m, WebViewK a, Gio.CancellableK b) => - a -- _obj - -> T.Text -- resource - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -webViewRunJavascriptFromGresource _obj resource cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - resource' <- textToCString resource - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - webkit_web_view_run_javascript_from_gresource _obj' resource' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem resource' - return () - -data WebViewRunJavascriptFromGresourceMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewRunJavascriptFromGresourceMethodInfo a signature where - overloadedMethod _ = webViewRunJavascriptFromGresource - --- method WebView::run_javascript_from_gresource_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "JavascriptResult") --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_view_run_javascript_from_gresource_finish" webkit_web_view_run_javascript_from_gresource_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr JavascriptResult) - - -webViewRunJavascriptFromGresourceFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m JavascriptResult -- result -webViewRunJavascriptFromGresourceFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ webkit_web_view_run_javascript_from_gresource_finish _obj' result_' - checkUnexpectedReturnNULL "webkit_web_view_run_javascript_from_gresource_finish" result - result' <- (wrapBoxed JavascriptResult) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data WebViewRunJavascriptFromGresourceFinishMethodInfo -instance (signature ~ (b -> m JavascriptResult), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewRunJavascriptFromGresourceFinishMethodInfo a signature where - overloadedMethod _ = webViewRunJavascriptFromGresourceFinish - --- method WebView::save --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_mode", argType = TInterface "WebKit2" "SaveMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_save" webkit_web_view_save :: - Ptr WebView -> -- _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 TPtr - IO () - - -webViewSave :: - (MonadIO m, WebViewK a, Gio.CancellableK b) => - a -- _obj - -> SaveMode -- saveMode - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -webViewSave _obj saveMode cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let saveMode' = (fromIntegral . fromEnum) saveMode - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - webkit_web_view_save _obj' saveMode' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data WebViewSaveMethodInfo -instance (signature ~ (SaveMode -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewSaveMethodInfo a signature where - overloadedMethod _ = webViewSave - --- method WebView::save_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InputStream") --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_view_save_finish" webkit_web_view_save_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr Gio.InputStream) - - -webViewSaveFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m Gio.InputStream -- result -webViewSaveFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ webkit_web_view_save_finish _obj' result_' - checkUnexpectedReturnNULL "webkit_web_view_save_finish" result - result' <- (wrapObject Gio.InputStream) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data WebViewSaveFinishMethodInfo -instance (signature ~ (b -> m Gio.InputStream), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewSaveFinishMethodInfo a signature where - overloadedMethod _ = webViewSaveFinish - --- method WebView::save_to_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_mode", argType = TInterface "WebKit2" "SaveMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_save_to_file" webkit_web_view_save_to_file :: - Ptr WebView -> -- _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 TPtr - IO () - - -webViewSaveToFile :: - (MonadIO m, WebViewK a, Gio.FileK b, Gio.CancellableK c) => - a -- _obj - -> b -- file - -> SaveMode -- saveMode - -> Maybe (c) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -webViewSaveToFile _obj file saveMode cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file' = unsafeManagedPtrCastPtr file - let saveMode' = (fromIntegral . fromEnum) saveMode - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - webkit_web_view_save_to_file _obj' file' saveMode' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr file - whenJust cancellable touchManagedPtr - return () - -data WebViewSaveToFileMethodInfo -instance (signature ~ (b -> SaveMode -> Maybe (c) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.FileK b, Gio.CancellableK c) => MethodInfo WebViewSaveToFileMethodInfo a signature where - overloadedMethod _ = webViewSaveToFile - --- method WebView::save_to_file_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "webkit_web_view_save_to_file_finish" webkit_web_view_save_to_file_finish :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -webViewSaveToFileFinish :: - (MonadIO m, WebViewK a, Gio.AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -webViewSaveToFileFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ webkit_web_view_save_to_file_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data WebViewSaveToFileFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewSaveToFileFinishMethodInfo a signature where - overloadedMethod _ = webViewSaveToFileFinish - --- method WebView::set_background_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_set_background_color" webkit_web_view_set_background_color :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO () - - -webViewSetBackgroundColor :: - (MonadIO m, WebViewK a) => - a -- _obj - -> Gdk.RGBA -- rgba - -> m () -- result -webViewSetBackgroundColor _obj rgba = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rgba' = unsafeManagedPtrGetPtr rgba - webkit_web_view_set_background_color _obj' rgba' - touchManagedPtr _obj - touchManagedPtr rgba - return () - -data WebViewSetBackgroundColorMethodInfo -instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetBackgroundColorMethodInfo a signature where - overloadedMethod _ = webViewSetBackgroundColor - --- method WebView::set_custom_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_set_custom_charset" webkit_web_view_set_custom_charset :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CString -> -- charset : TBasicType TUTF8 - IO () - - -webViewSetCustomCharset :: - (MonadIO m, WebViewK a) => - a -- _obj - -> Maybe (T.Text) -- charset - -> m () -- result -webViewSetCustomCharset _obj charset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCharset <- case charset of - Nothing -> return nullPtr - Just jCharset -> do - jCharset' <- textToCString jCharset - return jCharset' - webkit_web_view_set_custom_charset _obj' maybeCharset - touchManagedPtr _obj - freeMem maybeCharset - return () - -data WebViewSetCustomCharsetMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetCustomCharsetMethodInfo a signature where - overloadedMethod _ = webViewSetCustomCharset - --- method WebView::set_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_set_editable" webkit_web_view_set_editable :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CInt -> -- editable : TBasicType TBoolean - IO () - - -webViewSetEditable :: - (MonadIO m, WebViewK a) => - a -- _obj - -> Bool -- editable - -> m () -- result -webViewSetEditable _obj editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let editable' = (fromIntegral . fromEnum) editable - webkit_web_view_set_editable _obj' editable' - touchManagedPtr _obj - return () - -data WebViewSetEditableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetEditableMethodInfo a signature where - overloadedMethod _ = webViewSetEditable - --- method WebView::set_settings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_set_settings" webkit_web_view_set_settings :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - Ptr Settings -> -- settings : TInterface "WebKit2" "Settings" - IO () - - -webViewSetSettings :: - (MonadIO m, WebViewK a, SettingsK b) => - a -- _obj - -> b -- settings - -> m () -- result -webViewSetSettings _obj settings = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let settings' = unsafeManagedPtrCastPtr settings - webkit_web_view_set_settings _obj' settings' - touchManagedPtr _obj - touchManagedPtr settings - return () - -data WebViewSetSettingsMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, SettingsK b) => MethodInfo WebViewSetSettingsMethodInfo a signature where - overloadedMethod _ = webViewSetSettings - --- method WebView::set_zoom_level --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "zoom_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_set_zoom_level" webkit_web_view_set_zoom_level :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - CDouble -> -- zoom_level : TBasicType TDouble - IO () - - -webViewSetZoomLevel :: - (MonadIO m, WebViewK a) => - a -- _obj - -> Double -- zoomLevel - -> m () -- result -webViewSetZoomLevel _obj zoomLevel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let zoomLevel' = realToFrac zoomLevel - webkit_web_view_set_zoom_level _obj' zoomLevel' - touchManagedPtr _obj - return () - -data WebViewSetZoomLevelMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetZoomLevelMethodInfo a signature where - overloadedMethod _ = webViewSetZoomLevel - --- method WebView::stop_loading --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_stop_loading" webkit_web_view_stop_loading :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO () - - -webViewStopLoading :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m () -- result -webViewStopLoading _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_view_stop_loading _obj' - touchManagedPtr _obj - return () - -data WebViewStopLoadingMethodInfo -instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewStopLoadingMethodInfo a signature where - overloadedMethod _ = webViewStopLoading - --- method WebView::try_close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_try_close" webkit_web_view_try_close :: - Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView" - IO () - - -webViewTryClose :: - (MonadIO m, WebViewK a) => - a -- _obj - -> m () -- result -webViewTryClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_web_view_try_close _obj' - touchManagedPtr _obj - return () - -data WebViewTryCloseMethodInfo -instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewTryCloseMethodInfo a signature where - overloadedMethod _ = webViewTryClose - - diff --git a/GI/WebKit2/Objects/WebView.hs-boot b/GI/WebKit2/Objects/WebView.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/WebView.hs-boot +++ /dev/null @@ -1,110 +0,0 @@ -module GI.WebKit2.Objects.WebView where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WebView = WebView (ForeignPtr WebView) -instance GObject WebView where -class GObject o => WebViewK o -instance (GObject o, IsDescendantOf WebView o) => WebViewK o -data WebViewEditablePropertyInfo -data WebViewEstimatedLoadProgressPropertyInfo -data WebViewFaviconPropertyInfo -data WebViewIsLoadingPropertyInfo -data WebViewIsPlayingAudioPropertyInfo -data WebViewRelatedViewPropertyInfo -data WebViewSettingsPropertyInfo -data WebViewTitlePropertyInfo -data WebViewUriPropertyInfo -data WebViewUserContentManagerPropertyInfo -data WebViewWebContextPropertyInfo -data WebViewZoomLevelPropertyInfo -data WebViewAuthenticateSignalInfo -data WebViewCloseSignalInfo -data WebViewContextMenuSignalInfo -data WebViewContextMenuDismissedSignalInfo -data WebViewCreateSignalInfo -data WebViewDecidePolicySignalInfo -data WebViewEnterFullscreenSignalInfo -data WebViewInsecureContentDetectedSignalInfo -data WebViewLeaveFullscreenSignalInfo -data WebViewLoadChangedSignalInfo -data WebViewLoadFailedSignalInfo -data WebViewLoadFailedWithTlsErrorsSignalInfo -data WebViewMouseTargetChangedSignalInfo -data WebViewPermissionRequestSignalInfo -data WebViewPrintSignalInfo -data WebViewReadyToShowSignalInfo -data WebViewResourceLoadStartedSignalInfo -data WebViewRunAsModalSignalInfo -data WebViewRunColorChooserSignalInfo -data WebViewRunFileChooserSignalInfo -data WebViewScriptDialogSignalInfo -data WebViewShowNotificationSignalInfo -data WebViewSubmitFormSignalInfo -data WebViewWebProcessCrashedSignalInfo -data WebViewCanExecuteEditingCommandMethodInfo -data WebViewCanExecuteEditingCommandFinishMethodInfo -data WebViewCanGoBackMethodInfo -data WebViewCanGoForwardMethodInfo -data WebViewCanShowMimeTypeMethodInfo -data WebViewDownloadUriMethodInfo -data WebViewExecuteEditingCommandMethodInfo -data WebViewExecuteEditingCommandWithArgumentMethodInfo -data WebViewGetBackForwardListMethodInfo -data WebViewGetBackgroundColorMethodInfo -data WebViewGetContextMethodInfo -data WebViewGetCustomCharsetMethodInfo -data WebViewGetEditorStateMethodInfo -data WebViewGetEstimatedLoadProgressMethodInfo -data WebViewGetFaviconMethodInfo -data WebViewGetFindControllerMethodInfo -data WebViewGetInspectorMethodInfo -data WebViewGetJavascriptGlobalContextMethodInfo -data WebViewGetMainResourceMethodInfo -data WebViewGetPageIdMethodInfo -data WebViewGetSessionStateMethodInfo -data WebViewGetSettingsMethodInfo -data WebViewGetSnapshotMethodInfo -data WebViewGetSnapshotFinishMethodInfo -data WebViewGetTitleMethodInfo -data WebViewGetTlsInfoMethodInfo -data WebViewGetUriMethodInfo -data WebViewGetUserContentManagerMethodInfo -data WebViewGetWindowPropertiesMethodInfo -data WebViewGetZoomLevelMethodInfo -data WebViewGoBackMethodInfo -data WebViewGoForwardMethodInfo -data WebViewGoToBackForwardListItemMethodInfo -data WebViewIsEditableMethodInfo -data WebViewIsLoadingMethodInfo -data WebViewIsPlayingAudioMethodInfo -data WebViewLoadAlternateHtmlMethodInfo -data WebViewLoadBytesMethodInfo -data WebViewLoadHtmlMethodInfo -data WebViewLoadPlainTextMethodInfo -data WebViewLoadRequestMethodInfo -data WebViewLoadUriMethodInfo -data WebViewNewWithRelatedViewMethodInfo -data WebViewReloadMethodInfo -data WebViewReloadBypassCacheMethodInfo -data WebViewRestoreSessionStateMethodInfo -data WebViewRunJavascriptMethodInfo -data WebViewRunJavascriptFinishMethodInfo -data WebViewRunJavascriptFromGresourceMethodInfo -data WebViewRunJavascriptFromGresourceFinishMethodInfo -data WebViewSaveMethodInfo -data WebViewSaveFinishMethodInfo -data WebViewSaveToFileMethodInfo -data WebViewSaveToFileFinishMethodInfo -data WebViewSetBackgroundColorMethodInfo -data WebViewSetCustomCharsetMethodInfo -data WebViewSetEditableMethodInfo -data WebViewSetSettingsMethodInfo -data WebViewSetZoomLevelMethodInfo -data WebViewStopLoadingMethodInfo -data WebViewTryCloseMethodInfo diff --git a/GI/WebKit2/Objects/WebViewBase.hs b/GI/WebKit2/Objects/WebViewBase.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/WebViewBase.hs +++ /dev/null @@ -1,383 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.WebViewBase - ( - --- * Exported types - WebViewBase(..) , - WebViewBaseK , - toWebViewBase , - noWebViewBase , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gtk as Gtk - -newtype WebViewBase = WebViewBase (ForeignPtr WebViewBase) -foreign import ccall "webkit_web_view_base_get_type" - c_webkit_web_view_base_get_type :: IO GType - -type instance ParentTypes WebViewBase = WebViewBaseParentTypes -type WebViewBaseParentTypes = '[Gtk.Container, Gtk.Widget, GObject.Object, Atk.ImplementorIface, Gtk.Buildable] - -instance GObject WebViewBase where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_webkit_web_view_base_get_type - - -class GObject o => WebViewBaseK o -instance (GObject o, IsDescendantOf WebViewBase o) => WebViewBaseK o - -toWebViewBase :: WebViewBaseK o => o -> IO WebViewBase -toWebViewBase = unsafeCastTo WebViewBase - -noWebViewBase :: Maybe WebViewBase -noWebViewBase = Nothing - -type family ResolveWebViewBaseMethod (t :: Symbol) (o :: *) :: * where - ResolveWebViewBaseMethod "activate" o = Gtk.WidgetActivateMethodInfo - ResolveWebViewBaseMethod "add" o = Gtk.ContainerAddMethodInfo - ResolveWebViewBaseMethod "addAccelerator" o = Gtk.WidgetAddAcceleratorMethodInfo - ResolveWebViewBaseMethod "addChild" o = Gtk.BuildableAddChildMethodInfo - ResolveWebViewBaseMethod "addDeviceEvents" o = Gtk.WidgetAddDeviceEventsMethodInfo - ResolveWebViewBaseMethod "addEvents" o = Gtk.WidgetAddEventsMethodInfo - ResolveWebViewBaseMethod "addMnemonicLabel" o = Gtk.WidgetAddMnemonicLabelMethodInfo - ResolveWebViewBaseMethod "addTickCallback" o = Gtk.WidgetAddTickCallbackMethodInfo - ResolveWebViewBaseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWebViewBaseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWebViewBaseMethod "canActivateAccel" o = Gtk.WidgetCanActivateAccelMethodInfo - ResolveWebViewBaseMethod "checkResize" o = Gtk.ContainerCheckResizeMethodInfo - ResolveWebViewBaseMethod "childFocus" o = Gtk.WidgetChildFocusMethodInfo - ResolveWebViewBaseMethod "childGetProperty" o = Gtk.ContainerChildGetPropertyMethodInfo - ResolveWebViewBaseMethod "childNotifyByPspec" o = Gtk.ContainerChildNotifyByPspecMethodInfo - ResolveWebViewBaseMethod "childSetProperty" o = Gtk.ContainerChildSetPropertyMethodInfo - ResolveWebViewBaseMethod "childType" o = Gtk.ContainerChildTypeMethodInfo - ResolveWebViewBaseMethod "classPath" o = Gtk.WidgetClassPathMethodInfo - ResolveWebViewBaseMethod "computeExpand" o = Gtk.WidgetComputeExpandMethodInfo - ResolveWebViewBaseMethod "constructChild" o = Gtk.BuildableConstructChildMethodInfo - ResolveWebViewBaseMethod "createPangoContext" o = Gtk.WidgetCreatePangoContextMethodInfo - ResolveWebViewBaseMethod "createPangoLayout" o = Gtk.WidgetCreatePangoLayoutMethodInfo - ResolveWebViewBaseMethod "customFinished" o = Gtk.BuildableCustomFinishedMethodInfo - ResolveWebViewBaseMethod "customTagEnd" o = Gtk.BuildableCustomTagEndMethodInfo - ResolveWebViewBaseMethod "customTagStart" o = Gtk.BuildableCustomTagStartMethodInfo - ResolveWebViewBaseMethod "destroy" o = Gtk.WidgetDestroyMethodInfo - ResolveWebViewBaseMethod "destroyed" o = Gtk.WidgetDestroyedMethodInfo - ResolveWebViewBaseMethod "deviceIsShadowed" o = Gtk.WidgetDeviceIsShadowedMethodInfo - ResolveWebViewBaseMethod "dragBegin" o = Gtk.WidgetDragBeginMethodInfo - ResolveWebViewBaseMethod "dragBeginWithCoordinates" o = Gtk.WidgetDragBeginWithCoordinatesMethodInfo - ResolveWebViewBaseMethod "dragCheckThreshold" o = Gtk.WidgetDragCheckThresholdMethodInfo - ResolveWebViewBaseMethod "dragDestAddImageTargets" o = Gtk.WidgetDragDestAddImageTargetsMethodInfo - ResolveWebViewBaseMethod "dragDestAddTextTargets" o = Gtk.WidgetDragDestAddTextTargetsMethodInfo - ResolveWebViewBaseMethod "dragDestAddUriTargets" o = Gtk.WidgetDragDestAddUriTargetsMethodInfo - ResolveWebViewBaseMethod "dragDestFindTarget" o = Gtk.WidgetDragDestFindTargetMethodInfo - ResolveWebViewBaseMethod "dragDestGetTargetList" o = Gtk.WidgetDragDestGetTargetListMethodInfo - ResolveWebViewBaseMethod "dragDestGetTrackMotion" o = Gtk.WidgetDragDestGetTrackMotionMethodInfo - ResolveWebViewBaseMethod "dragDestSet" o = Gtk.WidgetDragDestSetMethodInfo - ResolveWebViewBaseMethod "dragDestSetProxy" o = Gtk.WidgetDragDestSetProxyMethodInfo - ResolveWebViewBaseMethod "dragDestSetTargetList" o = Gtk.WidgetDragDestSetTargetListMethodInfo - ResolveWebViewBaseMethod "dragDestSetTrackMotion" o = Gtk.WidgetDragDestSetTrackMotionMethodInfo - ResolveWebViewBaseMethod "dragDestUnset" o = Gtk.WidgetDragDestUnsetMethodInfo - ResolveWebViewBaseMethod "dragGetData" o = Gtk.WidgetDragGetDataMethodInfo - ResolveWebViewBaseMethod "dragHighlight" o = Gtk.WidgetDragHighlightMethodInfo - ResolveWebViewBaseMethod "dragSourceAddImageTargets" o = Gtk.WidgetDragSourceAddImageTargetsMethodInfo - ResolveWebViewBaseMethod "dragSourceAddTextTargets" o = Gtk.WidgetDragSourceAddTextTargetsMethodInfo - ResolveWebViewBaseMethod "dragSourceAddUriTargets" o = Gtk.WidgetDragSourceAddUriTargetsMethodInfo - ResolveWebViewBaseMethod "dragSourceGetTargetList" o = Gtk.WidgetDragSourceGetTargetListMethodInfo - ResolveWebViewBaseMethod "dragSourceSet" o = Gtk.WidgetDragSourceSetMethodInfo - ResolveWebViewBaseMethod "dragSourceSetIconGicon" o = Gtk.WidgetDragSourceSetIconGiconMethodInfo - ResolveWebViewBaseMethod "dragSourceSetIconName" o = Gtk.WidgetDragSourceSetIconNameMethodInfo - ResolveWebViewBaseMethod "dragSourceSetIconPixbuf" o = Gtk.WidgetDragSourceSetIconPixbufMethodInfo - ResolveWebViewBaseMethod "dragSourceSetIconStock" o = Gtk.WidgetDragSourceSetIconStockMethodInfo - ResolveWebViewBaseMethod "dragSourceSetTargetList" o = Gtk.WidgetDragSourceSetTargetListMethodInfo - ResolveWebViewBaseMethod "dragSourceUnset" o = Gtk.WidgetDragSourceUnsetMethodInfo - ResolveWebViewBaseMethod "dragUnhighlight" o = Gtk.WidgetDragUnhighlightMethodInfo - ResolveWebViewBaseMethod "draw" o = Gtk.WidgetDrawMethodInfo - ResolveWebViewBaseMethod "ensureStyle" o = Gtk.WidgetEnsureStyleMethodInfo - ResolveWebViewBaseMethod "errorBell" o = Gtk.WidgetErrorBellMethodInfo - ResolveWebViewBaseMethod "event" o = Gtk.WidgetEventMethodInfo - ResolveWebViewBaseMethod "forall" o = Gtk.ContainerForallMethodInfo - ResolveWebViewBaseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWebViewBaseMethod "foreach" o = Gtk.ContainerForeachMethodInfo - ResolveWebViewBaseMethod "freezeChildNotify" o = Gtk.WidgetFreezeChildNotifyMethodInfo - ResolveWebViewBaseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWebViewBaseMethod "grabAdd" o = Gtk.WidgetGrabAddMethodInfo - ResolveWebViewBaseMethod "grabDefault" o = Gtk.WidgetGrabDefaultMethodInfo - ResolveWebViewBaseMethod "grabFocus" o = Gtk.WidgetGrabFocusMethodInfo - ResolveWebViewBaseMethod "grabRemove" o = Gtk.WidgetGrabRemoveMethodInfo - ResolveWebViewBaseMethod "hasDefault" o = Gtk.WidgetHasDefaultMethodInfo - ResolveWebViewBaseMethod "hasFocus" o = Gtk.WidgetHasFocusMethodInfo - ResolveWebViewBaseMethod "hasGrab" o = Gtk.WidgetHasGrabMethodInfo - ResolveWebViewBaseMethod "hasRcStyle" o = Gtk.WidgetHasRcStyleMethodInfo - ResolveWebViewBaseMethod "hasScreen" o = Gtk.WidgetHasScreenMethodInfo - ResolveWebViewBaseMethod "hasVisibleFocus" o = Gtk.WidgetHasVisibleFocusMethodInfo - ResolveWebViewBaseMethod "hide" o = Gtk.WidgetHideMethodInfo - ResolveWebViewBaseMethod "hideOnDelete" o = Gtk.WidgetHideOnDeleteMethodInfo - ResolveWebViewBaseMethod "inDestruction" o = Gtk.WidgetInDestructionMethodInfo - ResolveWebViewBaseMethod "initTemplate" o = Gtk.WidgetInitTemplateMethodInfo - ResolveWebViewBaseMethod "inputShapeCombineRegion" o = Gtk.WidgetInputShapeCombineRegionMethodInfo - ResolveWebViewBaseMethod "insertActionGroup" o = Gtk.WidgetInsertActionGroupMethodInfo - ResolveWebViewBaseMethod "intersect" o = Gtk.WidgetIntersectMethodInfo - ResolveWebViewBaseMethod "isAncestor" o = Gtk.WidgetIsAncestorMethodInfo - ResolveWebViewBaseMethod "isComposited" o = Gtk.WidgetIsCompositedMethodInfo - ResolveWebViewBaseMethod "isDrawable" o = Gtk.WidgetIsDrawableMethodInfo - ResolveWebViewBaseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWebViewBaseMethod "isFocus" o = Gtk.WidgetIsFocusMethodInfo - ResolveWebViewBaseMethod "isSensitive" o = Gtk.WidgetIsSensitiveMethodInfo - ResolveWebViewBaseMethod "isToplevel" o = Gtk.WidgetIsToplevelMethodInfo - ResolveWebViewBaseMethod "isVisible" o = Gtk.WidgetIsVisibleMethodInfo - ResolveWebViewBaseMethod "keynavFailed" o = Gtk.WidgetKeynavFailedMethodInfo - ResolveWebViewBaseMethod "listAccelClosures" o = Gtk.WidgetListAccelClosuresMethodInfo - ResolveWebViewBaseMethod "listActionPrefixes" o = Gtk.WidgetListActionPrefixesMethodInfo - ResolveWebViewBaseMethod "listMnemonicLabels" o = Gtk.WidgetListMnemonicLabelsMethodInfo - ResolveWebViewBaseMethod "map" o = Gtk.WidgetMapMethodInfo - ResolveWebViewBaseMethod "mnemonicActivate" o = Gtk.WidgetMnemonicActivateMethodInfo - ResolveWebViewBaseMethod "modifyBase" o = Gtk.WidgetModifyBaseMethodInfo - ResolveWebViewBaseMethod "modifyBg" o = Gtk.WidgetModifyBgMethodInfo - ResolveWebViewBaseMethod "modifyCursor" o = Gtk.WidgetModifyCursorMethodInfo - ResolveWebViewBaseMethod "modifyFg" o = Gtk.WidgetModifyFgMethodInfo - ResolveWebViewBaseMethod "modifyFont" o = Gtk.WidgetModifyFontMethodInfo - ResolveWebViewBaseMethod "modifyStyle" o = Gtk.WidgetModifyStyleMethodInfo - ResolveWebViewBaseMethod "modifyText" o = Gtk.WidgetModifyTextMethodInfo - ResolveWebViewBaseMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWebViewBaseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWebViewBaseMethod "overrideBackgroundColor" o = Gtk.WidgetOverrideBackgroundColorMethodInfo - ResolveWebViewBaseMethod "overrideColor" o = Gtk.WidgetOverrideColorMethodInfo - ResolveWebViewBaseMethod "overrideCursor" o = Gtk.WidgetOverrideCursorMethodInfo - ResolveWebViewBaseMethod "overrideFont" o = Gtk.WidgetOverrideFontMethodInfo - ResolveWebViewBaseMethod "overrideSymbolicColor" o = Gtk.WidgetOverrideSymbolicColorMethodInfo - ResolveWebViewBaseMethod "parserFinished" o = Gtk.BuildableParserFinishedMethodInfo - ResolveWebViewBaseMethod "path" o = Gtk.WidgetPathMethodInfo - ResolveWebViewBaseMethod "propagateDraw" o = Gtk.ContainerPropagateDrawMethodInfo - ResolveWebViewBaseMethod "queueComputeExpand" o = Gtk.WidgetQueueComputeExpandMethodInfo - ResolveWebViewBaseMethod "queueDraw" o = Gtk.WidgetQueueDrawMethodInfo - ResolveWebViewBaseMethod "queueDrawArea" o = Gtk.WidgetQueueDrawAreaMethodInfo - ResolveWebViewBaseMethod "queueDrawRegion" o = Gtk.WidgetQueueDrawRegionMethodInfo - ResolveWebViewBaseMethod "queueResize" o = Gtk.WidgetQueueResizeMethodInfo - ResolveWebViewBaseMethod "queueResizeNoRedraw" o = Gtk.WidgetQueueResizeNoRedrawMethodInfo - ResolveWebViewBaseMethod "realize" o = Gtk.WidgetRealizeMethodInfo - ResolveWebViewBaseMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWebViewBaseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWebViewBaseMethod "regionIntersect" o = Gtk.WidgetRegionIntersectMethodInfo - ResolveWebViewBaseMethod "registerWindow" o = Gtk.WidgetRegisterWindowMethodInfo - ResolveWebViewBaseMethod "remove" o = Gtk.ContainerRemoveMethodInfo - ResolveWebViewBaseMethod "removeAccelerator" o = Gtk.WidgetRemoveAcceleratorMethodInfo - ResolveWebViewBaseMethod "removeMnemonicLabel" o = Gtk.WidgetRemoveMnemonicLabelMethodInfo - ResolveWebViewBaseMethod "removeTickCallback" o = Gtk.WidgetRemoveTickCallbackMethodInfo - ResolveWebViewBaseMethod "renderIcon" o = Gtk.WidgetRenderIconMethodInfo - ResolveWebViewBaseMethod "renderIconPixbuf" o = Gtk.WidgetRenderIconPixbufMethodInfo - ResolveWebViewBaseMethod "reparent" o = Gtk.WidgetReparentMethodInfo - ResolveWebViewBaseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWebViewBaseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWebViewBaseMethod "resetRcStyles" o = Gtk.WidgetResetRcStylesMethodInfo - ResolveWebViewBaseMethod "resetStyle" o = Gtk.WidgetResetStyleMethodInfo - ResolveWebViewBaseMethod "resizeChildren" o = Gtk.ContainerResizeChildrenMethodInfo - ResolveWebViewBaseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWebViewBaseMethod "sendExpose" o = Gtk.WidgetSendExposeMethodInfo - ResolveWebViewBaseMethod "sendFocusChange" o = Gtk.WidgetSendFocusChangeMethodInfo - ResolveWebViewBaseMethod "shapeCombineRegion" o = Gtk.WidgetShapeCombineRegionMethodInfo - ResolveWebViewBaseMethod "show" o = Gtk.WidgetShowMethodInfo - ResolveWebViewBaseMethod "showAll" o = Gtk.WidgetShowAllMethodInfo - ResolveWebViewBaseMethod "showNow" o = Gtk.WidgetShowNowMethodInfo - ResolveWebViewBaseMethod "sizeAllocate" o = Gtk.WidgetSizeAllocateMethodInfo - ResolveWebViewBaseMethod "sizeAllocateWithBaseline" o = Gtk.WidgetSizeAllocateWithBaselineMethodInfo - ResolveWebViewBaseMethod "sizeRequest" o = Gtk.WidgetSizeRequestMethodInfo - ResolveWebViewBaseMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWebViewBaseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWebViewBaseMethod "styleAttach" o = Gtk.WidgetStyleAttachMethodInfo - ResolveWebViewBaseMethod "styleGetProperty" o = Gtk.WidgetStyleGetPropertyMethodInfo - ResolveWebViewBaseMethod "thawChildNotify" o = Gtk.WidgetThawChildNotifyMethodInfo - ResolveWebViewBaseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWebViewBaseMethod "translateCoordinates" o = Gtk.WidgetTranslateCoordinatesMethodInfo - ResolveWebViewBaseMethod "triggerTooltipQuery" o = Gtk.WidgetTriggerTooltipQueryMethodInfo - ResolveWebViewBaseMethod "unmap" o = Gtk.WidgetUnmapMethodInfo - ResolveWebViewBaseMethod "unparent" o = Gtk.WidgetUnparentMethodInfo - ResolveWebViewBaseMethod "unrealize" o = Gtk.WidgetUnrealizeMethodInfo - ResolveWebViewBaseMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWebViewBaseMethod "unregisterWindow" o = Gtk.WidgetUnregisterWindowMethodInfo - ResolveWebViewBaseMethod "unsetFocusChain" o = Gtk.ContainerUnsetFocusChainMethodInfo - ResolveWebViewBaseMethod "unsetStateFlags" o = Gtk.WidgetUnsetStateFlagsMethodInfo - ResolveWebViewBaseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWebViewBaseMethod "getAccessible" o = Gtk.WidgetGetAccessibleMethodInfo - ResolveWebViewBaseMethod "getActionGroup" o = Gtk.WidgetGetActionGroupMethodInfo - ResolveWebViewBaseMethod "getAllocatedBaseline" o = Gtk.WidgetGetAllocatedBaselineMethodInfo - ResolveWebViewBaseMethod "getAllocatedHeight" o = Gtk.WidgetGetAllocatedHeightMethodInfo - ResolveWebViewBaseMethod "getAllocatedWidth" o = Gtk.WidgetGetAllocatedWidthMethodInfo - ResolveWebViewBaseMethod "getAllocation" o = Gtk.WidgetGetAllocationMethodInfo - ResolveWebViewBaseMethod "getAncestor" o = Gtk.WidgetGetAncestorMethodInfo - ResolveWebViewBaseMethod "getAppPaintable" o = Gtk.WidgetGetAppPaintableMethodInfo - ResolveWebViewBaseMethod "getBorderWidth" o = Gtk.ContainerGetBorderWidthMethodInfo - ResolveWebViewBaseMethod "getCanDefault" o = Gtk.WidgetGetCanDefaultMethodInfo - ResolveWebViewBaseMethod "getCanFocus" o = Gtk.WidgetGetCanFocusMethodInfo - ResolveWebViewBaseMethod "getChildRequisition" o = Gtk.WidgetGetChildRequisitionMethodInfo - ResolveWebViewBaseMethod "getChildVisible" o = Gtk.WidgetGetChildVisibleMethodInfo - ResolveWebViewBaseMethod "getChildren" o = Gtk.ContainerGetChildrenMethodInfo - ResolveWebViewBaseMethod "getClip" o = Gtk.WidgetGetClipMethodInfo - ResolveWebViewBaseMethod "getClipboard" o = Gtk.WidgetGetClipboardMethodInfo - ResolveWebViewBaseMethod "getCompositeName" o = Gtk.WidgetGetCompositeNameMethodInfo - ResolveWebViewBaseMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWebViewBaseMethod "getDeviceEnabled" o = Gtk.WidgetGetDeviceEnabledMethodInfo - ResolveWebViewBaseMethod "getDeviceEvents" o = Gtk.WidgetGetDeviceEventsMethodInfo - ResolveWebViewBaseMethod "getDirection" o = Gtk.WidgetGetDirectionMethodInfo - ResolveWebViewBaseMethod "getDisplay" o = Gtk.WidgetGetDisplayMethodInfo - ResolveWebViewBaseMethod "getDoubleBuffered" o = Gtk.WidgetGetDoubleBufferedMethodInfo - ResolveWebViewBaseMethod "getEvents" o = Gtk.WidgetGetEventsMethodInfo - ResolveWebViewBaseMethod "getFocusChain" o = Gtk.ContainerGetFocusChainMethodInfo - ResolveWebViewBaseMethod "getFocusChild" o = Gtk.ContainerGetFocusChildMethodInfo - ResolveWebViewBaseMethod "getFocusHadjustment" o = Gtk.ContainerGetFocusHadjustmentMethodInfo - ResolveWebViewBaseMethod "getFocusVadjustment" o = Gtk.ContainerGetFocusVadjustmentMethodInfo - ResolveWebViewBaseMethod "getFontMap" o = Gtk.WidgetGetFontMapMethodInfo - ResolveWebViewBaseMethod "getFontOptions" o = Gtk.WidgetGetFontOptionsMethodInfo - ResolveWebViewBaseMethod "getFrameClock" o = Gtk.WidgetGetFrameClockMethodInfo - ResolveWebViewBaseMethod "getHalign" o = Gtk.WidgetGetHalignMethodInfo - ResolveWebViewBaseMethod "getHasTooltip" o = Gtk.WidgetGetHasTooltipMethodInfo - ResolveWebViewBaseMethod "getHasWindow" o = Gtk.WidgetGetHasWindowMethodInfo - ResolveWebViewBaseMethod "getHexpand" o = Gtk.WidgetGetHexpandMethodInfo - ResolveWebViewBaseMethod "getHexpandSet" o = Gtk.WidgetGetHexpandSetMethodInfo - ResolveWebViewBaseMethod "getInternalChild" o = Gtk.BuildableGetInternalChildMethodInfo - ResolveWebViewBaseMethod "getMapped" o = Gtk.WidgetGetMappedMethodInfo - ResolveWebViewBaseMethod "getMarginBottom" o = Gtk.WidgetGetMarginBottomMethodInfo - ResolveWebViewBaseMethod "getMarginEnd" o = Gtk.WidgetGetMarginEndMethodInfo - ResolveWebViewBaseMethod "getMarginLeft" o = Gtk.WidgetGetMarginLeftMethodInfo - ResolveWebViewBaseMethod "getMarginRight" o = Gtk.WidgetGetMarginRightMethodInfo - ResolveWebViewBaseMethod "getMarginStart" o = Gtk.WidgetGetMarginStartMethodInfo - ResolveWebViewBaseMethod "getMarginTop" o = Gtk.WidgetGetMarginTopMethodInfo - ResolveWebViewBaseMethod "getModifierMask" o = Gtk.WidgetGetModifierMaskMethodInfo - ResolveWebViewBaseMethod "getModifierStyle" o = Gtk.WidgetGetModifierStyleMethodInfo - ResolveWebViewBaseMethod "getNoShowAll" o = Gtk.WidgetGetNoShowAllMethodInfo - ResolveWebViewBaseMethod "getOpacity" o = Gtk.WidgetGetOpacityMethodInfo - ResolveWebViewBaseMethod "getPangoContext" o = Gtk.WidgetGetPangoContextMethodInfo - ResolveWebViewBaseMethod "getParent" o = Gtk.WidgetGetParentMethodInfo - ResolveWebViewBaseMethod "getParentWindow" o = Gtk.WidgetGetParentWindowMethodInfo - ResolveWebViewBaseMethod "getPath" o = Gtk.WidgetGetPathMethodInfo - ResolveWebViewBaseMethod "getPathForChild" o = Gtk.ContainerGetPathForChildMethodInfo - ResolveWebViewBaseMethod "getPointer" o = Gtk.WidgetGetPointerMethodInfo - ResolveWebViewBaseMethod "getPreferredHeight" o = Gtk.WidgetGetPreferredHeightMethodInfo - ResolveWebViewBaseMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveWebViewBaseMethod "getPreferredHeightForWidth" o = Gtk.WidgetGetPreferredHeightForWidthMethodInfo - ResolveWebViewBaseMethod "getPreferredSize" o = Gtk.WidgetGetPreferredSizeMethodInfo - ResolveWebViewBaseMethod "getPreferredWidth" o = Gtk.WidgetGetPreferredWidthMethodInfo - ResolveWebViewBaseMethod "getPreferredWidthForHeight" o = Gtk.WidgetGetPreferredWidthForHeightMethodInfo - ResolveWebViewBaseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWebViewBaseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWebViewBaseMethod "getRealized" o = Gtk.WidgetGetRealizedMethodInfo - ResolveWebViewBaseMethod "getReceivesDefault" o = Gtk.WidgetGetReceivesDefaultMethodInfo - ResolveWebViewBaseMethod "getRequestMode" o = Gtk.WidgetGetRequestModeMethodInfo - ResolveWebViewBaseMethod "getRequisition" o = Gtk.WidgetGetRequisitionMethodInfo - ResolveWebViewBaseMethod "getResizeMode" o = Gtk.ContainerGetResizeModeMethodInfo - ResolveWebViewBaseMethod "getRootWindow" o = Gtk.WidgetGetRootWindowMethodInfo - ResolveWebViewBaseMethod "getScaleFactor" o = Gtk.WidgetGetScaleFactorMethodInfo - ResolveWebViewBaseMethod "getScreen" o = Gtk.WidgetGetScreenMethodInfo - ResolveWebViewBaseMethod "getSensitive" o = Gtk.WidgetGetSensitiveMethodInfo - ResolveWebViewBaseMethod "getSettings" o = Gtk.WidgetGetSettingsMethodInfo - ResolveWebViewBaseMethod "getSizeRequest" o = Gtk.WidgetGetSizeRequestMethodInfo - ResolveWebViewBaseMethod "getState" o = Gtk.WidgetGetStateMethodInfo - ResolveWebViewBaseMethod "getStateFlags" o = Gtk.WidgetGetStateFlagsMethodInfo - ResolveWebViewBaseMethod "getStyle" o = Gtk.WidgetGetStyleMethodInfo - ResolveWebViewBaseMethod "getStyleContext" o = Gtk.WidgetGetStyleContextMethodInfo - ResolveWebViewBaseMethod "getSupportMultidevice" o = Gtk.WidgetGetSupportMultideviceMethodInfo - ResolveWebViewBaseMethod "getTemplateChild" o = Gtk.WidgetGetTemplateChildMethodInfo - ResolveWebViewBaseMethod "getTooltipMarkup" o = Gtk.WidgetGetTooltipMarkupMethodInfo - ResolveWebViewBaseMethod "getTooltipText" o = Gtk.WidgetGetTooltipTextMethodInfo - ResolveWebViewBaseMethod "getTooltipWindow" o = Gtk.WidgetGetTooltipWindowMethodInfo - ResolveWebViewBaseMethod "getToplevel" o = Gtk.WidgetGetToplevelMethodInfo - ResolveWebViewBaseMethod "getValign" o = Gtk.WidgetGetValignMethodInfo - ResolveWebViewBaseMethod "getValignWithBaseline" o = Gtk.WidgetGetValignWithBaselineMethodInfo - ResolveWebViewBaseMethod "getVexpand" o = Gtk.WidgetGetVexpandMethodInfo - ResolveWebViewBaseMethod "getVexpandSet" o = Gtk.WidgetGetVexpandSetMethodInfo - ResolveWebViewBaseMethod "getVisible" o = Gtk.WidgetGetVisibleMethodInfo - ResolveWebViewBaseMethod "getVisual" o = Gtk.WidgetGetVisualMethodInfo - ResolveWebViewBaseMethod "getWindow" o = Gtk.WidgetGetWindowMethodInfo - ResolveWebViewBaseMethod "setAccelPath" o = Gtk.WidgetSetAccelPathMethodInfo - ResolveWebViewBaseMethod "setAllocation" o = Gtk.WidgetSetAllocationMethodInfo - ResolveWebViewBaseMethod "setAppPaintable" o = Gtk.WidgetSetAppPaintableMethodInfo - ResolveWebViewBaseMethod "setBorderWidth" o = Gtk.ContainerSetBorderWidthMethodInfo - ResolveWebViewBaseMethod "setBuildableProperty" o = Gtk.BuildableSetBuildablePropertyMethodInfo - ResolveWebViewBaseMethod "setCanDefault" o = Gtk.WidgetSetCanDefaultMethodInfo - ResolveWebViewBaseMethod "setCanFocus" o = Gtk.WidgetSetCanFocusMethodInfo - ResolveWebViewBaseMethod "setChildVisible" o = Gtk.WidgetSetChildVisibleMethodInfo - ResolveWebViewBaseMethod "setClip" o = Gtk.WidgetSetClipMethodInfo - ResolveWebViewBaseMethod "setCompositeName" o = Gtk.WidgetSetCompositeNameMethodInfo - ResolveWebViewBaseMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWebViewBaseMethod "setDeviceEnabled" o = Gtk.WidgetSetDeviceEnabledMethodInfo - ResolveWebViewBaseMethod "setDeviceEvents" o = Gtk.WidgetSetDeviceEventsMethodInfo - ResolveWebViewBaseMethod "setDirection" o = Gtk.WidgetSetDirectionMethodInfo - ResolveWebViewBaseMethod "setDoubleBuffered" o = Gtk.WidgetSetDoubleBufferedMethodInfo - ResolveWebViewBaseMethod "setEvents" o = Gtk.WidgetSetEventsMethodInfo - ResolveWebViewBaseMethod "setFocusChain" o = Gtk.ContainerSetFocusChainMethodInfo - ResolveWebViewBaseMethod "setFocusChild" o = Gtk.ContainerSetFocusChildMethodInfo - ResolveWebViewBaseMethod "setFocusHadjustment" o = Gtk.ContainerSetFocusHadjustmentMethodInfo - ResolveWebViewBaseMethod "setFocusVadjustment" o = Gtk.ContainerSetFocusVadjustmentMethodInfo - ResolveWebViewBaseMethod "setFontMap" o = Gtk.WidgetSetFontMapMethodInfo - ResolveWebViewBaseMethod "setFontOptions" o = Gtk.WidgetSetFontOptionsMethodInfo - ResolveWebViewBaseMethod "setHalign" o = Gtk.WidgetSetHalignMethodInfo - ResolveWebViewBaseMethod "setHasTooltip" o = Gtk.WidgetSetHasTooltipMethodInfo - ResolveWebViewBaseMethod "setHasWindow" o = Gtk.WidgetSetHasWindowMethodInfo - ResolveWebViewBaseMethod "setHexpand" o = Gtk.WidgetSetHexpandMethodInfo - ResolveWebViewBaseMethod "setHexpandSet" o = Gtk.WidgetSetHexpandSetMethodInfo - ResolveWebViewBaseMethod "setMapped" o = Gtk.WidgetSetMappedMethodInfo - ResolveWebViewBaseMethod "setMarginBottom" o = Gtk.WidgetSetMarginBottomMethodInfo - ResolveWebViewBaseMethod "setMarginEnd" o = Gtk.WidgetSetMarginEndMethodInfo - ResolveWebViewBaseMethod "setMarginLeft" o = Gtk.WidgetSetMarginLeftMethodInfo - ResolveWebViewBaseMethod "setMarginRight" o = Gtk.WidgetSetMarginRightMethodInfo - ResolveWebViewBaseMethod "setMarginStart" o = Gtk.WidgetSetMarginStartMethodInfo - ResolveWebViewBaseMethod "setMarginTop" o = Gtk.WidgetSetMarginTopMethodInfo - ResolveWebViewBaseMethod "setNoShowAll" o = Gtk.WidgetSetNoShowAllMethodInfo - ResolveWebViewBaseMethod "setOpacity" o = Gtk.WidgetSetOpacityMethodInfo - ResolveWebViewBaseMethod "setParent" o = Gtk.WidgetSetParentMethodInfo - ResolveWebViewBaseMethod "setParentWindow" o = Gtk.WidgetSetParentWindowMethodInfo - ResolveWebViewBaseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWebViewBaseMethod "setRealized" o = Gtk.WidgetSetRealizedMethodInfo - ResolveWebViewBaseMethod "setReallocateRedraws" o = Gtk.ContainerSetReallocateRedrawsMethodInfo - ResolveWebViewBaseMethod "setReceivesDefault" o = Gtk.WidgetSetReceivesDefaultMethodInfo - ResolveWebViewBaseMethod "setRedrawOnAllocate" o = Gtk.WidgetSetRedrawOnAllocateMethodInfo - ResolveWebViewBaseMethod "setResizeMode" o = Gtk.ContainerSetResizeModeMethodInfo - ResolveWebViewBaseMethod "setSensitive" o = Gtk.WidgetSetSensitiveMethodInfo - ResolveWebViewBaseMethod "setSizeRequest" o = Gtk.WidgetSetSizeRequestMethodInfo - ResolveWebViewBaseMethod "setState" o = Gtk.WidgetSetStateMethodInfo - ResolveWebViewBaseMethod "setStateFlags" o = Gtk.WidgetSetStateFlagsMethodInfo - ResolveWebViewBaseMethod "setStyle" o = Gtk.WidgetSetStyleMethodInfo - ResolveWebViewBaseMethod "setSupportMultidevice" o = Gtk.WidgetSetSupportMultideviceMethodInfo - ResolveWebViewBaseMethod "setTooltipMarkup" o = Gtk.WidgetSetTooltipMarkupMethodInfo - ResolveWebViewBaseMethod "setTooltipText" o = Gtk.WidgetSetTooltipTextMethodInfo - ResolveWebViewBaseMethod "setTooltipWindow" o = Gtk.WidgetSetTooltipWindowMethodInfo - ResolveWebViewBaseMethod "setValign" o = Gtk.WidgetSetValignMethodInfo - ResolveWebViewBaseMethod "setVexpand" o = Gtk.WidgetSetVexpandMethodInfo - ResolveWebViewBaseMethod "setVexpandSet" o = Gtk.WidgetSetVexpandSetMethodInfo - ResolveWebViewBaseMethod "setVisible" o = Gtk.WidgetSetVisibleMethodInfo - ResolveWebViewBaseMethod "setVisual" o = Gtk.WidgetSetVisualMethodInfo - ResolveWebViewBaseMethod "setWindow" o = Gtk.WidgetSetWindowMethodInfo - ResolveWebViewBaseMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebViewBaseMethod t WebViewBase, MethodInfo info WebViewBase p) => IsLabelProxy t (WebViewBase -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebViewBaseMethod t WebViewBase, MethodInfo info WebViewBase p) => IsLabel t (WebViewBase -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList WebViewBase = WebViewBaseAttributeList -type WebViewBaseAttributeList = ('[ '("appPaintable", Gtk.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.WidgetCanFocusPropertyInfo), '("child", Gtk.ContainerChildPropertyInfo), '("compositeChild", Gtk.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.WidgetEventsPropertyInfo), '("expand", Gtk.WidgetExpandPropertyInfo), '("halign", Gtk.WidgetHalignPropertyInfo), '("hasDefault", Gtk.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.WidgetIsFocusPropertyInfo), '("margin", Gtk.WidgetMarginPropertyInfo), '("marginBottom", Gtk.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.WidgetMarginTopPropertyInfo), '("name", Gtk.WidgetNamePropertyInfo), '("noShowAll", Gtk.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.WidgetOpacityPropertyInfo), '("parent", Gtk.WidgetParentPropertyInfo), '("receivesDefault", Gtk.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.WidgetSensitivePropertyInfo), '("style", Gtk.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.WidgetTooltipTextPropertyInfo), '("valign", Gtk.WidgetValignPropertyInfo), '("vexpand", Gtk.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.WidgetVexpandSetPropertyInfo), '("visible", Gtk.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.WidgetWidthRequestPropertyInfo), '("window", Gtk.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList WebViewBase = WebViewBaseSignalList -type WebViewBaseSignalList = ('[ '("accelClosuresChanged", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroyEvent", Gtk.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.WidgetDragDropSignalInfo), '("dragEnd", Gtk.WidgetDragEndSignalInfo), '("dragFailed", Gtk.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("eventAfter", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focusInEvent", Gtk.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("mapEvent", Gtk.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", Gtk.WidgetParentSetSignalInfo), '("popupMenu", Gtk.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.WidgetQueryTooltipSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("screenChanged", Gtk.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.ContainerSetFocusChildSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("showHelp", Gtk.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.WidgetTouchEventSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/WebKit2/Objects/WebViewBase.hs-boot b/GI/WebKit2/Objects/WebViewBase.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/WebViewBase.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.WebKit2.Objects.WebViewBase where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WebViewBase = WebViewBase (ForeignPtr WebViewBase) -instance GObject WebViewBase where -class GObject o => WebViewBaseK o -instance (GObject o, IsDescendantOf WebViewBase o) => WebViewBaseK o diff --git a/GI/WebKit2/Objects/WebsiteDataManager.hs b/GI/WebKit2/Objects/WebsiteDataManager.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/WebsiteDataManager.hs +++ /dev/null @@ -1,574 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.WebsiteDataManager - ( - --- * Exported types - WebsiteDataManager(..) , - WebsiteDataManagerK , - toWebsiteDataManager , - noWebsiteDataManager , - - - -- * Methods --- ** websiteDataManagerGetBaseCacheDirectory - WebsiteDataManagerGetBaseCacheDirectoryMethodInfo, - websiteDataManagerGetBaseCacheDirectory , - - --- ** websiteDataManagerGetBaseDataDirectory - WebsiteDataManagerGetBaseDataDirectoryMethodInfo, - websiteDataManagerGetBaseDataDirectory , - - --- ** websiteDataManagerGetDiskCacheDirectory - WebsiteDataManagerGetDiskCacheDirectoryMethodInfo, - websiteDataManagerGetDiskCacheDirectory , - - --- ** websiteDataManagerGetIndexeddbDirectory - WebsiteDataManagerGetIndexeddbDirectoryMethodInfo, - websiteDataManagerGetIndexeddbDirectory , - - --- ** websiteDataManagerGetLocalStorageDirectory - WebsiteDataManagerGetLocalStorageDirectoryMethodInfo, - websiteDataManagerGetLocalStorageDirectory, - - --- ** websiteDataManagerGetOfflineApplicationCacheDirectory - WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo, - websiteDataManagerGetOfflineApplicationCacheDirectory, - - --- ** websiteDataManagerGetWebsqlDirectory - WebsiteDataManagerGetWebsqlDirectoryMethodInfo, - websiteDataManagerGetWebsqlDirectory , - - - - - -- * Properties --- ** BaseCacheDirectory - WebsiteDataManagerBaseCacheDirectoryPropertyInfo, - constructWebsiteDataManagerBaseCacheDirectory, - getWebsiteDataManagerBaseCacheDirectory , - websiteDataManagerBaseCacheDirectory , - - --- ** BaseDataDirectory - WebsiteDataManagerBaseDataDirectoryPropertyInfo, - constructWebsiteDataManagerBaseDataDirectory, - getWebsiteDataManagerBaseDataDirectory , - websiteDataManagerBaseDataDirectory , - - --- ** DiskCacheDirectory - WebsiteDataManagerDiskCacheDirectoryPropertyInfo, - constructWebsiteDataManagerDiskCacheDirectory, - getWebsiteDataManagerDiskCacheDirectory , - websiteDataManagerDiskCacheDirectory , - - --- ** IndexeddbDirectory - WebsiteDataManagerIndexeddbDirectoryPropertyInfo, - constructWebsiteDataManagerIndexeddbDirectory, - getWebsiteDataManagerIndexeddbDirectory , - websiteDataManagerIndexeddbDirectory , - - --- ** LocalStorageDirectory - WebsiteDataManagerLocalStorageDirectoryPropertyInfo, - constructWebsiteDataManagerLocalStorageDirectory, - getWebsiteDataManagerLocalStorageDirectory, - websiteDataManagerLocalStorageDirectory , - - --- ** OfflineApplicationCacheDirectory - WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo, - constructWebsiteDataManagerOfflineApplicationCacheDirectory, - getWebsiteDataManagerOfflineApplicationCacheDirectory, - websiteDataManagerOfflineApplicationCacheDirectory, - - --- ** WebsqlDirectory - WebsiteDataManagerWebsqlDirectoryPropertyInfo, - constructWebsiteDataManagerWebsqlDirectory, - getWebsiteDataManagerWebsqlDirectory , - websiteDataManagerWebsqlDirectory , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject - -newtype WebsiteDataManager = WebsiteDataManager (ForeignPtr WebsiteDataManager) -foreign import ccall "webkit_website_data_manager_get_type" - c_webkit_website_data_manager_get_type :: IO GType - -type instance ParentTypes WebsiteDataManager = WebsiteDataManagerParentTypes -type WebsiteDataManagerParentTypes = '[GObject.Object] - -instance GObject WebsiteDataManager where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_website_data_manager_get_type - - -class GObject o => WebsiteDataManagerK o -instance (GObject o, IsDescendantOf WebsiteDataManager o) => WebsiteDataManagerK o - -toWebsiteDataManager :: WebsiteDataManagerK o => o -> IO WebsiteDataManager -toWebsiteDataManager = unsafeCastTo WebsiteDataManager - -noWebsiteDataManager :: Maybe WebsiteDataManager -noWebsiteDataManager = Nothing - -type family ResolveWebsiteDataManagerMethod (t :: Symbol) (o :: *) :: * where - ResolveWebsiteDataManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWebsiteDataManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWebsiteDataManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWebsiteDataManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWebsiteDataManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWebsiteDataManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWebsiteDataManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWebsiteDataManagerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWebsiteDataManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWebsiteDataManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWebsiteDataManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWebsiteDataManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWebsiteDataManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWebsiteDataManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWebsiteDataManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWebsiteDataManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWebsiteDataManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWebsiteDataManagerMethod "getBaseCacheDirectory" o = WebsiteDataManagerGetBaseCacheDirectoryMethodInfo - ResolveWebsiteDataManagerMethod "getBaseDataDirectory" o = WebsiteDataManagerGetBaseDataDirectoryMethodInfo - ResolveWebsiteDataManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWebsiteDataManagerMethod "getDiskCacheDirectory" o = WebsiteDataManagerGetDiskCacheDirectoryMethodInfo - ResolveWebsiteDataManagerMethod "getIndexeddbDirectory" o = WebsiteDataManagerGetIndexeddbDirectoryMethodInfo - ResolveWebsiteDataManagerMethod "getLocalStorageDirectory" o = WebsiteDataManagerGetLocalStorageDirectoryMethodInfo - ResolveWebsiteDataManagerMethod "getOfflineApplicationCacheDirectory" o = WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo - ResolveWebsiteDataManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWebsiteDataManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWebsiteDataManagerMethod "getWebsqlDirectory" o = WebsiteDataManagerGetWebsqlDirectoryMethodInfo - ResolveWebsiteDataManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWebsiteDataManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWebsiteDataManagerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebsiteDataManagerMethod t WebsiteDataManager, MethodInfo info WebsiteDataManager p) => IsLabelProxy t (WebsiteDataManager -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebsiteDataManagerMethod t WebsiteDataManager, MethodInfo info WebsiteDataManager p) => IsLabel t (WebsiteDataManager -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "base-cache-directory" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebsiteDataManagerBaseCacheDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text -getWebsiteDataManagerBaseCacheDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerBaseCacheDirectory" $ getObjectPropertyString obj "base-cache-directory" - -constructWebsiteDataManagerBaseCacheDirectory :: T.Text -> IO ([Char], GValue) -constructWebsiteDataManagerBaseCacheDirectory val = constructObjectPropertyString "base-cache-directory" (Just val) - -data WebsiteDataManagerBaseCacheDirectoryPropertyInfo -instance AttrInfo WebsiteDataManagerBaseCacheDirectoryPropertyInfo where - type AttrAllowedOps WebsiteDataManagerBaseCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = WebsiteDataManagerK - type AttrGetType WebsiteDataManagerBaseCacheDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerBaseCacheDirectoryPropertyInfo = "base-cache-directory" - attrGet _ = getWebsiteDataManagerBaseCacheDirectory - attrSet _ = undefined - attrConstruct _ = constructWebsiteDataManagerBaseCacheDirectory - attrClear _ = undefined - --- VVV Prop "base-data-directory" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebsiteDataManagerBaseDataDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text -getWebsiteDataManagerBaseDataDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerBaseDataDirectory" $ getObjectPropertyString obj "base-data-directory" - -constructWebsiteDataManagerBaseDataDirectory :: T.Text -> IO ([Char], GValue) -constructWebsiteDataManagerBaseDataDirectory val = constructObjectPropertyString "base-data-directory" (Just val) - -data WebsiteDataManagerBaseDataDirectoryPropertyInfo -instance AttrInfo WebsiteDataManagerBaseDataDirectoryPropertyInfo where - type AttrAllowedOps WebsiteDataManagerBaseDataDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = WebsiteDataManagerK - type AttrGetType WebsiteDataManagerBaseDataDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerBaseDataDirectoryPropertyInfo = "base-data-directory" - attrGet _ = getWebsiteDataManagerBaseDataDirectory - attrSet _ = undefined - attrConstruct _ = constructWebsiteDataManagerBaseDataDirectory - attrClear _ = undefined - --- VVV Prop "disk-cache-directory" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebsiteDataManagerDiskCacheDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text -getWebsiteDataManagerDiskCacheDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerDiskCacheDirectory" $ getObjectPropertyString obj "disk-cache-directory" - -constructWebsiteDataManagerDiskCacheDirectory :: T.Text -> IO ([Char], GValue) -constructWebsiteDataManagerDiskCacheDirectory val = constructObjectPropertyString "disk-cache-directory" (Just val) - -data WebsiteDataManagerDiskCacheDirectoryPropertyInfo -instance AttrInfo WebsiteDataManagerDiskCacheDirectoryPropertyInfo where - type AttrAllowedOps WebsiteDataManagerDiskCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = WebsiteDataManagerK - type AttrGetType WebsiteDataManagerDiskCacheDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerDiskCacheDirectoryPropertyInfo = "disk-cache-directory" - attrGet _ = getWebsiteDataManagerDiskCacheDirectory - attrSet _ = undefined - attrConstruct _ = constructWebsiteDataManagerDiskCacheDirectory - attrClear _ = undefined - --- VVV Prop "indexeddb-directory" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebsiteDataManagerIndexeddbDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text -getWebsiteDataManagerIndexeddbDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerIndexeddbDirectory" $ getObjectPropertyString obj "indexeddb-directory" - -constructWebsiteDataManagerIndexeddbDirectory :: T.Text -> IO ([Char], GValue) -constructWebsiteDataManagerIndexeddbDirectory val = constructObjectPropertyString "indexeddb-directory" (Just val) - -data WebsiteDataManagerIndexeddbDirectoryPropertyInfo -instance AttrInfo WebsiteDataManagerIndexeddbDirectoryPropertyInfo where - type AttrAllowedOps WebsiteDataManagerIndexeddbDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = WebsiteDataManagerK - type AttrGetType WebsiteDataManagerIndexeddbDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerIndexeddbDirectoryPropertyInfo = "indexeddb-directory" - attrGet _ = getWebsiteDataManagerIndexeddbDirectory - attrSet _ = undefined - attrConstruct _ = constructWebsiteDataManagerIndexeddbDirectory - attrClear _ = undefined - --- VVV Prop "local-storage-directory" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebsiteDataManagerLocalStorageDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text -getWebsiteDataManagerLocalStorageDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerLocalStorageDirectory" $ getObjectPropertyString obj "local-storage-directory" - -constructWebsiteDataManagerLocalStorageDirectory :: T.Text -> IO ([Char], GValue) -constructWebsiteDataManagerLocalStorageDirectory val = constructObjectPropertyString "local-storage-directory" (Just val) - -data WebsiteDataManagerLocalStorageDirectoryPropertyInfo -instance AttrInfo WebsiteDataManagerLocalStorageDirectoryPropertyInfo where - type AttrAllowedOps WebsiteDataManagerLocalStorageDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = WebsiteDataManagerK - type AttrGetType WebsiteDataManagerLocalStorageDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerLocalStorageDirectoryPropertyInfo = "local-storage-directory" - attrGet _ = getWebsiteDataManagerLocalStorageDirectory - attrSet _ = undefined - attrConstruct _ = constructWebsiteDataManagerLocalStorageDirectory - attrClear _ = undefined - --- VVV Prop "offline-application-cache-directory" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebsiteDataManagerOfflineApplicationCacheDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text -getWebsiteDataManagerOfflineApplicationCacheDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerOfflineApplicationCacheDirectory" $ getObjectPropertyString obj "offline-application-cache-directory" - -constructWebsiteDataManagerOfflineApplicationCacheDirectory :: T.Text -> IO ([Char], GValue) -constructWebsiteDataManagerOfflineApplicationCacheDirectory val = constructObjectPropertyString "offline-application-cache-directory" (Just val) - -data WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo -instance AttrInfo WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo where - type AttrAllowedOps WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = WebsiteDataManagerK - type AttrGetType WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = "offline-application-cache-directory" - attrGet _ = getWebsiteDataManagerOfflineApplicationCacheDirectory - attrSet _ = undefined - attrConstruct _ = constructWebsiteDataManagerOfflineApplicationCacheDirectory - attrClear _ = undefined - --- VVV Prop "websql-directory" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebsiteDataManagerWebsqlDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text -getWebsiteDataManagerWebsqlDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerWebsqlDirectory" $ getObjectPropertyString obj "websql-directory" - -constructWebsiteDataManagerWebsqlDirectory :: T.Text -> IO ([Char], GValue) -constructWebsiteDataManagerWebsqlDirectory val = constructObjectPropertyString "websql-directory" (Just val) - -data WebsiteDataManagerWebsqlDirectoryPropertyInfo -instance AttrInfo WebsiteDataManagerWebsqlDirectoryPropertyInfo where - type AttrAllowedOps WebsiteDataManagerWebsqlDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = WebsiteDataManagerK - type AttrGetType WebsiteDataManagerWebsqlDirectoryPropertyInfo = T.Text - type AttrLabel WebsiteDataManagerWebsqlDirectoryPropertyInfo = "websql-directory" - attrGet _ = getWebsiteDataManagerWebsqlDirectory - attrSet _ = undefined - attrConstruct _ = constructWebsiteDataManagerWebsqlDirectory - attrClear _ = undefined - -type instance AttributeList WebsiteDataManager = WebsiteDataManagerAttributeList -type WebsiteDataManagerAttributeList = ('[ '("baseCacheDirectory", WebsiteDataManagerBaseCacheDirectoryPropertyInfo), '("baseDataDirectory", WebsiteDataManagerBaseDataDirectoryPropertyInfo), '("diskCacheDirectory", WebsiteDataManagerDiskCacheDirectoryPropertyInfo), '("indexeddbDirectory", WebsiteDataManagerIndexeddbDirectoryPropertyInfo), '("localStorageDirectory", WebsiteDataManagerLocalStorageDirectoryPropertyInfo), '("offlineApplicationCacheDirectory", WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo), '("websqlDirectory", WebsiteDataManagerWebsqlDirectoryPropertyInfo)] :: [(Symbol, *)]) - -websiteDataManagerBaseCacheDirectory :: AttrLabelProxy "baseCacheDirectory" -websiteDataManagerBaseCacheDirectory = AttrLabelProxy - -websiteDataManagerBaseDataDirectory :: AttrLabelProxy "baseDataDirectory" -websiteDataManagerBaseDataDirectory = AttrLabelProxy - -websiteDataManagerDiskCacheDirectory :: AttrLabelProxy "diskCacheDirectory" -websiteDataManagerDiskCacheDirectory = AttrLabelProxy - -websiteDataManagerIndexeddbDirectory :: AttrLabelProxy "indexeddbDirectory" -websiteDataManagerIndexeddbDirectory = AttrLabelProxy - -websiteDataManagerLocalStorageDirectory :: AttrLabelProxy "localStorageDirectory" -websiteDataManagerLocalStorageDirectory = AttrLabelProxy - -websiteDataManagerOfflineApplicationCacheDirectory :: AttrLabelProxy "offlineApplicationCacheDirectory" -websiteDataManagerOfflineApplicationCacheDirectory = AttrLabelProxy - -websiteDataManagerWebsqlDirectory :: AttrLabelProxy "websqlDirectory" -websiteDataManagerWebsqlDirectory = AttrLabelProxy - -type instance SignalList WebsiteDataManager = WebsiteDataManagerSignalList -type WebsiteDataManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method WebsiteDataManager::get_base_cache_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_website_data_manager_get_base_cache_directory" webkit_website_data_manager_get_base_cache_directory :: - Ptr WebsiteDataManager -> -- _obj : TInterface "WebKit2" "WebsiteDataManager" - IO CString - - -websiteDataManagerGetBaseCacheDirectory :: - (MonadIO m, WebsiteDataManagerK a) => - a -- _obj - -> m T.Text -- result -websiteDataManagerGetBaseCacheDirectory _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_website_data_manager_get_base_cache_directory _obj' - checkUnexpectedReturnNULL "webkit_website_data_manager_get_base_cache_directory" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WebsiteDataManagerGetBaseCacheDirectoryMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetBaseCacheDirectoryMethodInfo a signature where - overloadedMethod _ = websiteDataManagerGetBaseCacheDirectory - --- method WebsiteDataManager::get_base_data_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_website_data_manager_get_base_data_directory" webkit_website_data_manager_get_base_data_directory :: - Ptr WebsiteDataManager -> -- _obj : TInterface "WebKit2" "WebsiteDataManager" - IO CString - - -websiteDataManagerGetBaseDataDirectory :: - (MonadIO m, WebsiteDataManagerK a) => - a -- _obj - -> m T.Text -- result -websiteDataManagerGetBaseDataDirectory _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_website_data_manager_get_base_data_directory _obj' - checkUnexpectedReturnNULL "webkit_website_data_manager_get_base_data_directory" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WebsiteDataManagerGetBaseDataDirectoryMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetBaseDataDirectoryMethodInfo a signature where - overloadedMethod _ = websiteDataManagerGetBaseDataDirectory - --- method WebsiteDataManager::get_disk_cache_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_website_data_manager_get_disk_cache_directory" webkit_website_data_manager_get_disk_cache_directory :: - Ptr WebsiteDataManager -> -- _obj : TInterface "WebKit2" "WebsiteDataManager" - IO CString - - -websiteDataManagerGetDiskCacheDirectory :: - (MonadIO m, WebsiteDataManagerK a) => - a -- _obj - -> m T.Text -- result -websiteDataManagerGetDiskCacheDirectory _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_website_data_manager_get_disk_cache_directory _obj' - checkUnexpectedReturnNULL "webkit_website_data_manager_get_disk_cache_directory" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WebsiteDataManagerGetDiskCacheDirectoryMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetDiskCacheDirectoryMethodInfo a signature where - overloadedMethod _ = websiteDataManagerGetDiskCacheDirectory - --- method WebsiteDataManager::get_indexeddb_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_website_data_manager_get_indexeddb_directory" webkit_website_data_manager_get_indexeddb_directory :: - Ptr WebsiteDataManager -> -- _obj : TInterface "WebKit2" "WebsiteDataManager" - IO CString - - -websiteDataManagerGetIndexeddbDirectory :: - (MonadIO m, WebsiteDataManagerK a) => - a -- _obj - -> m T.Text -- result -websiteDataManagerGetIndexeddbDirectory _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_website_data_manager_get_indexeddb_directory _obj' - checkUnexpectedReturnNULL "webkit_website_data_manager_get_indexeddb_directory" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WebsiteDataManagerGetIndexeddbDirectoryMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetIndexeddbDirectoryMethodInfo a signature where - overloadedMethod _ = websiteDataManagerGetIndexeddbDirectory - --- method WebsiteDataManager::get_local_storage_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_website_data_manager_get_local_storage_directory" webkit_website_data_manager_get_local_storage_directory :: - Ptr WebsiteDataManager -> -- _obj : TInterface "WebKit2" "WebsiteDataManager" - IO CString - - -websiteDataManagerGetLocalStorageDirectory :: - (MonadIO m, WebsiteDataManagerK a) => - a -- _obj - -> m T.Text -- result -websiteDataManagerGetLocalStorageDirectory _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_website_data_manager_get_local_storage_directory _obj' - checkUnexpectedReturnNULL "webkit_website_data_manager_get_local_storage_directory" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WebsiteDataManagerGetLocalStorageDirectoryMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetLocalStorageDirectoryMethodInfo a signature where - overloadedMethod _ = websiteDataManagerGetLocalStorageDirectory - --- method WebsiteDataManager::get_offline_application_cache_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_website_data_manager_get_offline_application_cache_directory" webkit_website_data_manager_get_offline_application_cache_directory :: - Ptr WebsiteDataManager -> -- _obj : TInterface "WebKit2" "WebsiteDataManager" - IO CString - - -websiteDataManagerGetOfflineApplicationCacheDirectory :: - (MonadIO m, WebsiteDataManagerK a) => - a -- _obj - -> m T.Text -- result -websiteDataManagerGetOfflineApplicationCacheDirectory _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_website_data_manager_get_offline_application_cache_directory _obj' - checkUnexpectedReturnNULL "webkit_website_data_manager_get_offline_application_cache_directory" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo a signature where - overloadedMethod _ = websiteDataManagerGetOfflineApplicationCacheDirectory - --- method WebsiteDataManager::get_websql_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_website_data_manager_get_websql_directory" webkit_website_data_manager_get_websql_directory :: - Ptr WebsiteDataManager -> -- _obj : TInterface "WebKit2" "WebsiteDataManager" - IO CString - - -websiteDataManagerGetWebsqlDirectory :: - (MonadIO m, WebsiteDataManagerK a) => - a -- _obj - -> m T.Text -- result -websiteDataManagerGetWebsqlDirectory _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_website_data_manager_get_websql_directory _obj' - checkUnexpectedReturnNULL "webkit_website_data_manager_get_websql_directory" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WebsiteDataManagerGetWebsqlDirectoryMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetWebsqlDirectoryMethodInfo a signature where - overloadedMethod _ = websiteDataManagerGetWebsqlDirectory - - diff --git a/GI/WebKit2/Objects/WebsiteDataManager.hs-boot b/GI/WebKit2/Objects/WebsiteDataManager.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/WebsiteDataManager.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.WebKit2.Objects.WebsiteDataManager where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WebsiteDataManager = WebsiteDataManager (ForeignPtr WebsiteDataManager) -instance GObject WebsiteDataManager where -class GObject o => WebsiteDataManagerK o -instance (GObject o, IsDescendantOf WebsiteDataManager o) => WebsiteDataManagerK o -data WebsiteDataManagerBaseCacheDirectoryPropertyInfo -data WebsiteDataManagerBaseDataDirectoryPropertyInfo -data WebsiteDataManagerDiskCacheDirectoryPropertyInfo -data WebsiteDataManagerIndexeddbDirectoryPropertyInfo -data WebsiteDataManagerLocalStorageDirectoryPropertyInfo -data WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo -data WebsiteDataManagerWebsqlDirectoryPropertyInfo -data WebsiteDataManagerGetBaseCacheDirectoryMethodInfo -data WebsiteDataManagerGetBaseDataDirectoryMethodInfo -data WebsiteDataManagerGetDiskCacheDirectoryMethodInfo -data WebsiteDataManagerGetIndexeddbDirectoryMethodInfo -data WebsiteDataManagerGetLocalStorageDirectoryMethodInfo -data WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo -data WebsiteDataManagerGetWebsqlDirectoryMethodInfo diff --git a/GI/WebKit2/Objects/WindowProperties.hs b/GI/WebKit2/Objects/WindowProperties.hs deleted file mode 100644 --- a/GI/WebKit2/Objects/WindowProperties.hs +++ /dev/null @@ -1,637 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Objects.WindowProperties - ( - --- * Exported types - WindowProperties(..) , - WindowPropertiesK , - toWindowProperties , - noWindowProperties , - - - -- * Methods --- ** windowPropertiesGetFullscreen - WindowPropertiesGetFullscreenMethodInfo , - windowPropertiesGetFullscreen , - - --- ** windowPropertiesGetGeometry - WindowPropertiesGetGeometryMethodInfo , - windowPropertiesGetGeometry , - - --- ** windowPropertiesGetLocationbarVisible - WindowPropertiesGetLocationbarVisibleMethodInfo, - windowPropertiesGetLocationbarVisible , - - --- ** windowPropertiesGetMenubarVisible - WindowPropertiesGetMenubarVisibleMethodInfo, - windowPropertiesGetMenubarVisible , - - --- ** windowPropertiesGetResizable - WindowPropertiesGetResizableMethodInfo , - windowPropertiesGetResizable , - - --- ** windowPropertiesGetScrollbarsVisible - WindowPropertiesGetScrollbarsVisibleMethodInfo, - windowPropertiesGetScrollbarsVisible , - - --- ** windowPropertiesGetStatusbarVisible - WindowPropertiesGetStatusbarVisibleMethodInfo, - windowPropertiesGetStatusbarVisible , - - --- ** windowPropertiesGetToolbarVisible - WindowPropertiesGetToolbarVisibleMethodInfo, - windowPropertiesGetToolbarVisible , - - - - - -- * Properties --- ** Fullscreen - WindowPropertiesFullscreenPropertyInfo , - constructWindowPropertiesFullscreen , - getWindowPropertiesFullscreen , - windowPropertiesFullscreen , - - --- ** Geometry - WindowPropertiesGeometryPropertyInfo , - constructWindowPropertiesGeometry , - getWindowPropertiesGeometry , - windowPropertiesGeometry , - - --- ** LocationbarVisible - WindowPropertiesLocationbarVisiblePropertyInfo, - constructWindowPropertiesLocationbarVisible, - getWindowPropertiesLocationbarVisible , - windowPropertiesLocationbarVisible , - - --- ** MenubarVisible - WindowPropertiesMenubarVisiblePropertyInfo, - constructWindowPropertiesMenubarVisible , - getWindowPropertiesMenubarVisible , - windowPropertiesMenubarVisible , - - --- ** Resizable - WindowPropertiesResizablePropertyInfo , - constructWindowPropertiesResizable , - getWindowPropertiesResizable , - windowPropertiesResizable , - - --- ** ScrollbarsVisible - WindowPropertiesScrollbarsVisiblePropertyInfo, - constructWindowPropertiesScrollbarsVisible, - getWindowPropertiesScrollbarsVisible , - windowPropertiesScrollbarsVisible , - - --- ** StatusbarVisible - WindowPropertiesStatusbarVisiblePropertyInfo, - constructWindowPropertiesStatusbarVisible, - getWindowPropertiesStatusbarVisible , - windowPropertiesStatusbarVisible , - - --- ** ToolbarVisible - WindowPropertiesToolbarVisiblePropertyInfo, - constructWindowPropertiesToolbarVisible , - getWindowPropertiesToolbarVisible , - windowPropertiesToolbarVisible , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype WindowProperties = WindowProperties (ForeignPtr WindowProperties) -foreign import ccall "webkit_window_properties_get_type" - c_webkit_window_properties_get_type :: IO GType - -type instance ParentTypes WindowProperties = WindowPropertiesParentTypes -type WindowPropertiesParentTypes = '[GObject.Object] - -instance GObject WindowProperties where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_window_properties_get_type - - -class GObject o => WindowPropertiesK o -instance (GObject o, IsDescendantOf WindowProperties o) => WindowPropertiesK o - -toWindowProperties :: WindowPropertiesK o => o -> IO WindowProperties -toWindowProperties = unsafeCastTo WindowProperties - -noWindowProperties :: Maybe WindowProperties -noWindowProperties = Nothing - -type family ResolveWindowPropertiesMethod (t :: Symbol) (o :: *) :: * where - ResolveWindowPropertiesMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWindowPropertiesMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWindowPropertiesMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWindowPropertiesMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWindowPropertiesMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWindowPropertiesMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWindowPropertiesMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWindowPropertiesMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWindowPropertiesMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWindowPropertiesMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWindowPropertiesMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWindowPropertiesMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWindowPropertiesMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWindowPropertiesMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWindowPropertiesMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWindowPropertiesMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWindowPropertiesMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWindowPropertiesMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWindowPropertiesMethod "getFullscreen" o = WindowPropertiesGetFullscreenMethodInfo - ResolveWindowPropertiesMethod "getGeometry" o = WindowPropertiesGetGeometryMethodInfo - ResolveWindowPropertiesMethod "getLocationbarVisible" o = WindowPropertiesGetLocationbarVisibleMethodInfo - ResolveWindowPropertiesMethod "getMenubarVisible" o = WindowPropertiesGetMenubarVisibleMethodInfo - ResolveWindowPropertiesMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWindowPropertiesMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWindowPropertiesMethod "getResizable" o = WindowPropertiesGetResizableMethodInfo - ResolveWindowPropertiesMethod "getScrollbarsVisible" o = WindowPropertiesGetScrollbarsVisibleMethodInfo - ResolveWindowPropertiesMethod "getStatusbarVisible" o = WindowPropertiesGetStatusbarVisibleMethodInfo - ResolveWindowPropertiesMethod "getToolbarVisible" o = WindowPropertiesGetToolbarVisibleMethodInfo - ResolveWindowPropertiesMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWindowPropertiesMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWindowPropertiesMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, MethodInfo info WindowProperties p) => IsLabelProxy t (WindowProperties -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, MethodInfo info WindowProperties p) => IsLabel t (WindowProperties -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "fullscreen" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -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 = "fullscreen" - attrGet _ = getWindowPropertiesFullscreen - attrSet _ = undefined - attrConstruct _ = constructWindowPropertiesFullscreen - attrClear _ = undefined - --- VVV Prop "geometry" - -- Type: TInterface "Gdk" "Rectangle" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getWindowPropertiesGeometry :: (MonadIO m, WindowPropertiesK o) => o -> m (Maybe Gdk.Rectangle) -getWindowPropertiesGeometry obj = liftIO $ getObjectPropertyBoxed obj "geometry" Gdk.Rectangle - -constructWindowPropertiesGeometry :: Gdk.Rectangle -> IO ([Char], GValue) -constructWindowPropertiesGeometry val = constructObjectPropertyBoxed "geometry" (Just val) - -data WindowPropertiesGeometryPropertyInfo -instance AttrInfo WindowPropertiesGeometryPropertyInfo where - type AttrAllowedOps WindowPropertiesGeometryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowPropertiesGeometryPropertyInfo = (~) Gdk.Rectangle - type AttrBaseTypeConstraint WindowPropertiesGeometryPropertyInfo = WindowPropertiesK - type AttrGetType WindowPropertiesGeometryPropertyInfo = (Maybe Gdk.Rectangle) - type AttrLabel WindowPropertiesGeometryPropertyInfo = "geometry" - attrGet _ = getWindowPropertiesGeometry - attrSet _ = undefined - attrConstruct _ = constructWindowPropertiesGeometry - attrClear _ = undefined - --- VVV Prop "locationbar-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -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 = "locationbar-visible" - attrGet _ = getWindowPropertiesLocationbarVisible - attrSet _ = undefined - attrConstruct _ = constructWindowPropertiesLocationbarVisible - attrClear _ = undefined - --- VVV Prop "menubar-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -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 = "menubar-visible" - attrGet _ = getWindowPropertiesMenubarVisible - attrSet _ = undefined - attrConstruct _ = constructWindowPropertiesMenubarVisible - attrClear _ = undefined - --- VVV Prop "resizable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -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 = "resizable" - attrGet _ = getWindowPropertiesResizable - attrSet _ = undefined - attrConstruct _ = constructWindowPropertiesResizable - attrClear _ = undefined - --- VVV Prop "scrollbars-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -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 = "scrollbars-visible" - attrGet _ = getWindowPropertiesScrollbarsVisible - attrSet _ = undefined - attrConstruct _ = constructWindowPropertiesScrollbarsVisible - attrClear _ = undefined - --- VVV Prop "statusbar-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -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 = "statusbar-visible" - attrGet _ = getWindowPropertiesStatusbarVisible - attrSet _ = undefined - attrConstruct _ = constructWindowPropertiesStatusbarVisible - attrClear _ = undefined - --- VVV Prop "toolbar-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -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 = "toolbar-visible" - attrGet _ = getWindowPropertiesToolbarVisible - attrSet _ = undefined - attrConstruct _ = constructWindowPropertiesToolbarVisible - attrClear _ = undefined - -type instance AttributeList WindowProperties = WindowPropertiesAttributeList -type WindowPropertiesAttributeList = ('[ '("fullscreen", WindowPropertiesFullscreenPropertyInfo), '("geometry", WindowPropertiesGeometryPropertyInfo), '("locationbarVisible", WindowPropertiesLocationbarVisiblePropertyInfo), '("menubarVisible", WindowPropertiesMenubarVisiblePropertyInfo), '("resizable", WindowPropertiesResizablePropertyInfo), '("scrollbarsVisible", WindowPropertiesScrollbarsVisiblePropertyInfo), '("statusbarVisible", WindowPropertiesStatusbarVisiblePropertyInfo), '("toolbarVisible", WindowPropertiesToolbarVisiblePropertyInfo)] :: [(Symbol, *)]) - -windowPropertiesFullscreen :: AttrLabelProxy "fullscreen" -windowPropertiesFullscreen = AttrLabelProxy - -windowPropertiesGeometry :: AttrLabelProxy "geometry" -windowPropertiesGeometry = AttrLabelProxy - -windowPropertiesLocationbarVisible :: AttrLabelProxy "locationbarVisible" -windowPropertiesLocationbarVisible = AttrLabelProxy - -windowPropertiesMenubarVisible :: AttrLabelProxy "menubarVisible" -windowPropertiesMenubarVisible = AttrLabelProxy - -windowPropertiesResizable :: AttrLabelProxy "resizable" -windowPropertiesResizable = AttrLabelProxy - -windowPropertiesScrollbarsVisible :: AttrLabelProxy "scrollbarsVisible" -windowPropertiesScrollbarsVisible = AttrLabelProxy - -windowPropertiesStatusbarVisible :: AttrLabelProxy "statusbarVisible" -windowPropertiesStatusbarVisible = AttrLabelProxy - -windowPropertiesToolbarVisible :: AttrLabelProxy "toolbarVisible" -windowPropertiesToolbarVisible = AttrLabelProxy - -type instance SignalList WindowProperties = WindowPropertiesSignalList -type WindowPropertiesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method WindowProperties::get_fullscreen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_window_properties_get_fullscreen" webkit_window_properties_get_fullscreen :: - Ptr WindowProperties -> -- _obj : TInterface "WebKit2" "WindowProperties" - IO CInt - - -windowPropertiesGetFullscreen :: - (MonadIO m, WindowPropertiesK a) => - a -- _obj - -> m Bool -- result -windowPropertiesGetFullscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_window_properties_get_fullscreen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowPropertiesGetFullscreenMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetFullscreenMethodInfo a signature where - overloadedMethod _ = windowPropertiesGetFullscreen - --- method WindowProperties::get_geometry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 Gdk.Rectangle -> -- geometry : TInterface "Gdk" "Rectangle" - IO () - - -windowPropertiesGetGeometry :: - (MonadIO m, WindowPropertiesK a) => - a -- _obj - -> m (Gdk.Rectangle) -- result -windowPropertiesGetGeometry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - geometry <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - webkit_window_properties_get_geometry _obj' geometry - geometry' <- (wrapBoxed Gdk.Rectangle) geometry - touchManagedPtr _obj - return geometry' - -data WindowPropertiesGetGeometryMethodInfo -instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetGeometryMethodInfo a signature where - overloadedMethod _ = windowPropertiesGetGeometry - --- method WindowProperties::get_locationbar_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_window_properties_get_locationbar_visible" webkit_window_properties_get_locationbar_visible :: - Ptr WindowProperties -> -- _obj : TInterface "WebKit2" "WindowProperties" - IO CInt - - -windowPropertiesGetLocationbarVisible :: - (MonadIO m, WindowPropertiesK a) => - a -- _obj - -> m Bool -- result -windowPropertiesGetLocationbarVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_window_properties_get_locationbar_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowPropertiesGetLocationbarVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetLocationbarVisibleMethodInfo a signature where - overloadedMethod _ = windowPropertiesGetLocationbarVisible - --- method WindowProperties::get_menubar_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_window_properties_get_menubar_visible" webkit_window_properties_get_menubar_visible :: - Ptr WindowProperties -> -- _obj : TInterface "WebKit2" "WindowProperties" - IO CInt - - -windowPropertiesGetMenubarVisible :: - (MonadIO m, WindowPropertiesK a) => - a -- _obj - -> m Bool -- result -windowPropertiesGetMenubarVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_window_properties_get_menubar_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowPropertiesGetMenubarVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetMenubarVisibleMethodInfo a signature where - overloadedMethod _ = windowPropertiesGetMenubarVisible - --- method WindowProperties::get_resizable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_window_properties_get_resizable" webkit_window_properties_get_resizable :: - Ptr WindowProperties -> -- _obj : TInterface "WebKit2" "WindowProperties" - IO CInt - - -windowPropertiesGetResizable :: - (MonadIO m, WindowPropertiesK a) => - a -- _obj - -> m Bool -- result -windowPropertiesGetResizable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_window_properties_get_resizable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowPropertiesGetResizableMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetResizableMethodInfo a signature where - overloadedMethod _ = windowPropertiesGetResizable - --- method WindowProperties::get_scrollbars_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_window_properties_get_scrollbars_visible" webkit_window_properties_get_scrollbars_visible :: - Ptr WindowProperties -> -- _obj : TInterface "WebKit2" "WindowProperties" - IO CInt - - -windowPropertiesGetScrollbarsVisible :: - (MonadIO m, WindowPropertiesK a) => - a -- _obj - -> m Bool -- result -windowPropertiesGetScrollbarsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_window_properties_get_scrollbars_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowPropertiesGetScrollbarsVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetScrollbarsVisibleMethodInfo a signature where - overloadedMethod _ = windowPropertiesGetScrollbarsVisible - --- method WindowProperties::get_statusbar_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_window_properties_get_statusbar_visible" webkit_window_properties_get_statusbar_visible :: - Ptr WindowProperties -> -- _obj : TInterface "WebKit2" "WindowProperties" - IO CInt - - -windowPropertiesGetStatusbarVisible :: - (MonadIO m, WindowPropertiesK a) => - a -- _obj - -> m Bool -- result -windowPropertiesGetStatusbarVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_window_properties_get_statusbar_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowPropertiesGetStatusbarVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetStatusbarVisibleMethodInfo a signature where - overloadedMethod _ = windowPropertiesGetStatusbarVisible - --- method WindowProperties::get_toolbar_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_window_properties_get_toolbar_visible" webkit_window_properties_get_toolbar_visible :: - Ptr WindowProperties -> -- _obj : TInterface "WebKit2" "WindowProperties" - IO CInt - - -windowPropertiesGetToolbarVisible :: - (MonadIO m, WindowPropertiesK a) => - a -- _obj - -> m Bool -- result -windowPropertiesGetToolbarVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_window_properties_get_toolbar_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowPropertiesGetToolbarVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetToolbarVisibleMethodInfo a signature where - overloadedMethod _ = windowPropertiesGetToolbarVisible - - diff --git a/GI/WebKit2/Objects/WindowProperties.hs-boot b/GI/WebKit2/Objects/WindowProperties.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Objects/WindowProperties.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -module GI.WebKit2.Objects.WindowProperties where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WindowProperties = WindowProperties (ForeignPtr WindowProperties) -instance GObject WindowProperties where -class GObject o => WindowPropertiesK o -instance (GObject o, IsDescendantOf WindowProperties o) => WindowPropertiesK o -data WindowPropertiesFullscreenPropertyInfo -data WindowPropertiesGeometryPropertyInfo -data WindowPropertiesLocationbarVisiblePropertyInfo -data WindowPropertiesMenubarVisiblePropertyInfo -data WindowPropertiesResizablePropertyInfo -data WindowPropertiesScrollbarsVisiblePropertyInfo -data WindowPropertiesStatusbarVisiblePropertyInfo -data WindowPropertiesToolbarVisiblePropertyInfo -data WindowPropertiesGetFullscreenMethodInfo -data WindowPropertiesGetGeometryMethodInfo -data WindowPropertiesGetLocationbarVisibleMethodInfo -data WindowPropertiesGetMenubarVisibleMethodInfo -data WindowPropertiesGetResizableMethodInfo -data WindowPropertiesGetScrollbarsVisibleMethodInfo -data WindowPropertiesGetStatusbarVisibleMethodInfo -data WindowPropertiesGetToolbarVisibleMethodInfo diff --git a/GI/WebKit2/Structs.hs b/GI/WebKit2/Structs.hs deleted file mode 100644 --- a/GI/WebKit2/Structs.hs +++ /dev/null @@ -1,41 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Structs - ( module GI.WebKit2.Structs.Credential , - module GI.WebKit2.Structs.JavascriptResult, - module GI.WebKit2.Structs.MimeInfo , - module GI.WebKit2.Structs.NavigationAction, - module GI.WebKit2.Structs.ScriptDialog , - module GI.WebKit2.Structs.UserScript , - module GI.WebKit2.Structs.UserStyleSheet, - module GI.WebKit2.Structs.WebViewSessionState, - - - ) where - -import GI.WebKit2.Structs.Credential -import GI.WebKit2.Structs.JavascriptResult -import GI.WebKit2.Structs.MimeInfo -import GI.WebKit2.Structs.NavigationAction -import GI.WebKit2.Structs.ScriptDialog -import GI.WebKit2.Structs.UserScript -import GI.WebKit2.Structs.UserStyleSheet -import GI.WebKit2.Structs.WebViewSessionState - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - - diff --git a/GI/WebKit2/Structs/Credential.hs b/GI/WebKit2/Structs/Credential.hs deleted file mode 100644 --- a/GI/WebKit2/Structs/Credential.hs +++ /dev/null @@ -1,299 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Structs.Credential - ( - --- * Exported types - Credential(..) , - noCredential , - - - -- * Methods --- ** credentialCopy - CredentialCopyMethodInfo , - credentialCopy , - - --- ** credentialFree - CredentialFreeMethodInfo , - credentialFree , - - --- ** credentialGetPassword - CredentialGetPasswordMethodInfo , - credentialGetPassword , - - --- ** credentialGetPersistence - CredentialGetPersistenceMethodInfo , - credentialGetPersistence , - - --- ** credentialGetUsername - CredentialGetUsernameMethodInfo , - credentialGetUsername , - - --- ** credentialHasPassword - CredentialHasPasswordMethodInfo , - credentialHasPassword , - - --- ** credentialNew - credentialNew , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - -newtype Credential = Credential (ForeignPtr Credential) -foreign import ccall "webkit_credential_get_type" c_webkit_credential_get_type :: - IO GType - -instance BoxedObject Credential where - boxedType _ = c_webkit_credential_get_type - -noCredential :: Maybe Credential -noCredential = Nothing - - -type instance AttributeList Credential = CredentialAttributeList -type CredentialAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Credential::new --- method type : Constructor --- Args : [Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "persistence", argType = TInterface "WebKit2" "CredentialPersistence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CredentialCopyMethodInfo -instance (signature ~ (m Credential), MonadIO m) => MethodInfo CredentialCopyMethodInfo Credential signature where - overloadedMethod _ = credentialCopy - --- method Credential::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_credential_free" webkit_credential_free :: - Ptr Credential -> -- _obj : TInterface "WebKit2" "Credential" - IO () - - -credentialFree :: - (MonadIO m) => - Credential -- _obj - -> m () -- result -credentialFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - webkit_credential_free _obj' - touchManagedPtr _obj - return () - -data CredentialFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo CredentialFreeMethodInfo Credential signature where - overloadedMethod _ = credentialFree - --- method Credential::get_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_credential_get_password" webkit_credential_get_password :: - Ptr Credential -> -- _obj : TInterface "WebKit2" "Credential" - IO CString - - -credentialGetPassword :: - (MonadIO m) => - Credential -- _obj - -> m T.Text -- result -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' - -data CredentialGetPasswordMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CredentialGetPasswordMethodInfo Credential signature where - overloadedMethod _ = credentialGetPassword - --- method Credential::get_persistence --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -credentialGetPersistence _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_credential_get_persistence _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data CredentialGetPersistenceMethodInfo -instance (signature ~ (m CredentialPersistence), MonadIO m) => MethodInfo CredentialGetPersistenceMethodInfo Credential signature where - overloadedMethod _ = credentialGetPersistence - --- method Credential::get_username --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_credential_get_username" webkit_credential_get_username :: - Ptr Credential -> -- _obj : TInterface "WebKit2" "Credential" - IO CString - - -credentialGetUsername :: - (MonadIO m) => - Credential -- _obj - -> m T.Text -- result -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' - -data CredentialGetUsernameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CredentialGetUsernameMethodInfo Credential signature where - overloadedMethod _ = credentialGetUsername - --- method Credential::has_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_credential_has_password" webkit_credential_has_password :: - Ptr Credential -> -- _obj : TInterface "WebKit2" "Credential" - IO CInt - - -credentialHasPassword :: - (MonadIO m) => - Credential -- _obj - -> m Bool -- result -credentialHasPassword _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_credential_has_password _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CredentialHasPasswordMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo CredentialHasPasswordMethodInfo Credential signature where - overloadedMethod _ = credentialHasPassword - -type family ResolveCredentialMethod (t :: Symbol) (o :: *) :: * where - ResolveCredentialMethod "copy" o = CredentialCopyMethodInfo - ResolveCredentialMethod "free" o = CredentialFreeMethodInfo - ResolveCredentialMethod "hasPassword" o = CredentialHasPasswordMethodInfo - ResolveCredentialMethod "getPassword" o = CredentialGetPasswordMethodInfo - ResolveCredentialMethod "getPersistence" o = CredentialGetPersistenceMethodInfo - ResolveCredentialMethod "getUsername" o = CredentialGetUsernameMethodInfo - ResolveCredentialMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCredentialMethod t Credential, MethodInfo info Credential p) => IsLabelProxy t (Credential -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCredentialMethod t Credential, MethodInfo info Credential p) => IsLabel t (Credential -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/WebKit2/Structs/Credential.hs-boot b/GI/WebKit2/Structs/Credential.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Structs/Credential.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.WebKit2.Structs.Credential where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Credential = Credential (ForeignPtr Credential) -instance BoxedObject Credential where -data CredentialCopyMethodInfo -data CredentialFreeMethodInfo -data CredentialGetPasswordMethodInfo -data CredentialGetPersistenceMethodInfo -data CredentialGetUsernameMethodInfo -data CredentialHasPasswordMethodInfo diff --git a/GI/WebKit2/Structs/JavascriptResult.hs b/GI/WebKit2/Structs/JavascriptResult.hs deleted file mode 100644 --- a/GI/WebKit2/Structs/JavascriptResult.hs +++ /dev/null @@ -1,196 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Structs.JavascriptResult - ( - --- * Exported types - JavascriptResult(..) , - noJavascriptResult , - - - -- * Methods --- ** javascriptResultGetGlobalContext - JavascriptResultGetGlobalContextMethodInfo, - javascriptResultGetGlobalContext , - - --- ** javascriptResultGetValue - JavascriptResultGetValueMethodInfo , - javascriptResultGetValue , - - --- ** javascriptResultRef - JavascriptResultRefMethodInfo , - javascriptResultRef , - - --- ** javascriptResultUnref - JavascriptResultUnrefMethodInfo , - javascriptResultUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.JavaScriptCore as JavaScriptCore - -newtype JavascriptResult = JavascriptResult (ForeignPtr JavascriptResult) -foreign import ccall "webkit_javascript_result_get_type" c_webkit_javascript_result_get_type :: - IO GType - -instance BoxedObject JavascriptResult where - boxedType _ = c_webkit_javascript_result_get_type - -noJavascriptResult :: Maybe JavascriptResult -noJavascriptResult = Nothing - - -type instance AttributeList JavascriptResult = JavascriptResultAttributeList -type JavascriptResultAttributeList = ('[ ] :: [(Symbol, *)]) - --- method JavascriptResult::get_global_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -javascriptResultGetGlobalContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_javascript_result_get_global_context _obj' - checkUnexpectedReturnNULL "webkit_javascript_result_get_global_context" result - result' <- (wrapPtr JavaScriptCore.GlobalContext) result - touchManagedPtr _obj - return result' - -data JavascriptResultGetGlobalContextMethodInfo -instance (signature ~ (m JavaScriptCore.GlobalContext), MonadIO m) => MethodInfo JavascriptResultGetGlobalContextMethodInfo JavascriptResult signature where - overloadedMethod _ = javascriptResultGetGlobalContext - --- method JavascriptResult::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -javascriptResultGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_javascript_result_get_value _obj' - checkUnexpectedReturnNULL "webkit_javascript_result_get_value" result - result' <- (wrapPtr JavaScriptCore.Value) result - touchManagedPtr _obj - return result' - -data JavascriptResultGetValueMethodInfo -instance (signature ~ (m JavaScriptCore.Value), MonadIO m) => MethodInfo JavascriptResultGetValueMethodInfo JavascriptResult signature where - overloadedMethod _ = javascriptResultGetValue - --- method JavascriptResult::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data JavascriptResultRefMethodInfo -instance (signature ~ (m JavascriptResult), MonadIO m) => MethodInfo JavascriptResultRefMethodInfo JavascriptResult signature where - overloadedMethod _ = javascriptResultRef - --- method JavascriptResult::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_javascript_result_unref" webkit_javascript_result_unref :: - Ptr JavascriptResult -> -- _obj : TInterface "WebKit2" "JavascriptResult" - IO () - - -javascriptResultUnref :: - (MonadIO m) => - JavascriptResult -- _obj - -> m () -- result -javascriptResultUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - webkit_javascript_result_unref _obj' - touchManagedPtr _obj - return () - -data JavascriptResultUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo JavascriptResultUnrefMethodInfo JavascriptResult signature where - overloadedMethod _ = javascriptResultUnref - -type family ResolveJavascriptResultMethod (t :: Symbol) (o :: *) :: * where - ResolveJavascriptResultMethod "ref" o = JavascriptResultRefMethodInfo - ResolveJavascriptResultMethod "unref" o = JavascriptResultUnrefMethodInfo - ResolveJavascriptResultMethod "getGlobalContext" o = JavascriptResultGetGlobalContextMethodInfo - ResolveJavascriptResultMethod "getValue" o = JavascriptResultGetValueMethodInfo - ResolveJavascriptResultMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, MethodInfo info JavascriptResult p) => IsLabelProxy t (JavascriptResult -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, MethodInfo info JavascriptResult p) => IsLabel t (JavascriptResult -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/WebKit2/Structs/JavascriptResult.hs-boot b/GI/WebKit2/Structs/JavascriptResult.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Structs/JavascriptResult.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.WebKit2.Structs.JavascriptResult where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype JavascriptResult = JavascriptResult (ForeignPtr JavascriptResult) -instance BoxedObject JavascriptResult where -data JavascriptResultGetGlobalContextMethodInfo -data JavascriptResultGetValueMethodInfo -data JavascriptResultRefMethodInfo -data JavascriptResultUnrefMethodInfo diff --git a/GI/WebKit2/Structs/MimeInfo.hs b/GI/WebKit2/Structs/MimeInfo.hs deleted file mode 100644 --- a/GI/WebKit2/Structs/MimeInfo.hs +++ /dev/null @@ -1,230 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Structs.MimeInfo - ( - --- * Exported types - MimeInfo(..) , - noMimeInfo , - - - -- * Methods --- ** mimeInfoGetDescription - MimeInfoGetDescriptionMethodInfo , - mimeInfoGetDescription , - - --- ** mimeInfoGetExtensions - MimeInfoGetExtensionsMethodInfo , - mimeInfoGetExtensions , - - --- ** mimeInfoGetMimeType - MimeInfoGetMimeTypeMethodInfo , - mimeInfoGetMimeType , - - --- ** mimeInfoRef - MimeInfoRefMethodInfo , - mimeInfoRef , - - --- ** mimeInfoUnref - MimeInfoUnrefMethodInfo , - mimeInfoUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - -newtype MimeInfo = MimeInfo (ForeignPtr MimeInfo) -foreign import ccall "webkit_mime_info_get_type" c_webkit_mime_info_get_type :: - IO GType - -instance BoxedObject MimeInfo where - boxedType _ = c_webkit_mime_info_get_type - -noMimeInfo :: Maybe MimeInfo -noMimeInfo = Nothing - - -type instance AttributeList MimeInfo = MimeInfoAttributeList -type MimeInfoAttributeList = ('[ ] :: [(Symbol, *)]) - --- method MimeInfo::get_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_mime_info_get_description" webkit_mime_info_get_description :: - Ptr MimeInfo -> -- _obj : TInterface "WebKit2" "MimeInfo" - IO CString - - -mimeInfoGetDescription :: - (MonadIO m) => - MimeInfo -- _obj - -> m T.Text -- result -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' - -data MimeInfoGetDescriptionMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo MimeInfoGetDescriptionMethodInfo MimeInfo signature where - overloadedMethod _ = mimeInfoGetDescription - --- method MimeInfo::get_extensions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "webkit_mime_info_get_extensions" webkit_mime_info_get_extensions :: - Ptr MimeInfo -> -- _obj : TInterface "WebKit2" "MimeInfo" - IO (Ptr CString) - - -mimeInfoGetExtensions :: - (MonadIO m) => - MimeInfo -- _obj - -> m [T.Text] -- result -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' - -data MimeInfoGetExtensionsMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo MimeInfoGetExtensionsMethodInfo MimeInfo signature where - overloadedMethod _ = mimeInfoGetExtensions - --- method MimeInfo::get_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_mime_info_get_mime_type" webkit_mime_info_get_mime_type :: - Ptr MimeInfo -> -- _obj : TInterface "WebKit2" "MimeInfo" - IO CString - - -mimeInfoGetMimeType :: - (MonadIO m) => - MimeInfo -- _obj - -> m T.Text -- result -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' - -data MimeInfoGetMimeTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo MimeInfoGetMimeTypeMethodInfo MimeInfo signature where - overloadedMethod _ = mimeInfoGetMimeType - --- method MimeInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MimeInfoRefMethodInfo -instance (signature ~ (m MimeInfo), MonadIO m) => MethodInfo MimeInfoRefMethodInfo MimeInfo signature where - overloadedMethod _ = mimeInfoRef - --- method MimeInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_mime_info_unref" webkit_mime_info_unref :: - Ptr MimeInfo -> -- _obj : TInterface "WebKit2" "MimeInfo" - IO () - - -mimeInfoUnref :: - (MonadIO m) => - MimeInfo -- _obj - -> m () -- result -mimeInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - webkit_mime_info_unref _obj' - touchManagedPtr _obj - return () - -data MimeInfoUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MimeInfoUnrefMethodInfo MimeInfo signature where - overloadedMethod _ = mimeInfoUnref - -type family ResolveMimeInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveMimeInfoMethod "ref" o = MimeInfoRefMethodInfo - ResolveMimeInfoMethod "unref" o = MimeInfoUnrefMethodInfo - ResolveMimeInfoMethod "getDescription" o = MimeInfoGetDescriptionMethodInfo - ResolveMimeInfoMethod "getExtensions" o = MimeInfoGetExtensionsMethodInfo - ResolveMimeInfoMethod "getMimeType" o = MimeInfoGetMimeTypeMethodInfo - ResolveMimeInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMimeInfoMethod t MimeInfo, MethodInfo info MimeInfo p) => IsLabelProxy t (MimeInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMimeInfoMethod t MimeInfo, MethodInfo info MimeInfo p) => IsLabel t (MimeInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/WebKit2/Structs/MimeInfo.hs-boot b/GI/WebKit2/Structs/MimeInfo.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Structs/MimeInfo.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2.Structs.MimeInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MimeInfo = MimeInfo (ForeignPtr MimeInfo) -instance BoxedObject MimeInfo where -data MimeInfoGetDescriptionMethodInfo -data MimeInfoGetExtensionsMethodInfo -data MimeInfoGetMimeTypeMethodInfo -data MimeInfoRefMethodInfo -data MimeInfoUnrefMethodInfo diff --git a/GI/WebKit2/Structs/NavigationAction.hs b/GI/WebKit2/Structs/NavigationAction.hs deleted file mode 100644 --- a/GI/WebKit2/Structs/NavigationAction.hs +++ /dev/null @@ -1,294 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Structs.NavigationAction - ( - --- * Exported types - NavigationAction(..) , - noNavigationAction , - - - -- * Methods --- ** navigationActionCopy - NavigationActionCopyMethodInfo , - navigationActionCopy , - - --- ** navigationActionFree - NavigationActionFreeMethodInfo , - navigationActionFree , - - --- ** navigationActionGetModifiers - NavigationActionGetModifiersMethodInfo , - navigationActionGetModifiers , - - --- ** navigationActionGetMouseButton - NavigationActionGetMouseButtonMethodInfo, - navigationActionGetMouseButton , - - --- ** navigationActionGetNavigationType - NavigationActionGetNavigationTypeMethodInfo, - navigationActionGetNavigationType , - - --- ** navigationActionGetRequest - NavigationActionGetRequestMethodInfo , - navigationActionGetRequest , - - --- ** navigationActionIsUserGesture - NavigationActionIsUserGestureMethodInfo , - navigationActionIsUserGesture , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - -newtype NavigationAction = NavigationAction (ForeignPtr NavigationAction) -foreign import ccall "webkit_navigation_action_get_type" c_webkit_navigation_action_get_type :: - IO GType - -instance BoxedObject NavigationAction where - boxedType _ = c_webkit_navigation_action_get_type - -noNavigationAction :: Maybe NavigationAction -noNavigationAction = Nothing - - -type instance AttributeList NavigationAction = NavigationActionAttributeList -type NavigationActionAttributeList = ('[ ] :: [(Symbol, *)]) - --- method NavigationAction::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data NavigationActionCopyMethodInfo -instance (signature ~ (m NavigationAction), MonadIO m) => MethodInfo NavigationActionCopyMethodInfo NavigationAction signature where - overloadedMethod _ = navigationActionCopy - --- method NavigationAction::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_navigation_action_free" webkit_navigation_action_free :: - Ptr NavigationAction -> -- _obj : TInterface "WebKit2" "NavigationAction" - IO () - - -navigationActionFree :: - (MonadIO m) => - NavigationAction -- _obj - -> m () -- result -navigationActionFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - webkit_navigation_action_free _obj' - touchManagedPtr _obj - return () - -data NavigationActionFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo NavigationActionFreeMethodInfo NavigationAction signature where - overloadedMethod _ = navigationActionFree - --- method NavigationAction::get_modifiers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_navigation_action_get_modifiers" webkit_navigation_action_get_modifiers :: - Ptr NavigationAction -> -- _obj : TInterface "WebKit2" "NavigationAction" - IO Word32 - - -navigationActionGetModifiers :: - (MonadIO m) => - NavigationAction -- _obj - -> m Word32 -- result -navigationActionGetModifiers _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_navigation_action_get_modifiers _obj' - touchManagedPtr _obj - return result - -data NavigationActionGetModifiersMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo NavigationActionGetModifiersMethodInfo NavigationAction signature where - overloadedMethod _ = navigationActionGetModifiers - --- method NavigationAction::get_mouse_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_navigation_action_get_mouse_button" webkit_navigation_action_get_mouse_button :: - Ptr NavigationAction -> -- _obj : TInterface "WebKit2" "NavigationAction" - IO Word32 - - -navigationActionGetMouseButton :: - (MonadIO m) => - NavigationAction -- _obj - -> m Word32 -- result -navigationActionGetMouseButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_navigation_action_get_mouse_button _obj' - touchManagedPtr _obj - return result - -data NavigationActionGetMouseButtonMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo NavigationActionGetMouseButtonMethodInfo NavigationAction signature where - overloadedMethod _ = navigationActionGetMouseButton - --- method NavigationAction::get_navigation_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data NavigationActionGetNavigationTypeMethodInfo -instance (signature ~ (m NavigationType), MonadIO m) => MethodInfo NavigationActionGetNavigationTypeMethodInfo NavigationAction signature where - overloadedMethod _ = navigationActionGetNavigationType - --- method NavigationAction::get_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data NavigationActionGetRequestMethodInfo -instance (signature ~ (m URIRequest), MonadIO m) => MethodInfo NavigationActionGetRequestMethodInfo NavigationAction signature where - overloadedMethod _ = navigationActionGetRequest - --- method NavigationAction::is_user_gesture --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "webkit_navigation_action_is_user_gesture" webkit_navigation_action_is_user_gesture :: - Ptr NavigationAction -> -- _obj : TInterface "WebKit2" "NavigationAction" - IO CInt - - -navigationActionIsUserGesture :: - (MonadIO m) => - NavigationAction -- _obj - -> m Bool -- result -navigationActionIsUserGesture _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_navigation_action_is_user_gesture _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data NavigationActionIsUserGestureMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo NavigationActionIsUserGestureMethodInfo NavigationAction signature where - overloadedMethod _ = navigationActionIsUserGesture - -type family ResolveNavigationActionMethod (t :: Symbol) (o :: *) :: * where - ResolveNavigationActionMethod "copy" o = NavigationActionCopyMethodInfo - ResolveNavigationActionMethod "free" o = NavigationActionFreeMethodInfo - ResolveNavigationActionMethod "isUserGesture" o = NavigationActionIsUserGestureMethodInfo - ResolveNavigationActionMethod "getModifiers" o = NavigationActionGetModifiersMethodInfo - ResolveNavigationActionMethod "getMouseButton" o = NavigationActionGetMouseButtonMethodInfo - ResolveNavigationActionMethod "getNavigationType" o = NavigationActionGetNavigationTypeMethodInfo - ResolveNavigationActionMethod "getRequest" o = NavigationActionGetRequestMethodInfo - ResolveNavigationActionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNavigationActionMethod t NavigationAction, MethodInfo info NavigationAction p) => IsLabelProxy t (NavigationAction -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNavigationActionMethod t NavigationAction, MethodInfo info NavigationAction p) => IsLabel t (NavigationAction -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/WebKit2/Structs/NavigationAction.hs-boot b/GI/WebKit2/Structs/NavigationAction.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Structs/NavigationAction.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2.Structs.NavigationAction where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype NavigationAction = NavigationAction (ForeignPtr NavigationAction) -instance BoxedObject NavigationAction where -data NavigationActionCopyMethodInfo -data NavigationActionFreeMethodInfo -data NavigationActionGetModifiersMethodInfo -data NavigationActionGetMouseButtonMethodInfo -data NavigationActionGetNavigationTypeMethodInfo -data NavigationActionGetRequestMethodInfo -data NavigationActionIsUserGestureMethodInfo diff --git a/GI/WebKit2/Structs/ScriptDialog.hs b/GI/WebKit2/Structs/ScriptDialog.hs deleted file mode 100644 --- a/GI/WebKit2/Structs/ScriptDialog.hs +++ /dev/null @@ -1,234 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Structs.ScriptDialog - ( - --- * Exported types - ScriptDialog(..) , - noScriptDialog , - - - -- * Methods --- ** scriptDialogConfirmSetConfirmed - ScriptDialogConfirmSetConfirmedMethodInfo, - scriptDialogConfirmSetConfirmed , - - --- ** scriptDialogGetDialogType - ScriptDialogGetDialogTypeMethodInfo , - scriptDialogGetDialogType , - - --- ** scriptDialogGetMessage - ScriptDialogGetMessageMethodInfo , - scriptDialogGetMessage , - - --- ** scriptDialogPromptGetDefaultText - ScriptDialogPromptGetDefaultTextMethodInfo, - scriptDialogPromptGetDefaultText , - - --- ** scriptDialogPromptSetText - ScriptDialogPromptSetTextMethodInfo , - scriptDialogPromptSetText , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - -newtype ScriptDialog = ScriptDialog (ForeignPtr ScriptDialog) -foreign import ccall "webkit_script_dialog_get_type" c_webkit_script_dialog_get_type :: - IO GType - -instance BoxedObject ScriptDialog where - boxedType _ = c_webkit_script_dialog_get_type - -noScriptDialog :: Maybe ScriptDialog -noScriptDialog = Nothing - - -type instance AttributeList ScriptDialog = ScriptDialogAttributeList -type ScriptDialogAttributeList = ('[ ] :: [(Symbol, *)]) - --- method ScriptDialog::confirm_set_confirmed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "confirmed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data ScriptDialogConfirmSetConfirmedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo ScriptDialogConfirmSetConfirmedMethodInfo ScriptDialog signature where - overloadedMethod _ = scriptDialogConfirmSetConfirmed - --- method ScriptDialog::get_dialog_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ScriptDialogGetDialogTypeMethodInfo -instance (signature ~ (m ScriptDialogType), MonadIO m) => MethodInfo ScriptDialogGetDialogTypeMethodInfo ScriptDialog signature where - overloadedMethod _ = scriptDialogGetDialogType - --- method ScriptDialog::get_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_script_dialog_get_message" webkit_script_dialog_get_message :: - Ptr ScriptDialog -> -- _obj : TInterface "WebKit2" "ScriptDialog" - IO CString - - -scriptDialogGetMessage :: - (MonadIO m) => - ScriptDialog -- _obj - -> m T.Text -- result -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' - -data ScriptDialogGetMessageMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ScriptDialogGetMessageMethodInfo ScriptDialog signature where - overloadedMethod _ = scriptDialogGetMessage - --- method ScriptDialog::prompt_get_default_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_script_dialog_prompt_get_default_text" webkit_script_dialog_prompt_get_default_text :: - Ptr ScriptDialog -> -- _obj : TInterface "WebKit2" "ScriptDialog" - IO CString - - -scriptDialogPromptGetDefaultText :: - (MonadIO m) => - ScriptDialog -- _obj - -> m T.Text -- result -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' - -data ScriptDialogPromptGetDefaultTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ScriptDialogPromptGetDefaultTextMethodInfo ScriptDialog signature where - overloadedMethod _ = scriptDialogPromptGetDefaultText - --- method ScriptDialog::prompt_set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data ScriptDialogPromptSetTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo ScriptDialogPromptSetTextMethodInfo ScriptDialog signature where - overloadedMethod _ = scriptDialogPromptSetText - -type family ResolveScriptDialogMethod (t :: Symbol) (o :: *) :: * where - ResolveScriptDialogMethod "confirmSetConfirmed" o = ScriptDialogConfirmSetConfirmedMethodInfo - ResolveScriptDialogMethod "promptGetDefaultText" o = ScriptDialogPromptGetDefaultTextMethodInfo - ResolveScriptDialogMethod "promptSetText" o = ScriptDialogPromptSetTextMethodInfo - ResolveScriptDialogMethod "getDialogType" o = ScriptDialogGetDialogTypeMethodInfo - ResolveScriptDialogMethod "getMessage" o = ScriptDialogGetMessageMethodInfo - ResolveScriptDialogMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScriptDialogMethod t ScriptDialog, MethodInfo info ScriptDialog p) => IsLabelProxy t (ScriptDialog -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScriptDialogMethod t ScriptDialog, MethodInfo info ScriptDialog p) => IsLabel t (ScriptDialog -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/WebKit2/Structs/ScriptDialog.hs-boot b/GI/WebKit2/Structs/ScriptDialog.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Structs/ScriptDialog.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2.Structs.ScriptDialog where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ScriptDialog = ScriptDialog (ForeignPtr ScriptDialog) -instance BoxedObject ScriptDialog where -data ScriptDialogConfirmSetConfirmedMethodInfo -data ScriptDialogGetDialogTypeMethodInfo -data ScriptDialogGetMessageMethodInfo -data ScriptDialogPromptGetDefaultTextMethodInfo -data ScriptDialogPromptSetTextMethodInfo diff --git a/GI/WebKit2/Structs/UserScript.hs b/GI/WebKit2/Structs/UserScript.hs deleted file mode 100644 --- a/GI/WebKit2/Structs/UserScript.hs +++ /dev/null @@ -1,178 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Structs.UserScript - ( - --- * Exported types - UserScript(..) , - noUserScript , - - - -- * Methods --- ** userScriptNew - userScriptNew , - - --- ** userScriptRef - UserScriptRefMethodInfo , - userScriptRef , - - --- ** userScriptUnref - UserScriptUnrefMethodInfo , - userScriptUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - -newtype UserScript = UserScript (ForeignPtr UserScript) -foreign import ccall "webkit_user_script_get_type" c_webkit_user_script_get_type :: - IO GType - -instance BoxedObject UserScript where - boxedType _ = c_webkit_user_script_get_type - -noUserScript :: Maybe UserScript -noUserScript = Nothing - - -type instance AttributeList UserScript = UserScriptAttributeList -type UserScriptAttributeList = ('[ ] :: [(Symbol, *)]) - --- method UserScript::new --- method type : Constructor --- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injected_frames", argType = TInterface "WebKit2" "UserContentInjectedFrames", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injection_time", argType = TInterface "WebKit2" "UserScriptInjectionTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- injectedFrames - -> UserScriptInjectionTime -- injectionTime - -> Maybe ([T.Text]) -- whitelist - -> Maybe ([T.Text]) -- blacklist - -> m UserScript -- result -userScriptNew source injectedFrames injectionTime whitelist blacklist = liftIO $ do - source' <- textToCString source - let injectedFrames' = (fromIntegral . fromEnum) injectedFrames - let injectionTime' = (fromIntegral . fromEnum) injectionTime - maybeWhitelist <- case whitelist of - Nothing -> return nullPtr - Just jWhitelist -> do - jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist - return jWhitelist' - maybeBlacklist <- case blacklist of - Nothing -> return nullPtr - Just jBlacklist -> do - jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist - return jBlacklist' - result <- webkit_user_script_new source' injectedFrames' injectionTime' maybeWhitelist maybeBlacklist - checkUnexpectedReturnNULL "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 {argCName = "_obj", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data UserScriptRefMethodInfo -instance (signature ~ (m UserScript), MonadIO m) => MethodInfo UserScriptRefMethodInfo UserScript signature where - overloadedMethod _ = userScriptRef - --- method UserScript::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_user_script_unref" webkit_user_script_unref :: - Ptr UserScript -> -- _obj : TInterface "WebKit2" "UserScript" - IO () - - -userScriptUnref :: - (MonadIO m) => - UserScript -- _obj - -> m () -- result -userScriptUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - webkit_user_script_unref _obj' - touchManagedPtr _obj - return () - -data UserScriptUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo UserScriptUnrefMethodInfo UserScript signature where - overloadedMethod _ = userScriptUnref - -type family ResolveUserScriptMethod (t :: Symbol) (o :: *) :: * where - ResolveUserScriptMethod "ref" o = UserScriptRefMethodInfo - ResolveUserScriptMethod "unref" o = UserScriptUnrefMethodInfo - ResolveUserScriptMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUserScriptMethod t UserScript, MethodInfo info UserScript p) => IsLabelProxy t (UserScript -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUserScriptMethod t UserScript, MethodInfo info UserScript p) => IsLabel t (UserScript -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/WebKit2/Structs/UserScript.hs-boot b/GI/WebKit2/Structs/UserScript.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Structs/UserScript.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.WebKit2.Structs.UserScript where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UserScript = UserScript (ForeignPtr UserScript) -instance BoxedObject UserScript where -data UserScriptRefMethodInfo -data UserScriptUnrefMethodInfo diff --git a/GI/WebKit2/Structs/UserStyleSheet.hs b/GI/WebKit2/Structs/UserStyleSheet.hs deleted file mode 100644 --- a/GI/WebKit2/Structs/UserStyleSheet.hs +++ /dev/null @@ -1,178 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Structs.UserStyleSheet - ( - --- * Exported types - UserStyleSheet(..) , - noUserStyleSheet , - - - -- * Methods --- ** userStyleSheetNew - userStyleSheetNew , - - --- ** userStyleSheetRef - UserStyleSheetRefMethodInfo , - userStyleSheetRef , - - --- ** userStyleSheetUnref - UserStyleSheetUnrefMethodInfo , - userStyleSheetUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks - -newtype UserStyleSheet = UserStyleSheet (ForeignPtr UserStyleSheet) -foreign import ccall "webkit_user_style_sheet_get_type" c_webkit_user_style_sheet_get_type :: - IO GType - -instance BoxedObject UserStyleSheet where - boxedType _ = c_webkit_user_style_sheet_get_type - -noUserStyleSheet :: Maybe UserStyleSheet -noUserStyleSheet = Nothing - - -type instance AttributeList UserStyleSheet = UserStyleSheetAttributeList -type UserStyleSheetAttributeList = ('[ ] :: [(Symbol, *)]) - --- method UserStyleSheet::new --- method type : Constructor --- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injected_frames", argType = TInterface "WebKit2" "UserContentInjectedFrames", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TInterface "WebKit2" "UserStyleLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- injectedFrames - -> UserStyleLevel -- level - -> Maybe ([T.Text]) -- whitelist - -> Maybe ([T.Text]) -- blacklist - -> m UserStyleSheet -- result -userStyleSheetNew source injectedFrames level whitelist blacklist = liftIO $ do - source' <- textToCString source - let injectedFrames' = (fromIntegral . fromEnum) injectedFrames - let level' = (fromIntegral . fromEnum) level - maybeWhitelist <- case whitelist of - Nothing -> return nullPtr - Just jWhitelist -> do - jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist - return jWhitelist' - maybeBlacklist <- case blacklist of - Nothing -> return nullPtr - Just jBlacklist -> do - jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist - return jBlacklist' - result <- webkit_user_style_sheet_new source' injectedFrames' level' maybeWhitelist maybeBlacklist - checkUnexpectedReturnNULL "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 {argCName = "_obj", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data UserStyleSheetRefMethodInfo -instance (signature ~ (m UserStyleSheet), MonadIO m) => MethodInfo UserStyleSheetRefMethodInfo UserStyleSheet signature where - overloadedMethod _ = userStyleSheetRef - --- method UserStyleSheet::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_user_style_sheet_unref" webkit_user_style_sheet_unref :: - Ptr UserStyleSheet -> -- _obj : TInterface "WebKit2" "UserStyleSheet" - IO () - - -userStyleSheetUnref :: - (MonadIO m) => - UserStyleSheet -- _obj - -> m () -- result -userStyleSheetUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - webkit_user_style_sheet_unref _obj' - touchManagedPtr _obj - return () - -data UserStyleSheetUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo UserStyleSheetUnrefMethodInfo UserStyleSheet signature where - overloadedMethod _ = userStyleSheetUnref - -type family ResolveUserStyleSheetMethod (t :: Symbol) (o :: *) :: * where - ResolveUserStyleSheetMethod "ref" o = UserStyleSheetRefMethodInfo - ResolveUserStyleSheetMethod "unref" o = UserStyleSheetUnrefMethodInfo - ResolveUserStyleSheetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUserStyleSheetMethod t UserStyleSheet, MethodInfo info UserStyleSheet p) => IsLabelProxy t (UserStyleSheet -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUserStyleSheetMethod t UserStyleSheet, MethodInfo info UserStyleSheet p) => IsLabel t (UserStyleSheet -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/WebKit2/Structs/UserStyleSheet.hs-boot b/GI/WebKit2/Structs/UserStyleSheet.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Structs/UserStyleSheet.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.WebKit2.Structs.UserStyleSheet where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UserStyleSheet = UserStyleSheet (ForeignPtr UserStyleSheet) -instance BoxedObject UserStyleSheet where -data UserStyleSheetRefMethodInfo -data UserStyleSheetUnrefMethodInfo diff --git a/GI/WebKit2/Structs/WebViewSessionState.hs b/GI/WebKit2/Structs/WebViewSessionState.hs deleted file mode 100644 --- a/GI/WebKit2/Structs/WebViewSessionState.hs +++ /dev/null @@ -1,190 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.WebKit2.Structs.WebViewSessionState - ( - --- * Exported types - WebViewSessionState(..) , - noWebViewSessionState , - - - -- * Methods --- ** webViewSessionStateNew - webViewSessionStateNew , - - --- ** webViewSessionStateRef - WebViewSessionStateRefMethodInfo , - webViewSessionStateRef , - - --- ** webViewSessionStateSerialize - WebViewSessionStateSerializeMethodInfo , - webViewSessionStateSerialize , - - --- ** webViewSessionStateUnref - WebViewSessionStateUnrefMethodInfo , - webViewSessionStateUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.WebKit2.Types -import GI.WebKit2.Callbacks -import qualified GI.GLib as GLib - -newtype WebViewSessionState = WebViewSessionState (ForeignPtr WebViewSessionState) -foreign import ccall "webkit_web_view_session_state_get_type" c_webkit_web_view_session_state_get_type :: - IO GType - -instance BoxedObject WebViewSessionState where - boxedType _ = c_webkit_web_view_session_state_get_type - -noWebViewSessionState :: Maybe WebViewSessionState -noWebViewSessionState = Nothing - - -type instance AttributeList WebViewSessionState = WebViewSessionStateAttributeList -type WebViewSessionStateAttributeList = ('[ ] :: [(Symbol, *)]) - --- method WebViewSessionState::new --- method type : Constructor --- Args : [Arg {argCName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebViewSessionState") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_session_state_new" webkit_web_view_session_state_new :: - Ptr GLib.Bytes -> -- data : TInterface "GLib" "Bytes" - IO (Ptr WebViewSessionState) - - -webViewSessionStateNew :: - (MonadIO m) => - GLib.Bytes -- data_ - -> m WebViewSessionState -- result -webViewSessionStateNew data_ = liftIO $ do - let data_' = unsafeManagedPtrGetPtr data_ - result <- webkit_web_view_session_state_new data_' - checkUnexpectedReturnNULL "webkit_web_view_session_state_new" result - result' <- (wrapBoxed WebViewSessionState) result - touchManagedPtr data_ - return result' - --- method WebViewSessionState::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebViewSessionState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2" "WebViewSessionState") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_session_state_ref" webkit_web_view_session_state_ref :: - Ptr WebViewSessionState -> -- _obj : TInterface "WebKit2" "WebViewSessionState" - IO (Ptr WebViewSessionState) - - -webViewSessionStateRef :: - (MonadIO m) => - WebViewSessionState -- _obj - -> m WebViewSessionState -- result -webViewSessionStateRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_web_view_session_state_ref _obj' - checkUnexpectedReturnNULL "webkit_web_view_session_state_ref" result - result' <- (wrapBoxed WebViewSessionState) result - touchManagedPtr _obj - return result' - -data WebViewSessionStateRefMethodInfo -instance (signature ~ (m WebViewSessionState), MonadIO m) => MethodInfo WebViewSessionStateRefMethodInfo WebViewSessionState signature where - overloadedMethod _ = webViewSessionStateRef - --- method WebViewSessionState::serialize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebViewSessionState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Bytes") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_session_state_serialize" webkit_web_view_session_state_serialize :: - Ptr WebViewSessionState -> -- _obj : TInterface "WebKit2" "WebViewSessionState" - IO (Ptr GLib.Bytes) - - -webViewSessionStateSerialize :: - (MonadIO m) => - WebViewSessionState -- _obj - -> m GLib.Bytes -- result -webViewSessionStateSerialize _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_web_view_session_state_serialize _obj' - checkUnexpectedReturnNULL "webkit_web_view_session_state_serialize" result - result' <- (wrapBoxed GLib.Bytes) result - touchManagedPtr _obj - return result' - -data WebViewSessionStateSerializeMethodInfo -instance (signature ~ (m GLib.Bytes), MonadIO m) => MethodInfo WebViewSessionStateSerializeMethodInfo WebViewSessionState signature where - overloadedMethod _ = webViewSessionStateSerialize - --- method WebViewSessionState::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebViewSessionState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_view_session_state_unref" webkit_web_view_session_state_unref :: - Ptr WebViewSessionState -> -- _obj : TInterface "WebKit2" "WebViewSessionState" - IO () - - -webViewSessionStateUnref :: - (MonadIO m) => - WebViewSessionState -- _obj - -> m () -- result -webViewSessionStateUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - webkit_web_view_session_state_unref _obj' - touchManagedPtr _obj - return () - -data WebViewSessionStateUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo WebViewSessionStateUnrefMethodInfo WebViewSessionState signature where - overloadedMethod _ = webViewSessionStateUnref - -type family ResolveWebViewSessionStateMethod (t :: Symbol) (o :: *) :: * where - ResolveWebViewSessionStateMethod "ref" o = WebViewSessionStateRefMethodInfo - ResolveWebViewSessionStateMethod "serialize" o = WebViewSessionStateSerializeMethodInfo - ResolveWebViewSessionStateMethod "unref" o = WebViewSessionStateUnrefMethodInfo - ResolveWebViewSessionStateMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebViewSessionStateMethod t WebViewSessionState, MethodInfo info WebViewSessionState p) => IsLabelProxy t (WebViewSessionState -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebViewSessionStateMethod t WebViewSessionState, MethodInfo info WebViewSessionState p) => IsLabel t (WebViewSessionState -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/WebKit2/Structs/WebViewSessionState.hs-boot b/GI/WebKit2/Structs/WebViewSessionState.hs-boot deleted file mode 100644 --- a/GI/WebKit2/Structs/WebViewSessionState.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.WebKit2.Structs.WebViewSessionState where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WebViewSessionState = WebViewSessionState (ForeignPtr WebViewSessionState) -instance BoxedObject WebViewSessionState where -data WebViewSessionStateRefMethodInfo -data WebViewSessionStateSerializeMethodInfo -data WebViewSessionStateUnrefMethodInfo diff --git a/GI/WebKit2/Types.hs b/GI/WebKit2/Types.hs deleted file mode 100644 --- a/GI/WebKit2/Types.hs +++ /dev/null @@ -1,104 +0,0 @@ -module GI.WebKit2.Types - ( module GI.WebKit2.Interfaces.PermissionRequest, - module GI.WebKit2.Objects.AuthenticationRequest, - module GI.WebKit2.Objects.BackForwardList, - module GI.WebKit2.Objects.BackForwardListItem, - module GI.WebKit2.Objects.ColorChooserRequest, - module GI.WebKit2.Objects.ContextMenu , - module GI.WebKit2.Objects.ContextMenuItem, - module GI.WebKit2.Objects.CookieManager , - module GI.WebKit2.Objects.Download , - module GI.WebKit2.Objects.EditorState , - module GI.WebKit2.Objects.FaviconDatabase, - module GI.WebKit2.Objects.FileChooserRequest, - module GI.WebKit2.Objects.FindController, - module GI.WebKit2.Objects.FormSubmissionRequest, - module GI.WebKit2.Objects.GeolocationPermissionRequest, - module GI.WebKit2.Objects.HitTestResult , - module GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest, - module GI.WebKit2.Objects.NavigationPolicyDecision, - module GI.WebKit2.Objects.Notification , - module GI.WebKit2.Objects.NotificationPermissionRequest, - module GI.WebKit2.Objects.Plugin , - module GI.WebKit2.Objects.PolicyDecision, - module GI.WebKit2.Objects.PrintOperation, - module GI.WebKit2.Objects.ResponsePolicyDecision, - module GI.WebKit2.Objects.SecurityManager, - module GI.WebKit2.Objects.Settings , - module GI.WebKit2.Objects.URIRequest , - module GI.WebKit2.Objects.URIResponse , - module GI.WebKit2.Objects.URISchemeRequest, - module GI.WebKit2.Objects.UserContentManager, - module GI.WebKit2.Objects.UserMediaPermissionRequest, - module GI.WebKit2.Objects.WebContext , - module GI.WebKit2.Objects.WebInspector , - module GI.WebKit2.Objects.WebResource , - module GI.WebKit2.Objects.WebView , - module GI.WebKit2.Objects.WebViewBase , - module GI.WebKit2.Objects.WebsiteDataManager, - module GI.WebKit2.Objects.WindowProperties, - module GI.WebKit2.Structs.Credential , - module GI.WebKit2.Structs.JavascriptResult, - module GI.WebKit2.Structs.MimeInfo , - module GI.WebKit2.Structs.NavigationAction, - module GI.WebKit2.Structs.ScriptDialog , - module GI.WebKit2.Structs.UserScript , - module GI.WebKit2.Structs.UserStyleSheet, - module GI.WebKit2.Structs.WebViewSessionState, - module GI.WebKit2.Enums , - module GI.WebKit2.Flags , - - - ) where - - -import {-# SOURCE #-} GI.WebKit2.Interfaces.PermissionRequest -import {-# SOURCE #-} GI.WebKit2.Objects.AuthenticationRequest -import {-# SOURCE #-} GI.WebKit2.Objects.BackForwardList -import {-# SOURCE #-} GI.WebKit2.Objects.BackForwardListItem -import {-# SOURCE #-} GI.WebKit2.Objects.ColorChooserRequest -import {-# SOURCE #-} GI.WebKit2.Objects.ContextMenu -import {-# SOURCE #-} GI.WebKit2.Objects.ContextMenuItem -import {-# SOURCE #-} GI.WebKit2.Objects.CookieManager -import {-# SOURCE #-} GI.WebKit2.Objects.Download -import {-# SOURCE #-} GI.WebKit2.Objects.EditorState -import {-# SOURCE #-} GI.WebKit2.Objects.FaviconDatabase -import {-# SOURCE #-} GI.WebKit2.Objects.FileChooserRequest -import {-# SOURCE #-} GI.WebKit2.Objects.FindController -import {-# SOURCE #-} GI.WebKit2.Objects.FormSubmissionRequest -import {-# SOURCE #-} GI.WebKit2.Objects.GeolocationPermissionRequest -import {-# SOURCE #-} GI.WebKit2.Objects.HitTestResult -import {-# SOURCE #-} GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest -import {-# SOURCE #-} GI.WebKit2.Objects.NavigationPolicyDecision -import {-# SOURCE #-} GI.WebKit2.Objects.Notification -import {-# SOURCE #-} GI.WebKit2.Objects.NotificationPermissionRequest -import {-# SOURCE #-} GI.WebKit2.Objects.Plugin -import {-# SOURCE #-} GI.WebKit2.Objects.PolicyDecision -import {-# SOURCE #-} GI.WebKit2.Objects.PrintOperation -import {-# SOURCE #-} GI.WebKit2.Objects.ResponsePolicyDecision -import {-# SOURCE #-} GI.WebKit2.Objects.SecurityManager -import {-# SOURCE #-} GI.WebKit2.Objects.Settings -import {-# SOURCE #-} GI.WebKit2.Objects.URIRequest -import {-# SOURCE #-} GI.WebKit2.Objects.URIResponse -import {-# SOURCE #-} GI.WebKit2.Objects.URISchemeRequest -import {-# SOURCE #-} GI.WebKit2.Objects.UserContentManager -import {-# SOURCE #-} GI.WebKit2.Objects.UserMediaPermissionRequest -import {-# SOURCE #-} GI.WebKit2.Objects.WebContext -import {-# SOURCE #-} GI.WebKit2.Objects.WebInspector -import {-# SOURCE #-} GI.WebKit2.Objects.WebResource -import {-# SOURCE #-} GI.WebKit2.Objects.WebView -import {-# SOURCE #-} GI.WebKit2.Objects.WebViewBase -import {-# SOURCE #-} GI.WebKit2.Objects.WebsiteDataManager -import {-# SOURCE #-} GI.WebKit2.Objects.WindowProperties -import {-# SOURCE #-} GI.WebKit2.Structs.Credential -import {-# SOURCE #-} GI.WebKit2.Structs.JavascriptResult -import {-# SOURCE #-} GI.WebKit2.Structs.MimeInfo -import {-# SOURCE #-} GI.WebKit2.Structs.NavigationAction -import {-# SOURCE #-} GI.WebKit2.Structs.ScriptDialog -import {-# SOURCE #-} GI.WebKit2.Structs.UserScript -import {-# SOURCE #-} GI.WebKit2.Structs.UserStyleSheet -import {-# SOURCE #-} GI.WebKit2.Structs.WebViewSessionState - -import GI.WebKit2.Enums -import GI.WebKit2.Flags - diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,3 +1,12 @@ -#!/usr/bin/env runhaskell -import Distribution.Simple -main = defaultMain +{-# LANGUAGE OverloadedStrings #-} + +import Distribution.Simple (defaultMainWithHooks) +import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks) + +main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose + overridesFile outputDir) + where name = "WebKit2" + version = "4.0" + verbose = False + overridesFile = Just "WebKit2.overrides" + outputDir = Nothing diff --git a/WebKit2.overrides b/WebKit2.overrides new file mode 100644 --- /dev/null +++ b/WebKit2.overrides @@ -0,0 +1,5 @@ +# PkgConfig names are slightly different to the GI namespaces +pkg-config-name JavaScriptCore javascriptcoregtk + +# https://bugs.webkit.org/show_bug.cgi?id=152826 +set-attr WebKit2/WebView/get_uri/@return-value nullable 1 diff --git a/gi-webkit2.cabal b/gi-webkit2.cabal --- a/gi-webkit2.cabal +++ b/gi-webkit2.cabal @@ -1,6 +1,5 @@ --- Autogenerated, do not edit. name: gi-webkit2 -version: 0.2.12.15 +version: 4.0.1 synopsis: WebKit2 bindings description: Bindings for WebKit2, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -9,83 +8,35 @@ 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 +build-type: Custom +cabal-version: >= 1.24 +extra-source-files: WebKit2.overrides + +custom-setup + setup-depends: base >= 4.7, + Cabal >= 1.24, + haskell-gi >= 0.15 + library default-language: Haskell2010 default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts other-extensions: PatternSynonyms ViewPatterns ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations - exposed-modules: GI.WebKit2.Types - GI.WebKit2 - GI.WebKit2.Callbacks - GI.WebKit2.Constants - GI.WebKit2.Enums - GI.WebKit2.Flags - GI.WebKit2.Functions - GI.WebKit2.Interfaces - GI.WebKit2.Interfaces.PermissionRequest - GI.WebKit2.Objects - GI.WebKit2.Objects.AuthenticationRequest - GI.WebKit2.Objects.BackForwardList - GI.WebKit2.Objects.BackForwardListItem - GI.WebKit2.Objects.ColorChooserRequest - GI.WebKit2.Objects.ContextMenu - GI.WebKit2.Objects.ContextMenuItem - GI.WebKit2.Objects.CookieManager - GI.WebKit2.Objects.Download - GI.WebKit2.Objects.EditorState - GI.WebKit2.Objects.FaviconDatabase - GI.WebKit2.Objects.FileChooserRequest - GI.WebKit2.Objects.FindController - GI.WebKit2.Objects.FormSubmissionRequest - GI.WebKit2.Objects.GeolocationPermissionRequest - GI.WebKit2.Objects.HitTestResult - GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest - GI.WebKit2.Objects.NavigationPolicyDecision - GI.WebKit2.Objects.Notification - GI.WebKit2.Objects.NotificationPermissionRequest - GI.WebKit2.Objects.Plugin - GI.WebKit2.Objects.PolicyDecision - GI.WebKit2.Objects.PrintOperation - GI.WebKit2.Objects.ResponsePolicyDecision - GI.WebKit2.Objects.SecurityManager - GI.WebKit2.Objects.Settings - GI.WebKit2.Objects.URIRequest - GI.WebKit2.Objects.URIResponse - GI.WebKit2.Objects.URISchemeRequest - GI.WebKit2.Objects.UserContentManager - GI.WebKit2.Objects.UserMediaPermissionRequest - GI.WebKit2.Objects.WebContext - GI.WebKit2.Objects.WebInspector - GI.WebKit2.Objects.WebResource - GI.WebKit2.Objects.WebView - GI.WebKit2.Objects.WebViewBase - GI.WebKit2.Objects.WebsiteDataManager - GI.WebKit2.Objects.WindowProperties - GI.WebKit2.Structs - GI.WebKit2.Structs.Credential - GI.WebKit2.Structs.JavascriptResult - GI.WebKit2.Structs.MimeInfo - GI.WebKit2.Structs.NavigationAction - GI.WebKit2.Structs.ScriptDialog - GI.WebKit2.Structs.UserScript - GI.WebKit2.Structs.UserStyleSheet - GI.WebKit2.Structs.WebViewSessionState - pkgconfig-depends: webkit2gtk-4.0 >= 2.12 + + pkgconfig-depends: webkit2gtk-4.0 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1, - gi-atk >= 0.2.18.15 && < 0.2.19, - gi-glib >= 0.2.46.15 && < 0.2.47, - gi-gobject >= 0.2.46.15 && < 0.2.47, - gi-gdk >= 0.3.18.15 && < 0.3.19, - gi-gio >= 0.2.46.15 && < 0.2.47, - gi-gtk >= 0.3.18.15 && < 0.3.19, - gi-javascriptcore >= 0.2.12.15 && < 0.2.13, - gi-soup >= 0.2.52.15 && < 0.2.53, - gi-cairo >= 0.1.14.15 && < 0.1.15, + gi-atk == 2.0.*, + gi-glib == 2.0.*, + gi-gobject == 2.0.*, + gi-gdk == 3.0.*, + gi-gio == 2.0.*, + gi-gtk == 3.0.*, + gi-javascriptcore == 4.0.*, + gi-soup == 2.4.*, + gi-cairo == 1.0.*, bytestring >= 0.10, containers >= 0.5, text >= 1.0, - transformers >= 0.3 + transformers >= 0.5