#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Flags
(
EditorTypingAttributes(..) ,
FindOptions(..) ,
HitTestResultContext(..) ,
SnapshotOptions(..) ,
WebsiteDataTypes(..) ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
data WebsiteDataTypes =
WebsiteDataTypesMemoryCache
| WebsiteDataTypesDiskCache
| WebsiteDataTypesOfflineApplicationCache
| WebsiteDataTypesSessionStorage
| WebsiteDataTypesLocalStorage
| WebsiteDataTypesWebsqlDatabases
| WebsiteDataTypesIndexeddbDatabases
| WebsiteDataTypesPluginData
| WebsiteDataTypesCookies
| WebsiteDataTypesAll
| AnotherWebsiteDataTypes Int
deriving (Show, Eq)
instance P.Enum WebsiteDataTypes where
fromEnum WebsiteDataTypesMemoryCache = 1
fromEnum WebsiteDataTypesDiskCache = 2
fromEnum WebsiteDataTypesOfflineApplicationCache = 4
fromEnum WebsiteDataTypesSessionStorage = 8
fromEnum WebsiteDataTypesLocalStorage = 16
fromEnum WebsiteDataTypesWebsqlDatabases = 32
fromEnum WebsiteDataTypesIndexeddbDatabases = 64
fromEnum WebsiteDataTypesPluginData = 128
fromEnum WebsiteDataTypesCookies = 256
fromEnum WebsiteDataTypesAll = 511
fromEnum (AnotherWebsiteDataTypes k) = k
toEnum 1 = WebsiteDataTypesMemoryCache
toEnum 2 = WebsiteDataTypesDiskCache
toEnum 4 = WebsiteDataTypesOfflineApplicationCache
toEnum 8 = WebsiteDataTypesSessionStorage
toEnum 16 = WebsiteDataTypesLocalStorage
toEnum 32 = WebsiteDataTypesWebsqlDatabases
toEnum 64 = WebsiteDataTypesIndexeddbDatabases
toEnum 128 = WebsiteDataTypesPluginData
toEnum 256 = WebsiteDataTypesCookies
toEnum 511 = WebsiteDataTypesAll
toEnum k = AnotherWebsiteDataTypes k
instance P.Ord WebsiteDataTypes where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "webkit_website_data_types_get_type" c_webkit_website_data_types_get_type ::
IO GType
instance BoxedFlags WebsiteDataTypes where
boxedFlagsType _ = c_webkit_website_data_types_get_type
instance IsGFlag WebsiteDataTypes
data SnapshotOptions =
SnapshotOptionsNone
| SnapshotOptionsIncludeSelectionHighlighting
| SnapshotOptionsTransparentBackground
| AnotherSnapshotOptions Int
deriving (Show, Eq)
instance P.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
instance P.Ord SnapshotOptions where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
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
data HitTestResultContext =
HitTestResultContextDocument
| HitTestResultContextLink
| HitTestResultContextImage
| HitTestResultContextMedia
| HitTestResultContextEditable
| HitTestResultContextScrollbar
| HitTestResultContextSelection
| AnotherHitTestResultContext Int
deriving (Show, Eq)
instance P.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
instance P.Ord HitTestResultContext where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
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
data FindOptions =
FindOptionsNone
| FindOptionsCaseInsensitive
| FindOptionsAtWordStarts
| FindOptionsTreatMedialCapitalAsWordStart
| FindOptionsBackwards
| FindOptionsWrapAround
| AnotherFindOptions Int
deriving (Show, Eq)
instance P.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
instance P.Ord FindOptions where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
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
data EditorTypingAttributes =
EditorTypingAttributesNone
| EditorTypingAttributesBold
| EditorTypingAttributesItalic
| EditorTypingAttributesUnderline
| EditorTypingAttributesStrikethrough
| AnotherEditorTypingAttributes Int
deriving (Show, Eq)
instance P.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
instance P.Ord EditorTypingAttributes where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
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