module GI.Pango.Enums
(
WrapMode(..) ,
Weight(..) ,
Variant(..) ,
Underline(..) ,
TabAlign(..) ,
Style(..) ,
Stretch(..) ,
Script(..) ,
RenderPart(..) ,
GravityHint(..) ,
Gravity(..) ,
EllipsizeMode(..) ,
Direction(..) ,
CoverageLevel(..) ,
BidiType(..) ,
AttrType(..) ,
Alignment(..) ,
) 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 WrapMode =
WrapModeWord
| WrapModeChar
| WrapModeWordChar
| AnotherWrapMode Int
deriving (Show, Eq)
instance Enum WrapMode where
fromEnum WrapModeWord = 0
fromEnum WrapModeChar = 1
fromEnum WrapModeWordChar = 2
fromEnum (AnotherWrapMode k) = k
toEnum 0 = WrapModeWord
toEnum 1 = WrapModeChar
toEnum 2 = WrapModeWordChar
toEnum k = AnotherWrapMode k
foreign import ccall "pango_wrap_mode_get_type" c_pango_wrap_mode_get_type ::
IO GType
instance BoxedEnum WrapMode where
boxedEnumType _ = c_pango_wrap_mode_get_type
data Weight =
WeightThin
| WeightUltralight
| WeightLight
| WeightSemilight
| WeightBook
| WeightNormal
| WeightMedium
| WeightSemibold
| WeightBold
| WeightUltrabold
| WeightHeavy
| WeightUltraheavy
| AnotherWeight Int
deriving (Show, Eq)
instance Enum Weight where
fromEnum WeightThin = 100
fromEnum WeightUltralight = 200
fromEnum WeightLight = 300
fromEnum WeightSemilight = 350
fromEnum WeightBook = 380
fromEnum WeightNormal = 400
fromEnum WeightMedium = 500
fromEnum WeightSemibold = 600
fromEnum WeightBold = 700
fromEnum WeightUltrabold = 800
fromEnum WeightHeavy = 900
fromEnum WeightUltraheavy = 1000
fromEnum (AnotherWeight k) = k
toEnum 100 = WeightThin
toEnum 200 = WeightUltralight
toEnum 300 = WeightLight
toEnum 350 = WeightSemilight
toEnum 380 = WeightBook
toEnum 400 = WeightNormal
toEnum 500 = WeightMedium
toEnum 600 = WeightSemibold
toEnum 700 = WeightBold
toEnum 800 = WeightUltrabold
toEnum 900 = WeightHeavy
toEnum 1000 = WeightUltraheavy
toEnum k = AnotherWeight k
foreign import ccall "pango_weight_get_type" c_pango_weight_get_type ::
IO GType
instance BoxedEnum Weight where
boxedEnumType _ = c_pango_weight_get_type
data Variant =
VariantNormal
| VariantSmallCaps
| AnotherVariant Int
deriving (Show, Eq)
instance Enum Variant where
fromEnum VariantNormal = 0
fromEnum VariantSmallCaps = 1
fromEnum (AnotherVariant k) = k
toEnum 0 = VariantNormal
toEnum 1 = VariantSmallCaps
toEnum k = AnotherVariant k
foreign import ccall "pango_variant_get_type" c_pango_variant_get_type ::
IO GType
instance BoxedEnum Variant where
boxedEnumType _ = c_pango_variant_get_type
data Underline =
UnderlineNone
| UnderlineSingle
| UnderlineDouble
| UnderlineLow
| UnderlineError
| AnotherUnderline Int
deriving (Show, Eq)
instance Enum Underline where
fromEnum UnderlineNone = 0
fromEnum UnderlineSingle = 1
fromEnum UnderlineDouble = 2
fromEnum UnderlineLow = 3
fromEnum UnderlineError = 4
fromEnum (AnotherUnderline k) = k
toEnum 0 = UnderlineNone
toEnum 1 = UnderlineSingle
toEnum 2 = UnderlineDouble
toEnum 3 = UnderlineLow
toEnum 4 = UnderlineError
toEnum k = AnotherUnderline k
foreign import ccall "pango_underline_get_type" c_pango_underline_get_type ::
IO GType
instance BoxedEnum Underline where
boxedEnumType _ = c_pango_underline_get_type
data TabAlign =
TabAlignLeft
| AnotherTabAlign Int
deriving (Show, Eq)
instance Enum TabAlign where
fromEnum TabAlignLeft = 0
fromEnum (AnotherTabAlign k) = k
toEnum 0 = TabAlignLeft
toEnum k = AnotherTabAlign k
foreign import ccall "pango_tab_align_get_type" c_pango_tab_align_get_type ::
IO GType
instance BoxedEnum TabAlign where
boxedEnumType _ = c_pango_tab_align_get_type
data Style =
StyleNormal
| StyleOblique
| StyleItalic
| AnotherStyle Int
deriving (Show, Eq)
instance Enum Style where
fromEnum StyleNormal = 0
fromEnum StyleOblique = 1
fromEnum StyleItalic = 2
fromEnum (AnotherStyle k) = k
toEnum 0 = StyleNormal
toEnum 1 = StyleOblique
toEnum 2 = StyleItalic
toEnum k = AnotherStyle k
foreign import ccall "pango_style_get_type" c_pango_style_get_type ::
IO GType
instance BoxedEnum Style where
boxedEnumType _ = c_pango_style_get_type
data Stretch =
StretchUltraCondensed
| StretchExtraCondensed
| StretchCondensed
| StretchSemiCondensed
| StretchNormal
| StretchSemiExpanded
| StretchExpanded
| StretchExtraExpanded
| StretchUltraExpanded
| AnotherStretch Int
deriving (Show, Eq)
instance Enum Stretch where
fromEnum StretchUltraCondensed = 0
fromEnum StretchExtraCondensed = 1
fromEnum StretchCondensed = 2
fromEnum StretchSemiCondensed = 3
fromEnum StretchNormal = 4
fromEnum StretchSemiExpanded = 5
fromEnum StretchExpanded = 6
fromEnum StretchExtraExpanded = 7
fromEnum StretchUltraExpanded = 8
fromEnum (AnotherStretch k) = k
toEnum 0 = StretchUltraCondensed
toEnum 1 = StretchExtraCondensed
toEnum 2 = StretchCondensed
toEnum 3 = StretchSemiCondensed
toEnum 4 = StretchNormal
toEnum 5 = StretchSemiExpanded
toEnum 6 = StretchExpanded
toEnum 7 = StretchExtraExpanded
toEnum 8 = StretchUltraExpanded
toEnum k = AnotherStretch k
foreign import ccall "pango_stretch_get_type" c_pango_stretch_get_type ::
IO GType
instance BoxedEnum Stretch where
boxedEnumType _ = c_pango_stretch_get_type
data Script =
ScriptInvalidCode
| ScriptCommon
| ScriptInherited
| ScriptArabic
| ScriptArmenian
| ScriptBengali
| ScriptBopomofo
| ScriptCherokee
| ScriptCoptic
| ScriptCyrillic
| ScriptDeseret
| ScriptDevanagari
| ScriptEthiopic
| ScriptGeorgian
| ScriptGothic
| ScriptGreek
| ScriptGujarati
| ScriptGurmukhi
| ScriptHan
| ScriptHangul
| ScriptHebrew
| ScriptHiragana
| ScriptKannada
| ScriptKatakana
| ScriptKhmer
| ScriptLao
| ScriptLatin
| ScriptMalayalam
| ScriptMongolian
| ScriptMyanmar
| ScriptOgham
| ScriptOldItalic
| ScriptOriya
| ScriptRunic
| ScriptSinhala
| ScriptSyriac
| ScriptTamil
| ScriptTelugu
| ScriptThaana
| ScriptThai
| ScriptTibetan
| ScriptCanadianAboriginal
| ScriptYi
| ScriptTagalog
| ScriptHanunoo
| ScriptBuhid
| ScriptTagbanwa
| ScriptBraille
| ScriptCypriot
| ScriptLimbu
| ScriptOsmanya
| ScriptShavian
| ScriptLinearB
| ScriptTaiLe
| ScriptUgaritic
| ScriptNewTaiLue
| ScriptBuginese
| ScriptGlagolitic
| ScriptTifinagh
| ScriptSylotiNagri
| ScriptOldPersian
| ScriptKharoshthi
| ScriptUnknown
| ScriptBalinese
| ScriptCuneiform
| ScriptPhoenician
| ScriptPhagsPa
| ScriptNko
| ScriptKayahLi
| ScriptLepcha
| ScriptRejang
| ScriptSundanese
| ScriptSaurashtra
| ScriptCham
| ScriptOlChiki
| ScriptVai
| ScriptCarian
| ScriptLycian
| ScriptLydian
| ScriptBatak
| ScriptBrahmi
| ScriptMandaic
| ScriptChakma
| ScriptMeroiticCursive
| ScriptMeroiticHieroglyphs
| ScriptMiao
| ScriptSharada
| ScriptSoraSompeng
| ScriptTakri
| AnotherScript Int
deriving (Show, Eq)
instance Enum Script where
fromEnum ScriptInvalidCode = 1
fromEnum ScriptCommon = 0
fromEnum ScriptInherited = 1
fromEnum ScriptArabic = 2
fromEnum ScriptArmenian = 3
fromEnum ScriptBengali = 4
fromEnum ScriptBopomofo = 5
fromEnum ScriptCherokee = 6
fromEnum ScriptCoptic = 7
fromEnum ScriptCyrillic = 8
fromEnum ScriptDeseret = 9
fromEnum ScriptDevanagari = 10
fromEnum ScriptEthiopic = 11
fromEnum ScriptGeorgian = 12
fromEnum ScriptGothic = 13
fromEnum ScriptGreek = 14
fromEnum ScriptGujarati = 15
fromEnum ScriptGurmukhi = 16
fromEnum ScriptHan = 17
fromEnum ScriptHangul = 18
fromEnum ScriptHebrew = 19
fromEnum ScriptHiragana = 20
fromEnum ScriptKannada = 21
fromEnum ScriptKatakana = 22
fromEnum ScriptKhmer = 23
fromEnum ScriptLao = 24
fromEnum ScriptLatin = 25
fromEnum ScriptMalayalam = 26
fromEnum ScriptMongolian = 27
fromEnum ScriptMyanmar = 28
fromEnum ScriptOgham = 29
fromEnum ScriptOldItalic = 30
fromEnum ScriptOriya = 31
fromEnum ScriptRunic = 32
fromEnum ScriptSinhala = 33
fromEnum ScriptSyriac = 34
fromEnum ScriptTamil = 35
fromEnum ScriptTelugu = 36
fromEnum ScriptThaana = 37
fromEnum ScriptThai = 38
fromEnum ScriptTibetan = 39
fromEnum ScriptCanadianAboriginal = 40
fromEnum ScriptYi = 41
fromEnum ScriptTagalog = 42
fromEnum ScriptHanunoo = 43
fromEnum ScriptBuhid = 44
fromEnum ScriptTagbanwa = 45
fromEnum ScriptBraille = 46
fromEnum ScriptCypriot = 47
fromEnum ScriptLimbu = 48
fromEnum ScriptOsmanya = 49
fromEnum ScriptShavian = 50
fromEnum ScriptLinearB = 51
fromEnum ScriptTaiLe = 52
fromEnum ScriptUgaritic = 53
fromEnum ScriptNewTaiLue = 54
fromEnum ScriptBuginese = 55
fromEnum ScriptGlagolitic = 56
fromEnum ScriptTifinagh = 57
fromEnum ScriptSylotiNagri = 58
fromEnum ScriptOldPersian = 59
fromEnum ScriptKharoshthi = 60
fromEnum ScriptUnknown = 61
fromEnum ScriptBalinese = 62
fromEnum ScriptCuneiform = 63
fromEnum ScriptPhoenician = 64
fromEnum ScriptPhagsPa = 65
fromEnum ScriptNko = 66
fromEnum ScriptKayahLi = 67
fromEnum ScriptLepcha = 68
fromEnum ScriptRejang = 69
fromEnum ScriptSundanese = 70
fromEnum ScriptSaurashtra = 71
fromEnum ScriptCham = 72
fromEnum ScriptOlChiki = 73
fromEnum ScriptVai = 74
fromEnum ScriptCarian = 75
fromEnum ScriptLycian = 76
fromEnum ScriptLydian = 77
fromEnum ScriptBatak = 78
fromEnum ScriptBrahmi = 79
fromEnum ScriptMandaic = 80
fromEnum ScriptChakma = 81
fromEnum ScriptMeroiticCursive = 82
fromEnum ScriptMeroiticHieroglyphs = 83
fromEnum ScriptMiao = 84
fromEnum ScriptSharada = 85
fromEnum ScriptSoraSompeng = 86
fromEnum ScriptTakri = 87
fromEnum (AnotherScript k) = k
toEnum 1 = ScriptInvalidCode
toEnum 0 = ScriptCommon
toEnum 1 = ScriptInherited
toEnum 2 = ScriptArabic
toEnum 3 = ScriptArmenian
toEnum 4 = ScriptBengali
toEnum 5 = ScriptBopomofo
toEnum 6 = ScriptCherokee
toEnum 7 = ScriptCoptic
toEnum 8 = ScriptCyrillic
toEnum 9 = ScriptDeseret
toEnum 10 = ScriptDevanagari
toEnum 11 = ScriptEthiopic
toEnum 12 = ScriptGeorgian
toEnum 13 = ScriptGothic
toEnum 14 = ScriptGreek
toEnum 15 = ScriptGujarati
toEnum 16 = ScriptGurmukhi
toEnum 17 = ScriptHan
toEnum 18 = ScriptHangul
toEnum 19 = ScriptHebrew
toEnum 20 = ScriptHiragana
toEnum 21 = ScriptKannada
toEnum 22 = ScriptKatakana
toEnum 23 = ScriptKhmer
toEnum 24 = ScriptLao
toEnum 25 = ScriptLatin
toEnum 26 = ScriptMalayalam
toEnum 27 = ScriptMongolian
toEnum 28 = ScriptMyanmar
toEnum 29 = ScriptOgham
toEnum 30 = ScriptOldItalic
toEnum 31 = ScriptOriya
toEnum 32 = ScriptRunic
toEnum 33 = ScriptSinhala
toEnum 34 = ScriptSyriac
toEnum 35 = ScriptTamil
toEnum 36 = ScriptTelugu
toEnum 37 = ScriptThaana
toEnum 38 = ScriptThai
toEnum 39 = ScriptTibetan
toEnum 40 = ScriptCanadianAboriginal
toEnum 41 = ScriptYi
toEnum 42 = ScriptTagalog
toEnum 43 = ScriptHanunoo
toEnum 44 = ScriptBuhid
toEnum 45 = ScriptTagbanwa
toEnum 46 = ScriptBraille
toEnum 47 = ScriptCypriot
toEnum 48 = ScriptLimbu
toEnum 49 = ScriptOsmanya
toEnum 50 = ScriptShavian
toEnum 51 = ScriptLinearB
toEnum 52 = ScriptTaiLe
toEnum 53 = ScriptUgaritic
toEnum 54 = ScriptNewTaiLue
toEnum 55 = ScriptBuginese
toEnum 56 = ScriptGlagolitic
toEnum 57 = ScriptTifinagh
toEnum 58 = ScriptSylotiNagri
toEnum 59 = ScriptOldPersian
toEnum 60 = ScriptKharoshthi
toEnum 61 = ScriptUnknown
toEnum 62 = ScriptBalinese
toEnum 63 = ScriptCuneiform
toEnum 64 = ScriptPhoenician
toEnum 65 = ScriptPhagsPa
toEnum 66 = ScriptNko
toEnum 67 = ScriptKayahLi
toEnum 68 = ScriptLepcha
toEnum 69 = ScriptRejang
toEnum 70 = ScriptSundanese
toEnum 71 = ScriptSaurashtra
toEnum 72 = ScriptCham
toEnum 73 = ScriptOlChiki
toEnum 74 = ScriptVai
toEnum 75 = ScriptCarian
toEnum 76 = ScriptLycian
toEnum 77 = ScriptLydian
toEnum 78 = ScriptBatak
toEnum 79 = ScriptBrahmi
toEnum 80 = ScriptMandaic
toEnum 81 = ScriptChakma
toEnum 82 = ScriptMeroiticCursive
toEnum 83 = ScriptMeroiticHieroglyphs
toEnum 84 = ScriptMiao
toEnum 85 = ScriptSharada
toEnum 86 = ScriptSoraSompeng
toEnum 87 = ScriptTakri
toEnum k = AnotherScript k
foreign import ccall "pango_script_get_type" c_pango_script_get_type ::
IO GType
instance BoxedEnum Script where
boxedEnumType _ = c_pango_script_get_type
data RenderPart =
RenderPartForeground
| RenderPartBackground
| RenderPartUnderline
| RenderPartStrikethrough
| AnotherRenderPart Int
deriving (Show, Eq)
instance Enum RenderPart where
fromEnum RenderPartForeground = 0
fromEnum RenderPartBackground = 1
fromEnum RenderPartUnderline = 2
fromEnum RenderPartStrikethrough = 3
fromEnum (AnotherRenderPart k) = k
toEnum 0 = RenderPartForeground
toEnum 1 = RenderPartBackground
toEnum 2 = RenderPartUnderline
toEnum 3 = RenderPartStrikethrough
toEnum k = AnotherRenderPart k
foreign import ccall "pango_render_part_get_type" c_pango_render_part_get_type ::
IO GType
instance BoxedEnum RenderPart where
boxedEnumType _ = c_pango_render_part_get_type
data GravityHint =
GravityHintNatural
| GravityHintStrong
| GravityHintLine
| AnotherGravityHint Int
deriving (Show, Eq)
instance Enum GravityHint where
fromEnum GravityHintNatural = 0
fromEnum GravityHintStrong = 1
fromEnum GravityHintLine = 2
fromEnum (AnotherGravityHint k) = k
toEnum 0 = GravityHintNatural
toEnum 1 = GravityHintStrong
toEnum 2 = GravityHintLine
toEnum k = AnotherGravityHint k
foreign import ccall "pango_gravity_hint_get_type" c_pango_gravity_hint_get_type ::
IO GType
instance BoxedEnum GravityHint where
boxedEnumType _ = c_pango_gravity_hint_get_type
data Gravity =
GravitySouth
| GravityEast
| GravityNorth
| GravityWest
| GravityAuto
| AnotherGravity Int
deriving (Show, Eq)
instance Enum Gravity where
fromEnum GravitySouth = 0
fromEnum GravityEast = 1
fromEnum GravityNorth = 2
fromEnum GravityWest = 3
fromEnum GravityAuto = 4
fromEnum (AnotherGravity k) = k
toEnum 0 = GravitySouth
toEnum 1 = GravityEast
toEnum 2 = GravityNorth
toEnum 3 = GravityWest
toEnum 4 = GravityAuto
toEnum k = AnotherGravity k
foreign import ccall "pango_gravity_get_type" c_pango_gravity_get_type ::
IO GType
instance BoxedEnum Gravity where
boxedEnumType _ = c_pango_gravity_get_type
data EllipsizeMode =
EllipsizeModeNone
| EllipsizeModeStart
| EllipsizeModeMiddle
| EllipsizeModeEnd
| AnotherEllipsizeMode Int
deriving (Show, Eq)
instance Enum EllipsizeMode where
fromEnum EllipsizeModeNone = 0
fromEnum EllipsizeModeStart = 1
fromEnum EllipsizeModeMiddle = 2
fromEnum EllipsizeModeEnd = 3
fromEnum (AnotherEllipsizeMode k) = k
toEnum 0 = EllipsizeModeNone
toEnum 1 = EllipsizeModeStart
toEnum 2 = EllipsizeModeMiddle
toEnum 3 = EllipsizeModeEnd
toEnum k = AnotherEllipsizeMode k
foreign import ccall "pango_ellipsize_mode_get_type" c_pango_ellipsize_mode_get_type ::
IO GType
instance BoxedEnum EllipsizeMode where
boxedEnumType _ = c_pango_ellipsize_mode_get_type
data Direction =
DirectionLtr
| DirectionRtl
| DirectionTtbLtr
| DirectionTtbRtl
| DirectionWeakLtr
| DirectionWeakRtl
| DirectionNeutral
| AnotherDirection Int
deriving (Show, Eq)
instance Enum Direction where
fromEnum DirectionLtr = 0
fromEnum DirectionRtl = 1
fromEnum DirectionTtbLtr = 2
fromEnum DirectionTtbRtl = 3
fromEnum DirectionWeakLtr = 4
fromEnum DirectionWeakRtl = 5
fromEnum DirectionNeutral = 6
fromEnum (AnotherDirection k) = k
toEnum 0 = DirectionLtr
toEnum 1 = DirectionRtl
toEnum 2 = DirectionTtbLtr
toEnum 3 = DirectionTtbRtl
toEnum 4 = DirectionWeakLtr
toEnum 5 = DirectionWeakRtl
toEnum 6 = DirectionNeutral
toEnum k = AnotherDirection k
foreign import ccall "pango_direction_get_type" c_pango_direction_get_type ::
IO GType
instance BoxedEnum Direction where
boxedEnumType _ = c_pango_direction_get_type
data CoverageLevel =
CoverageLevelNone
| CoverageLevelFallback
| CoverageLevelApproximate
| CoverageLevelExact
| AnotherCoverageLevel Int
deriving (Show, Eq)
instance Enum CoverageLevel where
fromEnum CoverageLevelNone = 0
fromEnum CoverageLevelFallback = 1
fromEnum CoverageLevelApproximate = 2
fromEnum CoverageLevelExact = 3
fromEnum (AnotherCoverageLevel k) = k
toEnum 0 = CoverageLevelNone
toEnum 1 = CoverageLevelFallback
toEnum 2 = CoverageLevelApproximate
toEnum 3 = CoverageLevelExact
toEnum k = AnotherCoverageLevel k
foreign import ccall "pango_coverage_level_get_type" c_pango_coverage_level_get_type ::
IO GType
instance BoxedEnum CoverageLevel where
boxedEnumType _ = c_pango_coverage_level_get_type
data BidiType =
BidiTypeL
| BidiTypeLre
| BidiTypeLro
| BidiTypeR
| BidiTypeAl
| BidiTypeRle
| BidiTypeRlo
| BidiTypePdf
| BidiTypeEn
| BidiTypeEs
| BidiTypeEt
| BidiTypeAn
| BidiTypeCs
| BidiTypeNsm
| BidiTypeBn
| BidiTypeB
| BidiTypeS
| BidiTypeWs
| BidiTypeOn
| AnotherBidiType Int
deriving (Show, Eq)
instance Enum BidiType where
fromEnum BidiTypeL = 0
fromEnum BidiTypeLre = 1
fromEnum BidiTypeLro = 2
fromEnum BidiTypeR = 3
fromEnum BidiTypeAl = 4
fromEnum BidiTypeRle = 5
fromEnum BidiTypeRlo = 6
fromEnum BidiTypePdf = 7
fromEnum BidiTypeEn = 8
fromEnum BidiTypeEs = 9
fromEnum BidiTypeEt = 10
fromEnum BidiTypeAn = 11
fromEnum BidiTypeCs = 12
fromEnum BidiTypeNsm = 13
fromEnum BidiTypeBn = 14
fromEnum BidiTypeB = 15
fromEnum BidiTypeS = 16
fromEnum BidiTypeWs = 17
fromEnum BidiTypeOn = 18
fromEnum (AnotherBidiType k) = k
toEnum 0 = BidiTypeL
toEnum 1 = BidiTypeLre
toEnum 2 = BidiTypeLro
toEnum 3 = BidiTypeR
toEnum 4 = BidiTypeAl
toEnum 5 = BidiTypeRle
toEnum 6 = BidiTypeRlo
toEnum 7 = BidiTypePdf
toEnum 8 = BidiTypeEn
toEnum 9 = BidiTypeEs
toEnum 10 = BidiTypeEt
toEnum 11 = BidiTypeAn
toEnum 12 = BidiTypeCs
toEnum 13 = BidiTypeNsm
toEnum 14 = BidiTypeBn
toEnum 15 = BidiTypeB
toEnum 16 = BidiTypeS
toEnum 17 = BidiTypeWs
toEnum 18 = BidiTypeOn
toEnum k = AnotherBidiType k
foreign import ccall "pango_bidi_type_get_type" c_pango_bidi_type_get_type ::
IO GType
instance BoxedEnum BidiType where
boxedEnumType _ = c_pango_bidi_type_get_type
data AttrType =
AttrTypeInvalid
| AttrTypeLanguage
| AttrTypeFamily
| AttrTypeStyle
| AttrTypeWeight
| AttrTypeVariant
| AttrTypeStretch
| AttrTypeSize
| AttrTypeFontDesc
| AttrTypeForeground
| AttrTypeBackground
| AttrTypeUnderline
| AttrTypeStrikethrough
| AttrTypeRise
| AttrTypeShape
| AttrTypeScale
| AttrTypeFallback
| AttrTypeLetterSpacing
| AttrTypeUnderlineColor
| AttrTypeStrikethroughColor
| AttrTypeAbsoluteSize
| AttrTypeGravity
| AttrTypeGravityHint
| AttrTypeFontFeatures
| AttrTypeForegroundAlpha
| AttrTypeBackgroundAlpha
| AnotherAttrType Int
deriving (Show, Eq)
instance Enum AttrType where
fromEnum AttrTypeInvalid = 0
fromEnum AttrTypeLanguage = 1
fromEnum AttrTypeFamily = 2
fromEnum AttrTypeStyle = 3
fromEnum AttrTypeWeight = 4
fromEnum AttrTypeVariant = 5
fromEnum AttrTypeStretch = 6
fromEnum AttrTypeSize = 7
fromEnum AttrTypeFontDesc = 8
fromEnum AttrTypeForeground = 9
fromEnum AttrTypeBackground = 10
fromEnum AttrTypeUnderline = 11
fromEnum AttrTypeStrikethrough = 12
fromEnum AttrTypeRise = 13
fromEnum AttrTypeShape = 14
fromEnum AttrTypeScale = 15
fromEnum AttrTypeFallback = 16
fromEnum AttrTypeLetterSpacing = 17
fromEnum AttrTypeUnderlineColor = 18
fromEnum AttrTypeStrikethroughColor = 19
fromEnum AttrTypeAbsoluteSize = 20
fromEnum AttrTypeGravity = 21
fromEnum AttrTypeGravityHint = 22
fromEnum AttrTypeFontFeatures = 23
fromEnum AttrTypeForegroundAlpha = 24
fromEnum AttrTypeBackgroundAlpha = 25
fromEnum (AnotherAttrType k) = k
toEnum 0 = AttrTypeInvalid
toEnum 1 = AttrTypeLanguage
toEnum 2 = AttrTypeFamily
toEnum 3 = AttrTypeStyle
toEnum 4 = AttrTypeWeight
toEnum 5 = AttrTypeVariant
toEnum 6 = AttrTypeStretch
toEnum 7 = AttrTypeSize
toEnum 8 = AttrTypeFontDesc
toEnum 9 = AttrTypeForeground
toEnum 10 = AttrTypeBackground
toEnum 11 = AttrTypeUnderline
toEnum 12 = AttrTypeStrikethrough
toEnum 13 = AttrTypeRise
toEnum 14 = AttrTypeShape
toEnum 15 = AttrTypeScale
toEnum 16 = AttrTypeFallback
toEnum 17 = AttrTypeLetterSpacing
toEnum 18 = AttrTypeUnderlineColor
toEnum 19 = AttrTypeStrikethroughColor
toEnum 20 = AttrTypeAbsoluteSize
toEnum 21 = AttrTypeGravity
toEnum 22 = AttrTypeGravityHint
toEnum 23 = AttrTypeFontFeatures
toEnum 24 = AttrTypeForegroundAlpha
toEnum 25 = AttrTypeBackgroundAlpha
toEnum k = AnotherAttrType k
foreign import ccall "pango_attr_type_get_type" c_pango_attr_type_get_type ::
IO GType
instance BoxedEnum AttrType where
boxedEnumType _ = c_pango_attr_type_get_type
data Alignment =
AlignmentLeft
| AlignmentCenter
| AlignmentRight
| AnotherAlignment Int
deriving (Show, Eq)
instance Enum Alignment where
fromEnum AlignmentLeft = 0
fromEnum AlignmentCenter = 1
fromEnum AlignmentRight = 2
fromEnum (AnotherAlignment k) = k
toEnum 0 = AlignmentLeft
toEnum 1 = AlignmentCenter
toEnum 2 = AlignmentRight
toEnum k = AnotherAlignment k
foreign import ccall "pango_alignment_get_type" c_pango_alignment_get_type ::
IO GType
instance BoxedEnum Alignment where
boxedEnumType _ = c_pango_alignment_get_type