module GI.WebKit.Enums
(
catchPolicyError ,
handlePolicyError ,
catchPluginError ,
handlePluginError ,
catchNetworkError ,
handleNetworkError ,
WebViewViewMode(..) ,
WebViewTargetInfo(..) ,
WebNavigationReason(..) ,
SelectionAffinity(..) ,
PolicyError(..) ,
PluginError(..) ,
NetworkError(..) ,
NavigationResponse(..) ,
LoadStatus(..) ,
InsertAction(..) ,
EditingBehavior(..) ,
DownloadStatus(..) ,
DownloadError(..) ,
ContextMenuAction(..) ,
CacheModel(..) ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
data WebViewViewMode =
WebViewViewModeWindowed
| WebViewViewModeFloating
| WebViewViewModeFullscreen
| WebViewViewModeMaximized
| WebViewViewModeMinimized
| AnotherWebViewViewMode Int
deriving (Show, Eq)
instance Enum WebViewViewMode where
fromEnum WebViewViewModeWindowed = 0
fromEnum WebViewViewModeFloating = 1
fromEnum WebViewViewModeFullscreen = 2
fromEnum WebViewViewModeMaximized = 3
fromEnum WebViewViewModeMinimized = 4
fromEnum (AnotherWebViewViewMode k) = k
toEnum 0 = WebViewViewModeWindowed
toEnum 1 = WebViewViewModeFloating
toEnum 2 = WebViewViewModeFullscreen
toEnum 3 = WebViewViewModeMaximized
toEnum 4 = WebViewViewModeMinimized
toEnum k = AnotherWebViewViewMode k
foreign import ccall "webkit_web_view_view_mode_get_type" c_webkit_web_view_view_mode_get_type ::
IO GType
instance BoxedEnum WebViewViewMode where
boxedEnumType _ = c_webkit_web_view_view_mode_get_type
data WebViewTargetInfo =
WebViewTargetInfoHtml
| WebViewTargetInfoText
| WebViewTargetInfoImage
| WebViewTargetInfoUriList
| WebViewTargetInfoNetscapeUrl
| AnotherWebViewTargetInfo Int
deriving (Show, Eq)
instance Enum WebViewTargetInfo where
fromEnum WebViewTargetInfoHtml = 0
fromEnum WebViewTargetInfoText = 1
fromEnum WebViewTargetInfoImage = 2
fromEnum WebViewTargetInfoUriList = 3
fromEnum WebViewTargetInfoNetscapeUrl = 4
fromEnum (AnotherWebViewTargetInfo k) = k
toEnum 0 = WebViewTargetInfoHtml
toEnum 1 = WebViewTargetInfoText
toEnum 2 = WebViewTargetInfoImage
toEnum 3 = WebViewTargetInfoUriList
toEnum 4 = WebViewTargetInfoNetscapeUrl
toEnum k = AnotherWebViewTargetInfo k
foreign import ccall "webkit_web_view_target_info_get_type" c_webkit_web_view_target_info_get_type ::
IO GType
instance BoxedEnum WebViewTargetInfo where
boxedEnumType _ = c_webkit_web_view_target_info_get_type
data WebNavigationReason =
WebNavigationReasonLinkClicked
| WebNavigationReasonFormSubmitted
| WebNavigationReasonBackForward
| WebNavigationReasonReload
| WebNavigationReasonFormResubmitted
| WebNavigationReasonOther
| AnotherWebNavigationReason Int
deriving (Show, Eq)
instance Enum WebNavigationReason where
fromEnum WebNavigationReasonLinkClicked = 0
fromEnum WebNavigationReasonFormSubmitted = 1
fromEnum WebNavigationReasonBackForward = 2
fromEnum WebNavigationReasonReload = 3
fromEnum WebNavigationReasonFormResubmitted = 4
fromEnum WebNavigationReasonOther = 5
fromEnum (AnotherWebNavigationReason k) = k
toEnum 0 = WebNavigationReasonLinkClicked
toEnum 1 = WebNavigationReasonFormSubmitted
toEnum 2 = WebNavigationReasonBackForward
toEnum 3 = WebNavigationReasonReload
toEnum 4 = WebNavigationReasonFormResubmitted
toEnum 5 = WebNavigationReasonOther
toEnum k = AnotherWebNavigationReason k
foreign import ccall "webkit_web_navigation_reason_get_type" c_webkit_web_navigation_reason_get_type ::
IO GType
instance BoxedEnum WebNavigationReason where
boxedEnumType _ = c_webkit_web_navigation_reason_get_type
data SelectionAffinity =
SelectionAffinityUpstream
| SelectionAffinityDownstream
| AnotherSelectionAffinity Int
deriving (Show, Eq)
instance Enum SelectionAffinity where
fromEnum SelectionAffinityUpstream = 0
fromEnum SelectionAffinityDownstream = 1
fromEnum (AnotherSelectionAffinity k) = k
toEnum 0 = SelectionAffinityUpstream
toEnum 1 = SelectionAffinityDownstream
toEnum k = AnotherSelectionAffinity k
foreign import ccall "webkit_selection_affinity_get_type" c_webkit_selection_affinity_get_type ::
IO GType
instance BoxedEnum SelectionAffinity where
boxedEnumType _ = c_webkit_selection_affinity_get_type
data PolicyError =
PolicyErrorFailed
| PolicyErrorCannotShowMimeType
| PolicyErrorCannotShowUrl
| PolicyErrorFrameLoadInterruptedByPolicyChange
| PolicyErrorCannotUseRestrictedPort
| AnotherPolicyError Int
deriving (Show, Eq)
instance Enum PolicyError where
fromEnum PolicyErrorFailed = 199
fromEnum PolicyErrorCannotShowMimeType = 100
fromEnum PolicyErrorCannotShowUrl = 101
fromEnum PolicyErrorFrameLoadInterruptedByPolicyChange = 102
fromEnum PolicyErrorCannotUseRestrictedPort = 103
fromEnum (AnotherPolicyError k) = k
toEnum 100 = PolicyErrorCannotShowMimeType
toEnum 101 = PolicyErrorCannotShowUrl
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
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
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
data NavigationResponse =
NavigationResponseAccept
| NavigationResponseIgnore
| NavigationResponseDownload
| AnotherNavigationResponse Int
deriving (Show, Eq)
instance Enum NavigationResponse where
fromEnum NavigationResponseAccept = 0
fromEnum NavigationResponseIgnore = 1
fromEnum NavigationResponseDownload = 2
fromEnum (AnotherNavigationResponse k) = k
toEnum 0 = NavigationResponseAccept
toEnum 1 = NavigationResponseIgnore
toEnum 2 = NavigationResponseDownload
toEnum k = AnotherNavigationResponse k
foreign import ccall "webkit_navigation_response_get_type" c_webkit_navigation_response_get_type ::
IO GType
instance BoxedEnum NavigationResponse where
boxedEnumType _ = c_webkit_navigation_response_get_type
data LoadStatus =
LoadStatusProvisional
| LoadStatusCommitted
| LoadStatusFinished
| LoadStatusFirstVisuallyNonEmptyLayout
| LoadStatusFailed
| AnotherLoadStatus Int
deriving (Show, Eq)
instance Enum LoadStatus where
fromEnum LoadStatusProvisional = 0
fromEnum LoadStatusCommitted = 1
fromEnum LoadStatusFinished = 2
fromEnum LoadStatusFirstVisuallyNonEmptyLayout = 3
fromEnum LoadStatusFailed = 4
fromEnum (AnotherLoadStatus k) = k
toEnum 0 = LoadStatusProvisional
toEnum 1 = LoadStatusCommitted
toEnum 2 = LoadStatusFinished
toEnum 3 = LoadStatusFirstVisuallyNonEmptyLayout
toEnum 4 = LoadStatusFailed
toEnum k = AnotherLoadStatus k
foreign import ccall "webkit_load_status_get_type" c_webkit_load_status_get_type ::
IO GType
instance BoxedEnum LoadStatus where
boxedEnumType _ = c_webkit_load_status_get_type
data InsertAction =
InsertActionTyped
| InsertActionPasted
| InsertActionDropped
| AnotherInsertAction Int
deriving (Show, Eq)
instance Enum InsertAction where
fromEnum InsertActionTyped = 0
fromEnum InsertActionPasted = 1
fromEnum InsertActionDropped = 2
fromEnum (AnotherInsertAction k) = k
toEnum 0 = InsertActionTyped
toEnum 1 = InsertActionPasted
toEnum 2 = InsertActionDropped
toEnum k = AnotherInsertAction k
foreign import ccall "webkit_insert_action_get_type" c_webkit_insert_action_get_type ::
IO GType
instance BoxedEnum InsertAction where
boxedEnumType _ = c_webkit_insert_action_get_type
data EditingBehavior =
EditingBehaviorMac
| EditingBehaviorWindows
| EditingBehaviorUnix
| AnotherEditingBehavior Int
deriving (Show, Eq)
instance Enum EditingBehavior where
fromEnum EditingBehaviorMac = 0
fromEnum EditingBehaviorWindows = 1
fromEnum EditingBehaviorUnix = 2
fromEnum (AnotherEditingBehavior k) = k
toEnum 0 = EditingBehaviorMac
toEnum 1 = EditingBehaviorWindows
toEnum 2 = EditingBehaviorUnix
toEnum k = AnotherEditingBehavior k
foreign import ccall "webkit_editing_behavior_get_type" c_webkit_editing_behavior_get_type ::
IO GType
instance BoxedEnum EditingBehavior where
boxedEnumType _ = c_webkit_editing_behavior_get_type
data DownloadStatus =
DownloadStatusError
| DownloadStatusCreated
| DownloadStatusStarted
| DownloadStatusCancelled
| DownloadStatusFinished
| AnotherDownloadStatus Int
deriving (Show, Eq)
instance Enum DownloadStatus where
fromEnum DownloadStatusError = 1
fromEnum DownloadStatusCreated = 0
fromEnum DownloadStatusStarted = 1
fromEnum DownloadStatusCancelled = 2
fromEnum DownloadStatusFinished = 3
fromEnum (AnotherDownloadStatus k) = k
toEnum 1 = DownloadStatusError
toEnum 0 = DownloadStatusCreated
toEnum 1 = DownloadStatusStarted
toEnum 2 = DownloadStatusCancelled
toEnum 3 = DownloadStatusFinished
toEnum k = AnotherDownloadStatus k
foreign import ccall "webkit_download_status_get_type" c_webkit_download_status_get_type ::
IO GType
instance BoxedEnum DownloadStatus where
boxedEnumType _ = c_webkit_download_status_get_type
data DownloadError =
DownloadErrorCancelledByUser
| DownloadErrorDestination
| DownloadErrorNetwork
| AnotherDownloadError Int
deriving (Show, Eq)
instance Enum DownloadError where
fromEnum DownloadErrorCancelledByUser = 0
fromEnum DownloadErrorDestination = 1
fromEnum DownloadErrorNetwork = 2
fromEnum (AnotherDownloadError k) = k
toEnum 0 = DownloadErrorCancelledByUser
toEnum 1 = DownloadErrorDestination
toEnum 2 = DownloadErrorNetwork
toEnum k = AnotherDownloadError k
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
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
| ContextMenuActionOpenMediaInNewWindow
| ContextMenuActionCopyMediaLinkToClipboard
| ContextMenuActionToggleMediaControls
| ContextMenuActionToggleMediaLoop
| ContextMenuActionEnterVideoFullscreen
| ContextMenuActionMediaPlayPause
| ContextMenuActionMediaMute
| 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 ContextMenuActionOpenMediaInNewWindow = 32
fromEnum ContextMenuActionCopyMediaLinkToClipboard = 33
fromEnum ContextMenuActionToggleMediaControls = 34
fromEnum ContextMenuActionToggleMediaLoop = 35
fromEnum ContextMenuActionEnterVideoFullscreen = 36
fromEnum ContextMenuActionMediaPlayPause = 37
fromEnum ContextMenuActionMediaMute = 38
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 = ContextMenuActionOpenMediaInNewWindow
toEnum 33 = ContextMenuActionCopyMediaLinkToClipboard
toEnum 34 = ContextMenuActionToggleMediaControls
toEnum 35 = ContextMenuActionToggleMediaLoop
toEnum 36 = ContextMenuActionEnterVideoFullscreen
toEnum 37 = ContextMenuActionMediaPlayPause
toEnum 38 = ContextMenuActionMediaMute
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
data CacheModel =
CacheModelDefault
| CacheModelDocumentViewer
| CacheModelWebBrowser
| CacheModelDocumentBrowser
| AnotherCacheModel Int
deriving (Show, Eq)
instance Enum CacheModel where
fromEnum CacheModelDefault = 0
fromEnum CacheModelDocumentViewer = 1
fromEnum CacheModelWebBrowser = 2
fromEnum CacheModelDocumentBrowser = 3
fromEnum (AnotherCacheModel k) = k
toEnum 0 = CacheModelDefault
toEnum 1 = CacheModelDocumentViewer
toEnum 2 = CacheModelWebBrowser
toEnum 3 = 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