#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gsk.Enums
(
BlendMode(..) ,
Corner(..) ,
FillRule(..) ,
GLUniformType(..) ,
LineCap(..) ,
LineJoin(..) ,
MaskMode(..) ,
PathDirection(..) ,
PathOperation(..) ,
RenderNodeType(..) ,
ScalingFilter(..) ,
SerializationError(..) ,
catchSerializationError ,
handleSerializationError ,
TransformCategory(..) ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
#else
#endif
data TransformCategory =
TransformCategoryUnknown
| TransformCategoryAny
| TransformCategory3d
| TransformCategory2d
| TransformCategory2dAffine
| TransformCategory2dTranslate
| TransformCategoryIdentity
| AnotherTransformCategory Int
deriving (Int -> TransformCategory -> ShowS
[TransformCategory] -> ShowS
TransformCategory -> String
(Int -> TransformCategory -> ShowS)
-> (TransformCategory -> String)
-> ([TransformCategory] -> ShowS)
-> Show TransformCategory
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TransformCategory -> ShowS
showsPrec :: Int -> TransformCategory -> ShowS
$cshow :: TransformCategory -> String
show :: TransformCategory -> String
$cshowList :: [TransformCategory] -> ShowS
showList :: [TransformCategory] -> ShowS
Show, TransformCategory -> TransformCategory -> Bool
(TransformCategory -> TransformCategory -> Bool)
-> (TransformCategory -> TransformCategory -> Bool)
-> Eq TransformCategory
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TransformCategory -> TransformCategory -> Bool
== :: TransformCategory -> TransformCategory -> Bool
$c/= :: TransformCategory -> TransformCategory -> Bool
/= :: TransformCategory -> TransformCategory -> Bool
Eq)
instance P.Enum TransformCategory where
fromEnum :: TransformCategory -> Int
fromEnum TransformCategory
TransformCategoryUnknown = Int
0
fromEnum TransformCategory
TransformCategoryAny = Int
1
fromEnum TransformCategory
TransformCategory3d = Int
2
fromEnum TransformCategory
TransformCategory2d = Int
3
fromEnum TransformCategory
TransformCategory2dAffine = Int
4
fromEnum TransformCategory
TransformCategory2dTranslate = Int
5
fromEnum TransformCategory
TransformCategoryIdentity = Int
6
fromEnum (AnotherTransformCategory Int
k) = Int
k
toEnum :: Int -> TransformCategory
toEnum Int
0 = TransformCategory
TransformCategoryUnknown
toEnum Int
1 = TransformCategory
TransformCategoryAny
toEnum Int
2 = TransformCategory
TransformCategory3d
toEnum Int
3 = TransformCategory
TransformCategory2d
toEnum Int
4 = TransformCategory
TransformCategory2dAffine
toEnum Int
5 = TransformCategory
TransformCategory2dTranslate
toEnum Int
6 = TransformCategory
TransformCategoryIdentity
toEnum Int
k = Int -> TransformCategory
AnotherTransformCategory Int
k
instance P.Ord TransformCategory where
compare :: TransformCategory -> TransformCategory -> Ordering
compare TransformCategory
a TransformCategory
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TransformCategory -> Int
forall a. Enum a => a -> Int
P.fromEnum TransformCategory
a) (TransformCategory -> Int
forall a. Enum a => a -> Int
P.fromEnum TransformCategory
b)
type instance O.ParentTypes TransformCategory = '[]
instance O.HasParentTypes TransformCategory
foreign import ccall "gsk_transform_category_get_type" c_gsk_transform_category_get_type ::
IO GType
instance B.Types.TypedObject TransformCategory where
glibType :: IO GType
glibType = IO GType
c_gsk_transform_category_get_type
instance B.Types.BoxedEnum TransformCategory
data SerializationError =
SerializationErrorUnsupportedFormat
| SerializationErrorUnsupportedVersion
| SerializationErrorInvalidData
| AnotherSerializationError Int
deriving (Int -> SerializationError -> ShowS
[SerializationError] -> ShowS
SerializationError -> String
(Int -> SerializationError -> ShowS)
-> (SerializationError -> String)
-> ([SerializationError] -> ShowS)
-> Show SerializationError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SerializationError -> ShowS
showsPrec :: Int -> SerializationError -> ShowS
$cshow :: SerializationError -> String
show :: SerializationError -> String
$cshowList :: [SerializationError] -> ShowS
showList :: [SerializationError] -> ShowS
Show, SerializationError -> SerializationError -> Bool
(SerializationError -> SerializationError -> Bool)
-> (SerializationError -> SerializationError -> Bool)
-> Eq SerializationError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SerializationError -> SerializationError -> Bool
== :: SerializationError -> SerializationError -> Bool
$c/= :: SerializationError -> SerializationError -> Bool
/= :: SerializationError -> SerializationError -> Bool
Eq)
instance P.Enum SerializationError where
fromEnum :: SerializationError -> Int
fromEnum SerializationError
SerializationErrorUnsupportedFormat = Int
0
fromEnum SerializationError
SerializationErrorUnsupportedVersion = Int
1
fromEnum SerializationError
SerializationErrorInvalidData = Int
2
fromEnum (AnotherSerializationError Int
k) = Int
k
toEnum :: Int -> SerializationError
toEnum Int
0 = SerializationError
SerializationErrorUnsupportedFormat
toEnum Int
1 = SerializationError
SerializationErrorUnsupportedVersion
toEnum Int
2 = SerializationError
SerializationErrorInvalidData
toEnum Int
k = Int -> SerializationError
AnotherSerializationError Int
k
instance P.Ord SerializationError where
compare :: SerializationError -> SerializationError -> Ordering
compare SerializationError
a SerializationError
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (SerializationError -> Int
forall a. Enum a => a -> Int
P.fromEnum SerializationError
a) (SerializationError -> Int
forall a. Enum a => a -> Int
P.fromEnum SerializationError
b)
instance GErrorClass SerializationError where
gerrorClassDomain :: SerializationError -> Text
gerrorClassDomain SerializationError
_ = Text
"gsk-serialization-error-quark"
catchSerializationError ::
IO a ->
(SerializationError -> GErrorMessage -> IO a) ->
IO a
catchSerializationError :: forall a. IO a -> (SerializationError -> Text -> IO a) -> IO a
catchSerializationError = IO a -> (SerializationError -> Text -> IO a) -> IO a
forall err a.
GErrorClass err =>
IO a -> (err -> Text -> IO a) -> IO a
catchGErrorJustDomain
handleSerializationError ::
(SerializationError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleSerializationError :: forall a. (SerializationError -> Text -> IO a) -> IO a -> IO a
handleSerializationError = (SerializationError -> Text -> IO a) -> IO a -> IO a
forall err a.
GErrorClass err =>
(err -> Text -> IO a) -> IO a -> IO a
handleGErrorJustDomain
type instance O.ParentTypes SerializationError = '[]
instance O.HasParentTypes SerializationError
foreign import ccall "gsk_serialization_error_get_type" c_gsk_serialization_error_get_type ::
IO GType
instance B.Types.TypedObject SerializationError where
glibType :: IO GType
glibType = IO GType
c_gsk_serialization_error_get_type
instance B.Types.BoxedEnum SerializationError
data ScalingFilter =
ScalingFilterLinear
| ScalingFilterNearest
| ScalingFilterTrilinear
| AnotherScalingFilter Int
deriving (Int -> ScalingFilter -> ShowS
[ScalingFilter] -> ShowS
ScalingFilter -> String
(Int -> ScalingFilter -> ShowS)
-> (ScalingFilter -> String)
-> ([ScalingFilter] -> ShowS)
-> Show ScalingFilter
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ScalingFilter -> ShowS
showsPrec :: Int -> ScalingFilter -> ShowS
$cshow :: ScalingFilter -> String
show :: ScalingFilter -> String
$cshowList :: [ScalingFilter] -> ShowS
showList :: [ScalingFilter] -> ShowS
Show, ScalingFilter -> ScalingFilter -> Bool
(ScalingFilter -> ScalingFilter -> Bool)
-> (ScalingFilter -> ScalingFilter -> Bool) -> Eq ScalingFilter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScalingFilter -> ScalingFilter -> Bool
== :: ScalingFilter -> ScalingFilter -> Bool
$c/= :: ScalingFilter -> ScalingFilter -> Bool
/= :: ScalingFilter -> ScalingFilter -> Bool
Eq)
instance P.Enum ScalingFilter where
fromEnum :: ScalingFilter -> Int
fromEnum ScalingFilter
ScalingFilterLinear = Int
0
fromEnum ScalingFilter
ScalingFilterNearest = Int
1
fromEnum ScalingFilter
ScalingFilterTrilinear = Int
2
fromEnum (AnotherScalingFilter Int
k) = Int
k
toEnum :: Int -> ScalingFilter
toEnum Int
0 = ScalingFilter
ScalingFilterLinear
toEnum Int
1 = ScalingFilter
ScalingFilterNearest
toEnum Int
2 = ScalingFilter
ScalingFilterTrilinear
toEnum Int
k = Int -> ScalingFilter
AnotherScalingFilter Int
k
instance P.Ord ScalingFilter where
compare :: ScalingFilter -> ScalingFilter -> Ordering
compare ScalingFilter
a ScalingFilter
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (ScalingFilter -> Int
forall a. Enum a => a -> Int
P.fromEnum ScalingFilter
a) (ScalingFilter -> Int
forall a. Enum a => a -> Int
P.fromEnum ScalingFilter
b)
type instance O.ParentTypes ScalingFilter = '[]
instance O.HasParentTypes ScalingFilter
foreign import ccall "gsk_scaling_filter_get_type" c_gsk_scaling_filter_get_type ::
IO GType
instance B.Types.TypedObject ScalingFilter where
glibType :: IO GType
glibType = IO GType
c_gsk_scaling_filter_get_type
instance B.Types.BoxedEnum ScalingFilter
data RenderNodeType =
RenderNodeTypeNotARenderNode
| RenderNodeTypeContainerNode
| RenderNodeTypeCairoNode
| RenderNodeTypeColorNode
| RenderNodeTypeLinearGradientNode
| RenderNodeTypeRepeatingLinearGradientNode
| RenderNodeTypeRadialGradientNode
| RenderNodeTypeRepeatingRadialGradientNode
| RenderNodeTypeConicGradientNode
| RenderNodeTypeBorderNode
| RenderNodeTypeTextureNode
| RenderNodeTypeInsetShadowNode
| RenderNodeTypeOutsetShadowNode
| RenderNodeTypeTransformNode
| RenderNodeTypeOpacityNode
| RenderNodeTypeColorMatrixNode
| RenderNodeTypeRepeatNode
| RenderNodeTypeClipNode
| RenderNodeTypeRoundedClipNode
| RenderNodeTypeShadowNode
| RenderNodeTypeBlendNode
| RenderNodeTypeCrossFadeNode
| RenderNodeTypeTextNode
| RenderNodeTypeBlurNode
| RenderNodeTypeDebugNode
| RenderNodeTypeGlShaderNode
| RenderNodeTypeTextureScaleNode
| RenderNodeTypeMaskNode
| RenderNodeTypeFillNode
| RenderNodeTypeStrokeNode
| RenderNodeTypeSubsurfaceNode
| AnotherRenderNodeType Int
deriving (Int -> RenderNodeType -> ShowS
[RenderNodeType] -> ShowS
RenderNodeType -> String
(Int -> RenderNodeType -> ShowS)
-> (RenderNodeType -> String)
-> ([RenderNodeType] -> ShowS)
-> Show RenderNodeType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RenderNodeType -> ShowS
showsPrec :: Int -> RenderNodeType -> ShowS
$cshow :: RenderNodeType -> String
show :: RenderNodeType -> String
$cshowList :: [RenderNodeType] -> ShowS
showList :: [RenderNodeType] -> ShowS
Show, RenderNodeType -> RenderNodeType -> Bool
(RenderNodeType -> RenderNodeType -> Bool)
-> (RenderNodeType -> RenderNodeType -> Bool) -> Eq RenderNodeType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RenderNodeType -> RenderNodeType -> Bool
== :: RenderNodeType -> RenderNodeType -> Bool
$c/= :: RenderNodeType -> RenderNodeType -> Bool
/= :: RenderNodeType -> RenderNodeType -> Bool
Eq)
instance P.Enum RenderNodeType where
fromEnum :: RenderNodeType -> Int
fromEnum RenderNodeType
RenderNodeTypeNotARenderNode = Int
0
fromEnum RenderNodeType
RenderNodeTypeContainerNode = Int
1
fromEnum RenderNodeType
RenderNodeTypeCairoNode = Int
2
fromEnum RenderNodeType
RenderNodeTypeColorNode = Int
3
fromEnum RenderNodeType
RenderNodeTypeLinearGradientNode = Int
4
fromEnum RenderNodeType
RenderNodeTypeRepeatingLinearGradientNode = Int
5
fromEnum RenderNodeType
RenderNodeTypeRadialGradientNode = Int
6
fromEnum RenderNodeType
RenderNodeTypeRepeatingRadialGradientNode = Int
7
fromEnum RenderNodeType
RenderNodeTypeConicGradientNode = Int
8
fromEnum RenderNodeType
RenderNodeTypeBorderNode = Int
9
fromEnum RenderNodeType
RenderNodeTypeTextureNode = Int
10
fromEnum RenderNodeType
RenderNodeTypeInsetShadowNode = Int
11
fromEnum RenderNodeType
RenderNodeTypeOutsetShadowNode = Int
12
fromEnum RenderNodeType
RenderNodeTypeTransformNode = Int
13
fromEnum RenderNodeType
RenderNodeTypeOpacityNode = Int
14
fromEnum RenderNodeType
RenderNodeTypeColorMatrixNode = Int
15
fromEnum RenderNodeType
RenderNodeTypeRepeatNode = Int
16
fromEnum RenderNodeType
RenderNodeTypeClipNode = Int
17
fromEnum RenderNodeType
RenderNodeTypeRoundedClipNode = Int
18
fromEnum RenderNodeType
RenderNodeTypeShadowNode = Int
19
fromEnum RenderNodeType
RenderNodeTypeBlendNode = Int
20
fromEnum RenderNodeType
RenderNodeTypeCrossFadeNode = Int
21
fromEnum RenderNodeType
RenderNodeTypeTextNode = Int
22
fromEnum RenderNodeType
RenderNodeTypeBlurNode = Int
23
fromEnum RenderNodeType
RenderNodeTypeDebugNode = Int
24
fromEnum RenderNodeType
RenderNodeTypeGlShaderNode = Int
25
fromEnum RenderNodeType
RenderNodeTypeTextureScaleNode = Int
26
fromEnum RenderNodeType
RenderNodeTypeMaskNode = Int
27
fromEnum RenderNodeType
RenderNodeTypeFillNode = Int
28
fromEnum RenderNodeType
RenderNodeTypeStrokeNode = Int
29
fromEnum RenderNodeType
RenderNodeTypeSubsurfaceNode = Int
30
fromEnum (AnotherRenderNodeType Int
k) = Int
k
toEnum :: Int -> RenderNodeType
toEnum Int
0 = RenderNodeType
RenderNodeTypeNotARenderNode
toEnum Int
1 = RenderNodeType
RenderNodeTypeContainerNode
toEnum Int
2 = RenderNodeType
RenderNodeTypeCairoNode
toEnum Int
3 = RenderNodeType
RenderNodeTypeColorNode
toEnum Int
4 = RenderNodeType
RenderNodeTypeLinearGradientNode
toEnum Int
5 = RenderNodeType
RenderNodeTypeRepeatingLinearGradientNode
toEnum Int
6 = RenderNodeType
RenderNodeTypeRadialGradientNode
toEnum Int
7 = RenderNodeType
RenderNodeTypeRepeatingRadialGradientNode
toEnum Int
8 = RenderNodeType
RenderNodeTypeConicGradientNode
toEnum Int
9 = RenderNodeType
RenderNodeTypeBorderNode
toEnum Int
10 = RenderNodeType
RenderNodeTypeTextureNode
toEnum Int
11 = RenderNodeType
RenderNodeTypeInsetShadowNode
toEnum Int
12 = RenderNodeType
RenderNodeTypeOutsetShadowNode
toEnum Int
13 = RenderNodeType
RenderNodeTypeTransformNode
toEnum Int
14 = RenderNodeType
RenderNodeTypeOpacityNode
toEnum Int
15 = RenderNodeType
RenderNodeTypeColorMatrixNode
toEnum Int
16 = RenderNodeType
RenderNodeTypeRepeatNode
toEnum Int
17 = RenderNodeType
RenderNodeTypeClipNode
toEnum Int
18 = RenderNodeType
RenderNodeTypeRoundedClipNode
toEnum Int
19 = RenderNodeType
RenderNodeTypeShadowNode
toEnum Int
20 = RenderNodeType
RenderNodeTypeBlendNode
toEnum Int
21 = RenderNodeType
RenderNodeTypeCrossFadeNode
toEnum Int
22 = RenderNodeType
RenderNodeTypeTextNode
toEnum Int
23 = RenderNodeType
RenderNodeTypeBlurNode
toEnum Int
24 = RenderNodeType
RenderNodeTypeDebugNode
toEnum Int
25 = RenderNodeType
RenderNodeTypeGlShaderNode
toEnum Int
26 = RenderNodeType
RenderNodeTypeTextureScaleNode
toEnum Int
27 = RenderNodeType
RenderNodeTypeMaskNode
toEnum Int
28 = RenderNodeType
RenderNodeTypeFillNode
toEnum Int
29 = RenderNodeType
RenderNodeTypeStrokeNode
toEnum Int
30 = RenderNodeType
RenderNodeTypeSubsurfaceNode
toEnum Int
k = Int -> RenderNodeType
AnotherRenderNodeType Int
k
instance P.Ord RenderNodeType where
compare :: RenderNodeType -> RenderNodeType -> Ordering
compare RenderNodeType
a RenderNodeType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (RenderNodeType -> Int
forall a. Enum a => a -> Int
P.fromEnum RenderNodeType
a) (RenderNodeType -> Int
forall a. Enum a => a -> Int
P.fromEnum RenderNodeType
b)
type instance O.ParentTypes RenderNodeType = '[]
instance O.HasParentTypes RenderNodeType
foreign import ccall "gsk_render_node_type_get_type" c_gsk_render_node_type_get_type ::
IO GType
instance B.Types.TypedObject RenderNodeType where
glibType :: IO GType
glibType = IO GType
c_gsk_render_node_type_get_type
instance B.Types.BoxedEnum RenderNodeType
data PathOperation =
PathOperationMove
| PathOperationClose
| PathOperationLine
| PathOperationQuad
| PathOperationCubic
| PathOperationConic
| AnotherPathOperation Int
deriving (Int -> PathOperation -> ShowS
[PathOperation] -> ShowS
PathOperation -> String
(Int -> PathOperation -> ShowS)
-> (PathOperation -> String)
-> ([PathOperation] -> ShowS)
-> Show PathOperation
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PathOperation -> ShowS
showsPrec :: Int -> PathOperation -> ShowS
$cshow :: PathOperation -> String
show :: PathOperation -> String
$cshowList :: [PathOperation] -> ShowS
showList :: [PathOperation] -> ShowS
Show, PathOperation -> PathOperation -> Bool
(PathOperation -> PathOperation -> Bool)
-> (PathOperation -> PathOperation -> Bool) -> Eq PathOperation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PathOperation -> PathOperation -> Bool
== :: PathOperation -> PathOperation -> Bool
$c/= :: PathOperation -> PathOperation -> Bool
/= :: PathOperation -> PathOperation -> Bool
Eq)
instance P.Enum PathOperation where
fromEnum :: PathOperation -> Int
fromEnum PathOperation
PathOperationMove = Int
0
fromEnum PathOperation
PathOperationClose = Int
1
fromEnum PathOperation
PathOperationLine = Int
2
fromEnum PathOperation
PathOperationQuad = Int
3
fromEnum PathOperation
PathOperationCubic = Int
4
fromEnum PathOperation
PathOperationConic = Int
5
fromEnum (AnotherPathOperation Int
k) = Int
k
toEnum :: Int -> PathOperation
toEnum Int
0 = PathOperation
PathOperationMove
toEnum Int
1 = PathOperation
PathOperationClose
toEnum Int
2 = PathOperation
PathOperationLine
toEnum Int
3 = PathOperation
PathOperationQuad
toEnum Int
4 = PathOperation
PathOperationCubic
toEnum Int
5 = PathOperation
PathOperationConic
toEnum Int
k = Int -> PathOperation
AnotherPathOperation Int
k
instance P.Ord PathOperation where
compare :: PathOperation -> PathOperation -> Ordering
compare PathOperation
a PathOperation
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (PathOperation -> Int
forall a. Enum a => a -> Int
P.fromEnum PathOperation
a) (PathOperation -> Int
forall a. Enum a => a -> Int
P.fromEnum PathOperation
b)
type instance O.ParentTypes PathOperation = '[]
instance O.HasParentTypes PathOperation
foreign import ccall "gsk_path_operation_get_type" c_gsk_path_operation_get_type ::
IO GType
instance B.Types.TypedObject PathOperation where
glibType :: IO GType
glibType = IO GType
c_gsk_path_operation_get_type
instance B.Types.BoxedEnum PathOperation
data PathDirection =
PathDirectionFromStart
| PathDirectionToStart
| PathDirectionToEnd
| PathDirectionFromEnd
| AnotherPathDirection Int
deriving (Int -> PathDirection -> ShowS
[PathDirection] -> ShowS
PathDirection -> String
(Int -> PathDirection -> ShowS)
-> (PathDirection -> String)
-> ([PathDirection] -> ShowS)
-> Show PathDirection
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PathDirection -> ShowS
showsPrec :: Int -> PathDirection -> ShowS
$cshow :: PathDirection -> String
show :: PathDirection -> String
$cshowList :: [PathDirection] -> ShowS
showList :: [PathDirection] -> ShowS
Show, PathDirection -> PathDirection -> Bool
(PathDirection -> PathDirection -> Bool)
-> (PathDirection -> PathDirection -> Bool) -> Eq PathDirection
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PathDirection -> PathDirection -> Bool
== :: PathDirection -> PathDirection -> Bool
$c/= :: PathDirection -> PathDirection -> Bool
/= :: PathDirection -> PathDirection -> Bool
Eq)
instance P.Enum PathDirection where
fromEnum :: PathDirection -> Int
fromEnum PathDirection
PathDirectionFromStart = Int
0
fromEnum PathDirection
PathDirectionToStart = Int
1
fromEnum PathDirection
PathDirectionToEnd = Int
2
fromEnum PathDirection
PathDirectionFromEnd = Int
3
fromEnum (AnotherPathDirection Int
k) = Int
k
toEnum :: Int -> PathDirection
toEnum Int
0 = PathDirection
PathDirectionFromStart
toEnum Int
1 = PathDirection
PathDirectionToStart
toEnum Int
2 = PathDirection
PathDirectionToEnd
toEnum Int
3 = PathDirection
PathDirectionFromEnd
toEnum Int
k = Int -> PathDirection
AnotherPathDirection Int
k
instance P.Ord PathDirection where
compare :: PathDirection -> PathDirection -> Ordering
compare PathDirection
a PathDirection
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (PathDirection -> Int
forall a. Enum a => a -> Int
P.fromEnum PathDirection
a) (PathDirection -> Int
forall a. Enum a => a -> Int
P.fromEnum PathDirection
b)
type instance O.ParentTypes PathDirection = '[]
instance O.HasParentTypes PathDirection
foreign import ccall "gsk_path_direction_get_type" c_gsk_path_direction_get_type ::
IO GType
instance B.Types.TypedObject PathDirection where
glibType :: IO GType
glibType = IO GType
c_gsk_path_direction_get_type
instance B.Types.BoxedEnum PathDirection
data MaskMode =
MaskModeAlpha
| MaskModeInvertedAlpha
| MaskModeLuminance
| MaskModeInvertedLuminance
| AnotherMaskMode Int
deriving (Int -> MaskMode -> ShowS
[MaskMode] -> ShowS
MaskMode -> String
(Int -> MaskMode -> ShowS)
-> (MaskMode -> String) -> ([MaskMode] -> ShowS) -> Show MaskMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MaskMode -> ShowS
showsPrec :: Int -> MaskMode -> ShowS
$cshow :: MaskMode -> String
show :: MaskMode -> String
$cshowList :: [MaskMode] -> ShowS
showList :: [MaskMode] -> ShowS
Show, MaskMode -> MaskMode -> Bool
(MaskMode -> MaskMode -> Bool)
-> (MaskMode -> MaskMode -> Bool) -> Eq MaskMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MaskMode -> MaskMode -> Bool
== :: MaskMode -> MaskMode -> Bool
$c/= :: MaskMode -> MaskMode -> Bool
/= :: MaskMode -> MaskMode -> Bool
Eq)
instance P.Enum MaskMode where
fromEnum :: MaskMode -> Int
fromEnum MaskMode
MaskModeAlpha = Int
0
fromEnum MaskMode
MaskModeInvertedAlpha = Int
1
fromEnum MaskMode
MaskModeLuminance = Int
2
fromEnum MaskMode
MaskModeInvertedLuminance = Int
3
fromEnum (AnotherMaskMode Int
k) = Int
k
toEnum :: Int -> MaskMode
toEnum Int
0 = MaskMode
MaskModeAlpha
toEnum Int
1 = MaskMode
MaskModeInvertedAlpha
toEnum Int
2 = MaskMode
MaskModeLuminance
toEnum Int
3 = MaskMode
MaskModeInvertedLuminance
toEnum Int
k = Int -> MaskMode
AnotherMaskMode Int
k
instance P.Ord MaskMode where
compare :: MaskMode -> MaskMode -> Ordering
compare MaskMode
a MaskMode
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (MaskMode -> Int
forall a. Enum a => a -> Int
P.fromEnum MaskMode
a) (MaskMode -> Int
forall a. Enum a => a -> Int
P.fromEnum MaskMode
b)
type instance O.ParentTypes MaskMode = '[]
instance O.HasParentTypes MaskMode
foreign import ccall "gsk_mask_mode_get_type" c_gsk_mask_mode_get_type ::
IO GType
instance B.Types.TypedObject MaskMode where
glibType :: IO GType
glibType = IO GType
c_gsk_mask_mode_get_type
instance B.Types.BoxedEnum MaskMode
data LineJoin =
LineJoinMiter
| LineJoinRound
| LineJoinBevel
| AnotherLineJoin Int
deriving (Int -> LineJoin -> ShowS
[LineJoin] -> ShowS
LineJoin -> String
(Int -> LineJoin -> ShowS)
-> (LineJoin -> String) -> ([LineJoin] -> ShowS) -> Show LineJoin
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LineJoin -> ShowS
showsPrec :: Int -> LineJoin -> ShowS
$cshow :: LineJoin -> String
show :: LineJoin -> String
$cshowList :: [LineJoin] -> ShowS
showList :: [LineJoin] -> ShowS
Show, LineJoin -> LineJoin -> Bool
(LineJoin -> LineJoin -> Bool)
-> (LineJoin -> LineJoin -> Bool) -> Eq LineJoin
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LineJoin -> LineJoin -> Bool
== :: LineJoin -> LineJoin -> Bool
$c/= :: LineJoin -> LineJoin -> Bool
/= :: LineJoin -> LineJoin -> Bool
Eq)
instance P.Enum LineJoin where
fromEnum :: LineJoin -> Int
fromEnum LineJoin
LineJoinMiter = Int
0
fromEnum LineJoin
LineJoinRound = Int
1
fromEnum LineJoin
LineJoinBevel = Int
2
fromEnum (AnotherLineJoin Int
k) = Int
k
toEnum :: Int -> LineJoin
toEnum Int
0 = LineJoin
LineJoinMiter
toEnum Int
1 = LineJoin
LineJoinRound
toEnum Int
2 = LineJoin
LineJoinBevel
toEnum Int
k = Int -> LineJoin
AnotherLineJoin Int
k
instance P.Ord LineJoin where
compare :: LineJoin -> LineJoin -> Ordering
compare LineJoin
a LineJoin
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (LineJoin -> Int
forall a. Enum a => a -> Int
P.fromEnum LineJoin
a) (LineJoin -> Int
forall a. Enum a => a -> Int
P.fromEnum LineJoin
b)
type instance O.ParentTypes LineJoin = '[]
instance O.HasParentTypes LineJoin
foreign import ccall "gsk_line_join_get_type" c_gsk_line_join_get_type ::
IO GType
instance B.Types.TypedObject LineJoin where
glibType :: IO GType
glibType = IO GType
c_gsk_line_join_get_type
instance B.Types.BoxedEnum LineJoin
data LineCap =
LineCapButt
| LineCapRound
| LineCapSquare
| AnotherLineCap Int
deriving (Int -> LineCap -> ShowS
[LineCap] -> ShowS
LineCap -> String
(Int -> LineCap -> ShowS)
-> (LineCap -> String) -> ([LineCap] -> ShowS) -> Show LineCap
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LineCap -> ShowS
showsPrec :: Int -> LineCap -> ShowS
$cshow :: LineCap -> String
show :: LineCap -> String
$cshowList :: [LineCap] -> ShowS
showList :: [LineCap] -> ShowS
Show, LineCap -> LineCap -> Bool
(LineCap -> LineCap -> Bool)
-> (LineCap -> LineCap -> Bool) -> Eq LineCap
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LineCap -> LineCap -> Bool
== :: LineCap -> LineCap -> Bool
$c/= :: LineCap -> LineCap -> Bool
/= :: LineCap -> LineCap -> Bool
Eq)
instance P.Enum LineCap where
fromEnum :: LineCap -> Int
fromEnum LineCap
LineCapButt = Int
0
fromEnum LineCap
LineCapRound = Int
1
fromEnum LineCap
LineCapSquare = Int
2
fromEnum (AnotherLineCap Int
k) = Int
k
toEnum :: Int -> LineCap
toEnum Int
0 = LineCap
LineCapButt
toEnum Int
1 = LineCap
LineCapRound
toEnum Int
2 = LineCap
LineCapSquare
toEnum Int
k = Int -> LineCap
AnotherLineCap Int
k
instance P.Ord LineCap where
compare :: LineCap -> LineCap -> Ordering
compare LineCap
a LineCap
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (LineCap -> Int
forall a. Enum a => a -> Int
P.fromEnum LineCap
a) (LineCap -> Int
forall a. Enum a => a -> Int
P.fromEnum LineCap
b)
type instance O.ParentTypes LineCap = '[]
instance O.HasParentTypes LineCap
foreign import ccall "gsk_line_cap_get_type" c_gsk_line_cap_get_type ::
IO GType
instance B.Types.TypedObject LineCap where
glibType :: IO GType
glibType = IO GType
c_gsk_line_cap_get_type
instance B.Types.BoxedEnum LineCap
{-# DEPRECATED GLUniformType ["(Since version 4.16)"] #-}
data GLUniformType =
GLUniformTypeNone
| GLUniformTypeFloat
| GLUniformTypeInt
| GLUniformTypeUint
| GLUniformTypeBool
| GLUniformTypeVec2
| GLUniformTypeVec3
| GLUniformTypeVec4
| AnotherGLUniformType Int
deriving (Int -> GLUniformType -> ShowS
[GLUniformType] -> ShowS
GLUniformType -> String
(Int -> GLUniformType -> ShowS)
-> (GLUniformType -> String)
-> ([GLUniformType] -> ShowS)
-> Show GLUniformType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> GLUniformType -> ShowS
showsPrec :: Int -> GLUniformType -> ShowS
$cshow :: GLUniformType -> String
show :: GLUniformType -> String
$cshowList :: [GLUniformType] -> ShowS
showList :: [GLUniformType] -> ShowS
Show, GLUniformType -> GLUniformType -> Bool
(GLUniformType -> GLUniformType -> Bool)
-> (GLUniformType -> GLUniformType -> Bool) -> Eq GLUniformType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GLUniformType -> GLUniformType -> Bool
== :: GLUniformType -> GLUniformType -> Bool
$c/= :: GLUniformType -> GLUniformType -> Bool
/= :: GLUniformType -> GLUniformType -> Bool
Eq)
instance P.Enum GLUniformType where
fromEnum :: GLUniformType -> Int
fromEnum GLUniformType
GLUniformTypeNone = Int
0
fromEnum GLUniformType
GLUniformTypeFloat = Int
1
fromEnum GLUniformType
GLUniformTypeInt = Int
2
fromEnum GLUniformType
GLUniformTypeUint = Int
3
fromEnum GLUniformType
GLUniformTypeBool = Int
4
fromEnum GLUniformType
GLUniformTypeVec2 = Int
5
fromEnum GLUniformType
GLUniformTypeVec3 = Int
6
fromEnum GLUniformType
GLUniformTypeVec4 = Int
7
fromEnum (AnotherGLUniformType Int
k) = Int
k
toEnum :: Int -> GLUniformType
toEnum Int
0 = GLUniformType
GLUniformTypeNone
toEnum Int
1 = GLUniformType
GLUniformTypeFloat
toEnum Int
2 = GLUniformType
GLUniformTypeInt
toEnum Int
3 = GLUniformType
GLUniformTypeUint
toEnum Int
4 = GLUniformType
GLUniformTypeBool
toEnum Int
5 = GLUniformType
GLUniformTypeVec2
toEnum Int
6 = GLUniformType
GLUniformTypeVec3
toEnum Int
7 = GLUniformType
GLUniformTypeVec4
toEnum Int
k = Int -> GLUniformType
AnotherGLUniformType Int
k
instance P.Ord GLUniformType where
compare :: GLUniformType -> GLUniformType -> Ordering
compare GLUniformType
a GLUniformType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (GLUniformType -> Int
forall a. Enum a => a -> Int
P.fromEnum GLUniformType
a) (GLUniformType -> Int
forall a. Enum a => a -> Int
P.fromEnum GLUniformType
b)
type instance O.ParentTypes GLUniformType = '[]
instance O.HasParentTypes GLUniformType
foreign import ccall "gsk_gl_uniform_type_get_type" c_gsk_gl_uniform_type_get_type ::
IO GType
instance B.Types.TypedObject GLUniformType where
glibType :: IO GType
glibType = IO GType
c_gsk_gl_uniform_type_get_type
instance B.Types.BoxedEnum GLUniformType
data FillRule =
FillRuleWinding
| FillRuleEvenOdd
| AnotherFillRule Int
deriving (Int -> FillRule -> ShowS
[FillRule] -> ShowS
FillRule -> String
(Int -> FillRule -> ShowS)
-> (FillRule -> String) -> ([FillRule] -> ShowS) -> Show FillRule
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> FillRule -> ShowS
showsPrec :: Int -> FillRule -> ShowS
$cshow :: FillRule -> String
show :: FillRule -> String
$cshowList :: [FillRule] -> ShowS
showList :: [FillRule] -> ShowS
Show, FillRule -> FillRule -> Bool
(FillRule -> FillRule -> Bool)
-> (FillRule -> FillRule -> Bool) -> Eq FillRule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FillRule -> FillRule -> Bool
== :: FillRule -> FillRule -> Bool
$c/= :: FillRule -> FillRule -> Bool
/= :: FillRule -> FillRule -> Bool
Eq)
instance P.Enum FillRule where
fromEnum :: FillRule -> Int
fromEnum FillRule
FillRuleWinding = Int
0
fromEnum FillRule
FillRuleEvenOdd = Int
1
fromEnum (AnotherFillRule Int
k) = Int
k
toEnum :: Int -> FillRule
toEnum Int
0 = FillRule
FillRuleWinding
toEnum Int
1 = FillRule
FillRuleEvenOdd
toEnum Int
k = Int -> FillRule
AnotherFillRule Int
k
instance P.Ord FillRule where
compare :: FillRule -> FillRule -> Ordering
compare FillRule
a FillRule
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (FillRule -> Int
forall a. Enum a => a -> Int
P.fromEnum FillRule
a) (FillRule -> Int
forall a. Enum a => a -> Int
P.fromEnum FillRule
b)
type instance O.ParentTypes FillRule = '[]
instance O.HasParentTypes FillRule
foreign import ccall "gsk_fill_rule_get_type" c_gsk_fill_rule_get_type ::
IO GType
instance B.Types.TypedObject FillRule where
glibType :: IO GType
glibType = IO GType
c_gsk_fill_rule_get_type
instance B.Types.BoxedEnum FillRule
data Corner =
CornerTopLeft
| CornerTopRight
| CornerBottomRight
| CornerBottomLeft
| AnotherCorner Int
deriving (Int -> Corner -> ShowS
[Corner] -> ShowS
Corner -> String
(Int -> Corner -> ShowS)
-> (Corner -> String) -> ([Corner] -> ShowS) -> Show Corner
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Corner -> ShowS
showsPrec :: Int -> Corner -> ShowS
$cshow :: Corner -> String
show :: Corner -> String
$cshowList :: [Corner] -> ShowS
showList :: [Corner] -> ShowS
Show, Corner -> Corner -> Bool
(Corner -> Corner -> Bool)
-> (Corner -> Corner -> Bool) -> Eq Corner
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Corner -> Corner -> Bool
== :: Corner -> Corner -> Bool
$c/= :: Corner -> Corner -> Bool
/= :: Corner -> Corner -> Bool
Eq)
instance P.Enum Corner where
fromEnum :: Corner -> Int
fromEnum Corner
CornerTopLeft = Int
0
fromEnum Corner
CornerTopRight = Int
1
fromEnum Corner
CornerBottomRight = Int
2
fromEnum Corner
CornerBottomLeft = Int
3
fromEnum (AnotherCorner Int
k) = Int
k
toEnum :: Int -> Corner
toEnum Int
0 = Corner
CornerTopLeft
toEnum Int
1 = Corner
CornerTopRight
toEnum Int
2 = Corner
CornerBottomRight
toEnum Int
3 = Corner
CornerBottomLeft
toEnum Int
k = Int -> Corner
AnotherCorner Int
k
instance P.Ord Corner where
compare :: Corner -> Corner -> Ordering
compare Corner
a Corner
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (Corner -> Int
forall a. Enum a => a -> Int
P.fromEnum Corner
a) (Corner -> Int
forall a. Enum a => a -> Int
P.fromEnum Corner
b)
type instance O.ParentTypes Corner = '[]
instance O.HasParentTypes Corner
foreign import ccall "gsk_corner_get_type" c_gsk_corner_get_type ::
IO GType
instance B.Types.TypedObject Corner where
glibType :: IO GType
glibType = IO GType
c_gsk_corner_get_type
instance B.Types.BoxedEnum Corner
data BlendMode =
BlendModeDefault
| BlendModeMultiply
| BlendModeScreen
| BlendModeOverlay
| BlendModeDarken
| BlendModeLighten
| BlendModeColorDodge
| BlendModeColorBurn
| BlendModeHardLight
| BlendModeSoftLight
| BlendModeDifference
| BlendModeExclusion
| BlendModeColor
| BlendModeHue
| BlendModeSaturation
| BlendModeLuminosity
| AnotherBlendMode Int
deriving (Int -> BlendMode -> ShowS
[BlendMode] -> ShowS
BlendMode -> String
(Int -> BlendMode -> ShowS)
-> (BlendMode -> String)
-> ([BlendMode] -> ShowS)
-> Show BlendMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> BlendMode -> ShowS
showsPrec :: Int -> BlendMode -> ShowS
$cshow :: BlendMode -> String
show :: BlendMode -> String
$cshowList :: [BlendMode] -> ShowS
showList :: [BlendMode] -> ShowS
Show, BlendMode -> BlendMode -> Bool
(BlendMode -> BlendMode -> Bool)
-> (BlendMode -> BlendMode -> Bool) -> Eq BlendMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BlendMode -> BlendMode -> Bool
== :: BlendMode -> BlendMode -> Bool
$c/= :: BlendMode -> BlendMode -> Bool
/= :: BlendMode -> BlendMode -> Bool
Eq)
instance P.Enum BlendMode where
fromEnum :: BlendMode -> Int
fromEnum BlendMode
BlendModeDefault = Int
0
fromEnum BlendMode
BlendModeMultiply = Int
1
fromEnum BlendMode
BlendModeScreen = Int
2
fromEnum BlendMode
BlendModeOverlay = Int
3
fromEnum BlendMode
BlendModeDarken = Int
4
fromEnum BlendMode
BlendModeLighten = Int
5
fromEnum BlendMode
BlendModeColorDodge = Int
6
fromEnum BlendMode
BlendModeColorBurn = Int
7
fromEnum BlendMode
BlendModeHardLight = Int
8
fromEnum BlendMode
BlendModeSoftLight = Int
9
fromEnum BlendMode
BlendModeDifference = Int
10
fromEnum BlendMode
BlendModeExclusion = Int
11
fromEnum BlendMode
BlendModeColor = Int
12
fromEnum BlendMode
BlendModeHue = Int
13
fromEnum BlendMode
BlendModeSaturation = Int
14
fromEnum BlendMode
BlendModeLuminosity = Int
15
fromEnum (AnotherBlendMode Int
k) = Int
k
toEnum :: Int -> BlendMode
toEnum Int
0 = BlendMode
BlendModeDefault
toEnum Int
1 = BlendMode
BlendModeMultiply
toEnum Int
2 = BlendMode
BlendModeScreen
toEnum Int
3 = BlendMode
BlendModeOverlay
toEnum Int
4 = BlendMode
BlendModeDarken
toEnum Int
5 = BlendMode
BlendModeLighten
toEnum Int
6 = BlendMode
BlendModeColorDodge
toEnum Int
7 = BlendMode
BlendModeColorBurn
toEnum Int
8 = BlendMode
BlendModeHardLight
toEnum Int
9 = BlendMode
BlendModeSoftLight
toEnum Int
10 = BlendMode
BlendModeDifference
toEnum Int
11 = BlendMode
BlendModeExclusion
toEnum Int
12 = BlendMode
BlendModeColor
toEnum Int
13 = BlendMode
BlendModeHue
toEnum Int
14 = BlendMode
BlendModeSaturation
toEnum Int
15 = BlendMode
BlendModeLuminosity
toEnum Int
k = Int -> BlendMode
AnotherBlendMode Int
k
instance P.Ord BlendMode where
compare :: BlendMode -> BlendMode -> Ordering
compare BlendMode
a BlendMode
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (BlendMode -> Int
forall a. Enum a => a -> Int
P.fromEnum BlendMode
a) (BlendMode -> Int
forall a. Enum a => a -> Int
P.fromEnum BlendMode
b)
type instance O.ParentTypes BlendMode = '[]
instance O.HasParentTypes BlendMode
foreign import ccall "gsk_blend_mode_get_type" c_gsk_blend_mode_get_type ::
IO GType
instance B.Types.TypedObject BlendMode where
glibType :: IO GType
glibType = IO GType
c_gsk_blend_mode_get_type
instance B.Types.BoxedEnum BlendMode