module GI.WebKit.Flags
(
SecurityPolicy(..) ,
HitTestResultContext(..) ,
) 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 SecurityPolicy =
SecurityPolicyLocal
| SecurityPolicyNoAccessToOtherScheme
| SecurityPolicyDisplayIsolated
| SecurityPolicySecure
| SecurityPolicyCorsEnabled
| SecurityPolicyEmptyDocument
| AnotherSecurityPolicy Int
deriving (Show, Eq)
instance Enum SecurityPolicy where
fromEnum SecurityPolicyLocal = 2
fromEnum SecurityPolicyNoAccessToOtherScheme = 4
fromEnum SecurityPolicyDisplayIsolated = 8
fromEnum SecurityPolicySecure = 16
fromEnum SecurityPolicyCorsEnabled = 32
fromEnum SecurityPolicyEmptyDocument = 64
fromEnum (AnotherSecurityPolicy k) = k
toEnum 2 = SecurityPolicyLocal
toEnum 4 = SecurityPolicyNoAccessToOtherScheme
toEnum 8 = SecurityPolicyDisplayIsolated
toEnum 16 = SecurityPolicySecure
toEnum 32 = SecurityPolicyCorsEnabled
toEnum 64 = SecurityPolicyEmptyDocument
toEnum k = AnotherSecurityPolicy k
foreign import ccall "webkit_security_policy_get_type" c_webkit_security_policy_get_type ::
IO GType
instance BoxedEnum SecurityPolicy where
boxedEnumType _ = c_webkit_security_policy_get_type
instance IsGFlag SecurityPolicy
data HitTestResultContext =
HitTestResultContextDocument
| HitTestResultContextLink
| HitTestResultContextImage
| HitTestResultContextMedia
| HitTestResultContextSelection
| HitTestResultContextEditable
| AnotherHitTestResultContext Int
deriving (Show, Eq)
instance Enum HitTestResultContext where
fromEnum HitTestResultContextDocument = 2
fromEnum HitTestResultContextLink = 4
fromEnum HitTestResultContextImage = 8
fromEnum HitTestResultContextMedia = 16
fromEnum HitTestResultContextSelection = 32
fromEnum HitTestResultContextEditable = 64
fromEnum (AnotherHitTestResultContext k) = k
toEnum 2 = HitTestResultContextDocument
toEnum 4 = HitTestResultContextLink
toEnum 8 = HitTestResultContextImage
toEnum 16 = HitTestResultContextMedia
toEnum 32 = HitTestResultContextSelection
toEnum 64 = HitTestResultContextEditable
toEnum k = AnotherHitTestResultContext k
foreign import ccall "webkit_hit_test_result_context_get_type" c_webkit_hit_test_result_context_get_type ::
IO GType
instance BoxedEnum HitTestResultContext where
boxedEnumType _ = c_webkit_hit_test_result_context_get_type
instance IsGFlag HitTestResultContext