-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.Atk.Enums
    ( 

 -- * Enumerations
-- ** CoordType #enum:CoordType#

    CoordType(..)                           ,


-- ** KeyEventType #enum:KeyEventType#

    KeyEventType(..)                        ,


-- ** Layer #enum:Layer#

    Layer(..)                               ,


-- ** RelationType #enum:RelationType#

    RelationType(..)                        ,


-- ** Role #enum:Role#

    Role(..)                                ,


-- ** ScrollType #enum:ScrollType#

    ScrollType(..)                          ,


-- ** StateType #enum:StateType#

    StateType(..)                           ,


-- ** TextAttribute #enum:TextAttribute#

    TextAttribute(..)                       ,


-- ** TextBoundary #enum:TextBoundary#

    TextBoundary(..)                        ,


-- ** TextClipType #enum:TextClipType#

    TextClipType(..)                        ,


-- ** TextGranularity #enum:TextGranularity#

    TextGranularity(..)                     ,


-- ** ValueType #enum:ValueType#

    ValueType(..)                           ,




    ) 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.GClosure as B.GClosure
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.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
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
import qualified GHC.OverloadedLabels as OL


-- Enum ValueType
-- | Default types for a given value. Those are defined in order to
-- easily get localized strings to describe a given value or a given
-- subrange, using 'GI.Atk.Functions.valueTypeGetLocalizedName'.
data ValueType = 
      ValueTypeVeryWeak
    -- ^ /No description available in the introspection data./
    | ValueTypeWeak
    -- ^ /No description available in the introspection data./
    | ValueTypeAcceptable
    -- ^ /No description available in the introspection data./
    | ValueTypeStrong
    -- ^ /No description available in the introspection data./
    | ValueTypeVeryStrong
    -- ^ /No description available in the introspection data./
    | ValueTypeVeryLow
    -- ^ /No description available in the introspection data./
    | ValueTypeLow
    -- ^ /No description available in the introspection data./
    | ValueTypeMedium
    -- ^ /No description available in the introspection data./
    | ValueTypeHigh
    -- ^ /No description available in the introspection data./
    | ValueTypeVeryHigh
    -- ^ /No description available in the introspection data./
    | ValueTypeVeryBad
    -- ^ /No description available in the introspection data./
    | ValueTypeBad
    -- ^ /No description available in the introspection data./
    | ValueTypeGood
    -- ^ /No description available in the introspection data./
    | ValueTypeVeryGood
    -- ^ /No description available in the introspection data./
    | ValueTypeBest
    -- ^ /No description available in the introspection data./
    | ValueTypeLastDefined
    -- ^ /No description available in the introspection data./
    | AnotherValueType Int
    -- ^ Catch-all for unknown values
    deriving (Int -> ValueType -> ShowS
[ValueType] -> ShowS
ValueType -> String
(Int -> ValueType -> ShowS)
-> (ValueType -> String)
-> ([ValueType] -> ShowS)
-> Show ValueType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ValueType] -> ShowS
$cshowList :: [ValueType] -> ShowS
show :: ValueType -> String
$cshow :: ValueType -> String
showsPrec :: Int -> ValueType -> ShowS
$cshowsPrec :: Int -> ValueType -> ShowS
Show, ValueType -> ValueType -> Bool
(ValueType -> ValueType -> Bool)
-> (ValueType -> ValueType -> Bool) -> Eq ValueType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ValueType -> ValueType -> Bool
$c/= :: ValueType -> ValueType -> Bool
== :: ValueType -> ValueType -> Bool
$c== :: ValueType -> ValueType -> Bool
Eq)

instance P.Enum ValueType where
    fromEnum :: ValueType -> Int
fromEnum ValueTypeVeryWeak = 0
    fromEnum ValueTypeWeak = 1
    fromEnum ValueTypeAcceptable = 2
    fromEnum ValueTypeStrong = 3
    fromEnum ValueTypeVeryStrong = 4
    fromEnum ValueTypeVeryLow = 5
    fromEnum ValueTypeLow = 6
    fromEnum ValueTypeMedium = 7
    fromEnum ValueTypeHigh = 8
    fromEnum ValueTypeVeryHigh = 9
    fromEnum ValueTypeVeryBad = 10
    fromEnum ValueTypeBad = 11
    fromEnum ValueTypeGood = 12
    fromEnum ValueTypeVeryGood = 13
    fromEnum ValueTypeBest = 14
    fromEnum ValueTypeLastDefined = 15
    fromEnum (AnotherValueType k :: Int
k) = Int
k

    toEnum :: Int -> ValueType
toEnum 0 = ValueType
ValueTypeVeryWeak
    toEnum 1 = ValueType
ValueTypeWeak
    toEnum 2 = ValueType
ValueTypeAcceptable
    toEnum 3 = ValueType
ValueTypeStrong
    toEnum 4 = ValueType
ValueTypeVeryStrong
    toEnum 5 = ValueType
ValueTypeVeryLow
    toEnum 6 = ValueType
ValueTypeLow
    toEnum 7 = ValueType
ValueTypeMedium
    toEnum 8 = ValueType
ValueTypeHigh
    toEnum 9 = ValueType
ValueTypeVeryHigh
    toEnum 10 = ValueType
ValueTypeVeryBad
    toEnum 11 = ValueType
ValueTypeBad
    toEnum 12 = ValueType
ValueTypeGood
    toEnum 13 = ValueType
ValueTypeVeryGood
    toEnum 14 = ValueType
ValueTypeBest
    toEnum 15 = ValueType
ValueTypeLastDefined
    toEnum k :: Int
k = Int -> ValueType
AnotherValueType Int
k

instance P.Ord ValueType where
    compare :: ValueType -> ValueType -> Ordering
compare a :: ValueType
a b :: ValueType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (ValueType -> Int
forall a. Enum a => a -> Int
P.fromEnum ValueType
a) (ValueType -> Int
forall a. Enum a => a -> Int
P.fromEnum ValueType
b)

foreign import ccall "atk_value_type_get_type" c_atk_value_type_get_type :: 
    IO GType

instance BoxedEnum ValueType where
    boxedEnumType :: ValueType -> IO GType
boxedEnumType _ = IO GType
c_atk_value_type_get_type

-- Enum TextGranularity
-- | Text granularity types used for specifying the granularity of the region of
-- text we are interested in.
data TextGranularity = 
      TextGranularityChar
    -- ^ Granularity is defined by the boundaries between characters
    -- (including non-printing characters)
    | TextGranularityWord
    -- ^ Granularity is defined by the boundaries of a word,
    -- starting at the beginning of the current word and finishing at the beginning of
    -- the following one, if present.
    | TextGranularitySentence
    -- ^ Granularity is defined by the boundaries of a sentence,
    -- starting at the beginning of the current sentence and finishing at the beginning of
    -- the following one, if present.
    | TextGranularityLine
    -- ^ Granularity is defined by the boundaries of a line,
    -- starting at the beginning of the current line and finishing at the beginning of
    -- the following one, if present.
    | TextGranularityParagraph
    -- ^ Granularity is defined by the boundaries of a paragraph,
    -- starting at the beginning of the current paragraph and finishing at the beginning of
    -- the following one, if present.
    | AnotherTextGranularity Int
    -- ^ Catch-all for unknown values
    deriving (Int -> TextGranularity -> ShowS
[TextGranularity] -> ShowS
TextGranularity -> String
(Int -> TextGranularity -> ShowS)
-> (TextGranularity -> String)
-> ([TextGranularity] -> ShowS)
-> Show TextGranularity
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TextGranularity] -> ShowS
$cshowList :: [TextGranularity] -> ShowS
show :: TextGranularity -> String
$cshow :: TextGranularity -> String
showsPrec :: Int -> TextGranularity -> ShowS
$cshowsPrec :: Int -> TextGranularity -> ShowS
Show, TextGranularity -> TextGranularity -> Bool
(TextGranularity -> TextGranularity -> Bool)
-> (TextGranularity -> TextGranularity -> Bool)
-> Eq TextGranularity
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TextGranularity -> TextGranularity -> Bool
$c/= :: TextGranularity -> TextGranularity -> Bool
== :: TextGranularity -> TextGranularity -> Bool
$c== :: TextGranularity -> TextGranularity -> Bool
Eq)

instance P.Enum TextGranularity where
    fromEnum :: TextGranularity -> Int
fromEnum TextGranularityChar = 0
    fromEnum TextGranularityWord = 1
    fromEnum TextGranularitySentence = 2
    fromEnum TextGranularityLine = 3
    fromEnum TextGranularityParagraph = 4
    fromEnum (AnotherTextGranularity k :: Int
k) = Int
k

    toEnum :: Int -> TextGranularity
toEnum 0 = TextGranularity
TextGranularityChar
    toEnum 1 = TextGranularity
TextGranularityWord
    toEnum 2 = TextGranularity
TextGranularitySentence
    toEnum 3 = TextGranularity
TextGranularityLine
    toEnum 4 = TextGranularity
TextGranularityParagraph
    toEnum k :: Int
k = Int -> TextGranularity
AnotherTextGranularity Int
k

instance P.Ord TextGranularity where
    compare :: TextGranularity -> TextGranularity -> Ordering
compare a :: TextGranularity
a b :: TextGranularity
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TextGranularity -> Int
forall a. Enum a => a -> Int
P.fromEnum TextGranularity
a) (TextGranularity -> Int
forall a. Enum a => a -> Int
P.fromEnum TextGranularity
b)

foreign import ccall "atk_text_granularity_get_type" c_atk_text_granularity_get_type :: 
    IO GType

instance BoxedEnum TextGranularity where
    boxedEnumType :: TextGranularity -> IO GType
boxedEnumType _ = IO GType
c_atk_text_granularity_get_type

-- Enum TextClipType
-- | Describes the type of clipping required.
data TextClipType = 
      TextClipTypeNone
    -- ^ No clipping to be done
    | TextClipTypeMin
    -- ^ Text clipped by min coordinate is omitted
    | TextClipTypeMax
    -- ^ Text clipped by max coordinate is omitted
    | TextClipTypeBoth
    -- ^ Only text fully within mix\/max bound is retained
    | AnotherTextClipType Int
    -- ^ Catch-all for unknown values
    deriving (Int -> TextClipType -> ShowS
[TextClipType] -> ShowS
TextClipType -> String
(Int -> TextClipType -> ShowS)
-> (TextClipType -> String)
-> ([TextClipType] -> ShowS)
-> Show TextClipType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TextClipType] -> ShowS
$cshowList :: [TextClipType] -> ShowS
show :: TextClipType -> String
$cshow :: TextClipType -> String
showsPrec :: Int -> TextClipType -> ShowS
$cshowsPrec :: Int -> TextClipType -> ShowS
Show, TextClipType -> TextClipType -> Bool
(TextClipType -> TextClipType -> Bool)
-> (TextClipType -> TextClipType -> Bool) -> Eq TextClipType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TextClipType -> TextClipType -> Bool
$c/= :: TextClipType -> TextClipType -> Bool
== :: TextClipType -> TextClipType -> Bool
$c== :: TextClipType -> TextClipType -> Bool
Eq)

instance P.Enum TextClipType where
    fromEnum :: TextClipType -> Int
fromEnum TextClipTypeNone = 0
    fromEnum TextClipTypeMin = 1
    fromEnum TextClipTypeMax = 2
    fromEnum TextClipTypeBoth = 3
    fromEnum (AnotherTextClipType k :: Int
k) = Int
k

    toEnum :: Int -> TextClipType
toEnum 0 = TextClipType
TextClipTypeNone
    toEnum 1 = TextClipType
TextClipTypeMin
    toEnum 2 = TextClipType
TextClipTypeMax
    toEnum 3 = TextClipType
TextClipTypeBoth
    toEnum k :: Int
k = Int -> TextClipType
AnotherTextClipType Int
k

instance P.Ord TextClipType where
    compare :: TextClipType -> TextClipType -> Ordering
compare a :: TextClipType
a b :: TextClipType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TextClipType -> Int
forall a. Enum a => a -> Int
P.fromEnum TextClipType
a) (TextClipType -> Int
forall a. Enum a => a -> Int
P.fromEnum TextClipType
b)

foreign import ccall "atk_text_clip_type_get_type" c_atk_text_clip_type_get_type :: 
    IO GType

instance BoxedEnum TextClipType where
    boxedEnumType :: TextClipType -> IO GType
boxedEnumType _ = IO GType
c_atk_text_clip_type_get_type

-- Enum TextBoundary
-- | Text boundary types used for specifying boundaries for regions of text.
-- This enumeration is deprecated since 2.9.4 and should not be used. Use
-- AtkTextGranularity with @/atk_text_get_string_at_offset/@ instead.
data TextBoundary = 
      TextBoundaryChar
    -- ^ Boundary is the boundary between characters
    -- (including non-printing characters)
    | TextBoundaryWordStart
    -- ^ Boundary is the start (i.e. first character) of a word.
    | TextBoundaryWordEnd
    -- ^ Boundary is the end (i.e. last
    -- character) of a word.
    | TextBoundarySentenceStart
    -- ^ Boundary is the first character in a sentence.
    | TextBoundarySentenceEnd
    -- ^ Boundary is the last (terminal)
    -- character in a sentence; in languages which use \"sentence stop\"
    -- punctuation such as English, the boundary is thus the \'.\', \'?\', or
    -- similar terminal punctuation character.
    | TextBoundaryLineStart
    -- ^ Boundary is the initial character of the content or a
    -- character immediately following a newline, linefeed, or return character.
    | TextBoundaryLineEnd
    -- ^ Boundary is the linefeed, or return
    -- character.
    | AnotherTextBoundary Int
    -- ^ Catch-all for unknown values
    deriving (Int -> TextBoundary -> ShowS
[TextBoundary] -> ShowS
TextBoundary -> String
(Int -> TextBoundary -> ShowS)
-> (TextBoundary -> String)
-> ([TextBoundary] -> ShowS)
-> Show TextBoundary
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TextBoundary] -> ShowS
$cshowList :: [TextBoundary] -> ShowS
show :: TextBoundary -> String
$cshow :: TextBoundary -> String
showsPrec :: Int -> TextBoundary -> ShowS
$cshowsPrec :: Int -> TextBoundary -> ShowS
Show, TextBoundary -> TextBoundary -> Bool
(TextBoundary -> TextBoundary -> Bool)
-> (TextBoundary -> TextBoundary -> Bool) -> Eq TextBoundary
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TextBoundary -> TextBoundary -> Bool
$c/= :: TextBoundary -> TextBoundary -> Bool
== :: TextBoundary -> TextBoundary -> Bool
$c== :: TextBoundary -> TextBoundary -> Bool
Eq)

instance P.Enum TextBoundary where
    fromEnum :: TextBoundary -> Int
fromEnum TextBoundaryChar = 0
    fromEnum TextBoundaryWordStart = 1
    fromEnum TextBoundaryWordEnd = 2
    fromEnum TextBoundarySentenceStart = 3
    fromEnum TextBoundarySentenceEnd = 4
    fromEnum TextBoundaryLineStart = 5
    fromEnum TextBoundaryLineEnd = 6
    fromEnum (AnotherTextBoundary k :: Int
k) = Int
k

    toEnum :: Int -> TextBoundary
toEnum 0 = TextBoundary
TextBoundaryChar
    toEnum 1 = TextBoundary
TextBoundaryWordStart
    toEnum 2 = TextBoundary
TextBoundaryWordEnd
    toEnum 3 = TextBoundary
TextBoundarySentenceStart
    toEnum 4 = TextBoundary
TextBoundarySentenceEnd
    toEnum 5 = TextBoundary
TextBoundaryLineStart
    toEnum 6 = TextBoundary
TextBoundaryLineEnd
    toEnum k :: Int
k = Int -> TextBoundary
AnotherTextBoundary Int
k

instance P.Ord TextBoundary where
    compare :: TextBoundary -> TextBoundary -> Ordering
compare a :: TextBoundary
a b :: TextBoundary
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TextBoundary -> Int
forall a. Enum a => a -> Int
P.fromEnum TextBoundary
a) (TextBoundary -> Int
forall a. Enum a => a -> Int
P.fromEnum TextBoundary
b)

foreign import ccall "atk_text_boundary_get_type" c_atk_text_boundary_get_type :: 
    IO GType

instance BoxedEnum TextBoundary where
    boxedEnumType :: TextBoundary -> IO GType
boxedEnumType _ = IO GType
c_atk_text_boundary_get_type

-- Enum TextAttribute
-- | Describes the text attributes supported
data TextAttribute = 
      TextAttributeInvalid
    -- ^ Invalid attribute, like bad spelling or grammar.
    | TextAttributeLeftMargin
    -- ^ The pixel width of the left margin
    | TextAttributeRightMargin
    -- ^ The pixel width of the right margin
    | TextAttributeIndent
    -- ^ The number of pixels that the text is indented
    | TextAttributeInvisible
    -- ^ Either \"true\" or \"false\" indicating whether text is visible or not
    | TextAttributeEditable
    -- ^ Either \"true\" or \"false\" indicating whether text is editable or not
    | TextAttributePixelsAboveLines
    -- ^ Pixels of blank space to leave above each newline-terminated line.
    | TextAttributePixelsBelowLines
    -- ^ Pixels of blank space to leave below each newline-terminated line.
    | TextAttributePixelsInsideWrap
    -- ^ Pixels of blank space to leave between wrapped lines inside the same newline-terminated line (paragraph).
    | TextAttributeBgFullHeight
    -- ^ \"true\" or \"false\" whether to make the background color for each character the height of the highest font used on the current line, or the height of the font used for the current character.
    | TextAttributeRise
    -- ^ Number of pixels that the characters are risen above the baseline
    | TextAttributeUnderline
    -- ^ \"none\", \"single\", \"double\", \"low\", or \"error\"
    | TextAttributeStrikethrough
    -- ^ \"true\" or \"false\" whether the text is strikethrough
    | TextAttributeSize
    -- ^ The size of the characters in points. eg: 10
    | TextAttributeScale
    -- ^ The scale of the characters. The value is a string representation of a double
    | TextAttributeWeight
    -- ^ The weight of the characters.
    | TextAttributeLanguage
    -- ^ The language used
    | TextAttributeFamilyName
    -- ^ The font family name
    | TextAttributeBgColor
    -- ^ The background color. The value is an RGB value of the format \"@/u/@,@/u/@,@/u/@\"
    | TextAttributeFgColor
    -- ^ The foreground color. The value is an RGB value of the format \"@/u/@,@/u/@,@/u/@\"
    | TextAttributeBgStipple
    -- ^ \"true\" if a @/GdkBitmap/@ is set for stippling the background color.
    | TextAttributeFgStipple
    -- ^ \"true\" if a @/GdkBitmap/@ is set for stippling the foreground color.
    | TextAttributeWrapMode
    -- ^ The wrap mode of the text, if any. Values are \"none\", \"char\", \"word\", or \"word_char\".
    | TextAttributeDirection
    -- ^ The direction of the text, if set. Values are \"none\", \"ltr\" or \"rtl\"
    | TextAttributeJustification
    -- ^ The justification of the text, if set. Values are \"left\", \"right\", \"center\" or \"fill\"
    | TextAttributeStretch
    -- ^ The stretch of the text, if set. Values are \"ultra_condensed\", \"extra_condensed\", \"condensed\", \"semi_condensed\", \"normal\", \"semi_expanded\", \"expanded\", \"extra_expanded\" or \"ultra_expanded\"
    | TextAttributeVariant
    -- ^ The capitalization variant of the text, if set. Values are \"normal\" or \"small_caps\"
    | TextAttributeStyle
    -- ^ The slant style of the text, if set. Values are \"normal\", \"oblique\" or \"italic\"
    | TextAttributeLastDefined
    -- ^ not a valid text attribute, used for finding end of enumeration
    | AnotherTextAttribute Int
    -- ^ Catch-all for unknown values
    deriving (Int -> TextAttribute -> ShowS
[TextAttribute] -> ShowS
TextAttribute -> String
(Int -> TextAttribute -> ShowS)
-> (TextAttribute -> String)
-> ([TextAttribute] -> ShowS)
-> Show TextAttribute
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TextAttribute] -> ShowS
$cshowList :: [TextAttribute] -> ShowS
show :: TextAttribute -> String
$cshow :: TextAttribute -> String
showsPrec :: Int -> TextAttribute -> ShowS
$cshowsPrec :: Int -> TextAttribute -> ShowS
Show, TextAttribute -> TextAttribute -> Bool
(TextAttribute -> TextAttribute -> Bool)
-> (TextAttribute -> TextAttribute -> Bool) -> Eq TextAttribute
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TextAttribute -> TextAttribute -> Bool
$c/= :: TextAttribute -> TextAttribute -> Bool
== :: TextAttribute -> TextAttribute -> Bool
$c== :: TextAttribute -> TextAttribute -> Bool
Eq)

instance P.Enum TextAttribute where
    fromEnum :: TextAttribute -> Int
fromEnum TextAttributeInvalid = 0
    fromEnum TextAttributeLeftMargin = 1
    fromEnum TextAttributeRightMargin = 2
    fromEnum TextAttributeIndent = 3
    fromEnum TextAttributeInvisible = 4
    fromEnum TextAttributeEditable = 5
    fromEnum TextAttributePixelsAboveLines = 6
    fromEnum TextAttributePixelsBelowLines = 7
    fromEnum TextAttributePixelsInsideWrap = 8
    fromEnum TextAttributeBgFullHeight = 9
    fromEnum TextAttributeRise = 10
    fromEnum TextAttributeUnderline = 11
    fromEnum TextAttributeStrikethrough = 12
    fromEnum TextAttributeSize = 13
    fromEnum TextAttributeScale = 14
    fromEnum TextAttributeWeight = 15
    fromEnum TextAttributeLanguage = 16
    fromEnum TextAttributeFamilyName = 17
    fromEnum TextAttributeBgColor = 18
    fromEnum TextAttributeFgColor = 19
    fromEnum TextAttributeBgStipple = 20
    fromEnum TextAttributeFgStipple = 21
    fromEnum TextAttributeWrapMode = 22
    fromEnum TextAttributeDirection = 23
    fromEnum TextAttributeJustification = 24
    fromEnum TextAttributeStretch = 25
    fromEnum TextAttributeVariant = 26
    fromEnum TextAttributeStyle = 27
    fromEnum TextAttributeLastDefined = 28
    fromEnum (AnotherTextAttribute k :: Int
k) = Int
k

    toEnum :: Int -> TextAttribute
toEnum 0 = TextAttribute
TextAttributeInvalid
    toEnum 1 = TextAttribute
TextAttributeLeftMargin
    toEnum 2 = TextAttribute
TextAttributeRightMargin
    toEnum 3 = TextAttribute
TextAttributeIndent
    toEnum 4 = TextAttribute
TextAttributeInvisible
    toEnum 5 = TextAttribute
TextAttributeEditable
    toEnum 6 = TextAttribute
TextAttributePixelsAboveLines
    toEnum 7 = TextAttribute
TextAttributePixelsBelowLines
    toEnum 8 = TextAttribute
TextAttributePixelsInsideWrap
    toEnum 9 = TextAttribute
TextAttributeBgFullHeight
    toEnum 10 = TextAttribute
TextAttributeRise
    toEnum 11 = TextAttribute
TextAttributeUnderline
    toEnum 12 = TextAttribute
TextAttributeStrikethrough
    toEnum 13 = TextAttribute
TextAttributeSize
    toEnum 14 = TextAttribute
TextAttributeScale
    toEnum 15 = TextAttribute
TextAttributeWeight
    toEnum 16 = TextAttribute
TextAttributeLanguage
    toEnum 17 = TextAttribute
TextAttributeFamilyName
    toEnum 18 = TextAttribute
TextAttributeBgColor
    toEnum 19 = TextAttribute
TextAttributeFgColor
    toEnum 20 = TextAttribute
TextAttributeBgStipple
    toEnum 21 = TextAttribute
TextAttributeFgStipple
    toEnum 22 = TextAttribute
TextAttributeWrapMode
    toEnum 23 = TextAttribute
TextAttributeDirection
    toEnum 24 = TextAttribute
TextAttributeJustification
    toEnum 25 = TextAttribute
TextAttributeStretch
    toEnum 26 = TextAttribute
TextAttributeVariant
    toEnum 27 = TextAttribute
TextAttributeStyle
    toEnum 28 = TextAttribute
TextAttributeLastDefined
    toEnum k :: Int
k = Int -> TextAttribute
AnotherTextAttribute Int
k

instance P.Ord TextAttribute where
    compare :: TextAttribute -> TextAttribute -> Ordering
compare a :: TextAttribute
a b :: TextAttribute
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TextAttribute -> Int
forall a. Enum a => a -> Int
P.fromEnum TextAttribute
a) (TextAttribute -> Int
forall a. Enum a => a -> Int
P.fromEnum TextAttribute
b)

foreign import ccall "atk_text_attribute_get_type" c_atk_text_attribute_get_type :: 
    IO GType

instance BoxedEnum TextAttribute where
    boxedEnumType :: TextAttribute -> IO GType
boxedEnumType _ = IO GType
c_atk_text_attribute_get_type

-- Enum StateType
-- | The possible types of states of an object
data StateType = 
      StateTypeInvalid
    -- ^ Indicates an invalid state - probably an error condition.
    | StateTypeActive
    -- ^ Indicates a window is currently the active window, or an object is the active subelement within a container or table. ATK_STATE_ACTIVE should not be used for objects which have ATK_STATE_FOCUSABLE or ATK_STATE_SELECTABLE: Those objects should use ATK_STATE_FOCUSED and ATK_STATE_SELECTED respectively. ATK_STATE_ACTIVE is a means to indicate that an object which is not focusable and not selectable is the currently-active item within its parent container.
    | StateTypeArmed
    -- ^ Indicates that the object is \'armed\', i.e. will be activated by if a pointer button-release event occurs within its bounds.  Buttons often enter this state when a pointer click occurs within their bounds, as a precursor to activation. ATK_STATE_ARMED has been deprecated since ATK-2.16 and should not be used in newly-written code.
    | StateTypeBusy
    -- ^ Indicates the current object is busy, i.e. onscreen representation is in the process of changing, or the object is temporarily unavailable for interaction due to activity already in progress.  This state may be used by implementors of Document to indicate that content loading is underway.  It also may indicate other \'pending\' conditions; clients may wish to interrogate this object when the ATK_STATE_BUSY flag is removed.
    | StateTypeChecked
    -- ^ Indicates this object is currently checked, for instance a checkbox is \'non-empty\'.
    | StateTypeDefunct
    -- ^ Indicates that this object no longer has a valid backing widget (for instance, if its peer object has been destroyed)
    | StateTypeEditable
    -- ^ Indicates that this object can contain text, and that the
    -- user can change the textual contents of this object by editing those contents
    -- directly. For an object which is expected to be editable due to its type, but
    -- which cannot be edited due to the application or platform preventing the user
    -- from doing so, that object\'s t'GI.Atk.Objects.StateSet.StateSet' should lack ATK_STATE_EDITABLE and
    -- should contain ATK_STATE_READ_ONLY.
    | StateTypeEnabled
    -- ^ Indicates that this object is enabled, i.e. that it currently reflects some application state. Objects that are \"greyed out\" may lack this state, and may lack the STATE_SENSITIVE if direct user interaction cannot cause them to acquire STATE_ENABLED. See also: ATK_STATE_SENSITIVE
    | StateTypeExpandable
    -- ^ Indicates this object allows progressive disclosure of its children
    | StateTypeExpanded
    -- ^ Indicates this object its expanded - see ATK_STATE_EXPANDABLE above
    | StateTypeFocusable
    -- ^ Indicates this object can accept keyboard focus, which means all events resulting from typing on the keyboard will normally be passed to it when it has focus
    | StateTypeFocused
    -- ^ Indicates this object currently has the keyboard focus
    | StateTypeHorizontal
    -- ^ Indicates the orientation of this object is horizontal; used, for instance, by objects of ATK_ROLE_SCROLL_BAR.  For objects where vertical\/horizontal orientation is especially meaningful.
    | StateTypeIconified
    -- ^ Indicates this object is minimized and is represented only by an icon
    | StateTypeModal
    -- ^ Indicates something must be done with this object before the user can interact with an object in a different window
    | StateTypeMultiLine
    -- ^ Indicates this (text) object can contain multiple lines of text
    | StateTypeMultiselectable
    -- ^ Indicates this object allows more than one of its children to be selected at the same time, or in the case of text objects, that the object supports non-contiguous text selections.
    | StateTypeOpaque
    -- ^ Indicates this object paints every pixel within its rectangular region.
    | StateTypePressed
    -- ^ Indicates this object is currently pressed.
    | StateTypeResizable
    -- ^ Indicates the size of this object is not fixed
    | StateTypeSelectable
    -- ^ Indicates this object is the child of an object that allows its children to be selected and that this child is one of those children that can be selected
    | StateTypeSelected
    -- ^ Indicates this object is the child of an object that allows its children to be selected and that this child is one of those children that has been selected
    | StateTypeSensitive
    -- ^ Indicates this object is sensitive, e.g. to user interaction.
    -- STATE_SENSITIVE usually accompanies STATE_ENABLED for user-actionable controls,
    -- but may be found in the absence of STATE_ENABLED if the current visible state of the
    -- control is \"disconnected\" from the application state.  In such cases, direct user interaction
    -- can often result in the object gaining STATE_SENSITIVE, for instance if a user makes
    -- an explicit selection using an object whose current state is ambiguous or undefined.
    -- /@see@/ STATE_ENABLED, STATE_INDETERMINATE.
    | StateTypeShowing
    -- ^ Indicates this object, the object\'s parent, the object\'s parent\'s parent, and so on,
    -- are all \'shown\' to the end-user, i.e. subject to \"exposure\" if blocking or obscuring objects do not interpose
    -- between this object and the top of the window stack.
    | StateTypeSingleLine
    -- ^ Indicates this (text) object can contain only a single line of text
    | StateTypeStale
    -- ^ Indicates that the information returned for this object may no longer be
    -- synchronized with the application state.  This is implied if the object has STATE_TRANSIENT,
    -- and can also occur towards the end of the object peer\'s lifecycle. It can also be used to indicate that
    -- the index associated with this object has changed since the user accessed the object (in lieu of
    -- \"index-in-parent-changed\" events).
    | StateTypeTransient
    -- ^ Indicates this object is transient, i.e. a snapshot which may not emit events when its
    -- state changes.  Data from objects with ATK_STATE_TRANSIENT should not be cached, since there may be no
    -- notification given when the cached data becomes obsolete.
    | StateTypeVertical
    -- ^ Indicates the orientation of this object is vertical
    | StateTypeVisible
    -- ^ Indicates this object is visible, e.g. has been explicitly marked for exposure to the user.
    | StateTypeManagesDescendants
    -- ^ Indicates that \"active-descendant-changed\" event
    -- is sent when children become \'active\' (i.e. are selected or navigated to onscreen).
    -- Used to prevent need to enumerate all children in very large containers, like tables.
    -- The presence of STATE_MANAGES_DESCENDANTS is an indication to the client.
    -- that the children should not, and need not, be enumerated by the client.
    -- Objects implementing this state are expected to provide relevant state
    -- notifications to listening clients, for instance notifications of visibility
    -- changes and activation of their contained child objects, without the client
    -- having previously requested references to those children.
    | StateTypeIndeterminate
    -- ^ Indicates that the value, or some other quantifiable
    -- property, of this AtkObject cannot be fully determined. In the case of a large
    -- data set in which the total number of items in that set is unknown (e.g. 1 of
    -- 999+), implementors should expose the currently-known set size (999) along
    -- with this state. In the case of a check box, this state should be used to
    -- indicate that the check box is a tri-state check box which is currently
    -- neither checked nor unchecked.
    | StateTypeTruncated
    -- ^ Indicates that an object is truncated, e.g. a text value in a speradsheet cell.
    | StateTypeRequired
    -- ^ Indicates that explicit user interaction with an object is required by the user interface, e.g. a required field in a \"web-form\" interface.
    | StateTypeInvalidEntry
    -- ^ Indicates that the object has encountered an error condition due to failure of input validation. For instance, a form control may acquire this state in response to invalid or malformed user input.
    | StateTypeSupportsAutocompletion
    -- ^ Indicates that the object in question implements some form of ¨typeahead¨ or
    -- pre-selection behavior whereby entering the first character of one or more sub-elements
    -- causes those elements to scroll into view or become selected.  Subsequent character input
    -- may narrow the selection further as long as one or more sub-elements match the string.
    -- This state is normally only useful and encountered on objects that implement Selection.
    -- In some cases the typeahead behavior may result in full or partial ¨completion¨ of
    -- the data in the input field, in which case these input events may trigger text-changed
    -- events from the AtkText interface.  This state supplants /@aTKROLEAUTOCOMPLETE@/.
    | StateTypeSelectableText
    -- ^ Indicates that the object in question supports text selection. It should only be exposed on objects which implement the Text interface, in order to distinguish this state from /@aTKSTATESELECTABLE@/, which infers that the object in question is a selectable child of an object which implements Selection. While similar, text selection and subelement selection are distinct operations.
    | StateTypeDefault
    -- ^ Indicates that the object is the \"default\" active component, i.e. the object which is activated by an end-user press of the \"Enter\" or \"Return\" key.  Typically a \"close\" or \"submit\" button.
    | StateTypeAnimated
    -- ^ Indicates that the object changes its appearance dynamically as an inherent part of its presentation.  This state may come and go if an object is only temporarily animated on the way to a \'final\' onscreen presentation.
    -- /@note@/ some applications, notably content viewers, may not be able to detect
    -- all kinds of animated content.  Therefore the absence of this state should not
    -- be taken as definitive evidence that the object\'s visual representation is
    -- static; this state is advisory.
    | StateTypeVisited
    -- ^ Indicates that the object (typically a hyperlink) has already been \'activated\', and\/or its backing data has already been downloaded, rendered, or otherwise \"visited\".
    | StateTypeCheckable
    -- ^ Indicates this object has the potential to be
    --  checked, such as a checkbox or toggle-able table cell. /@since@/:
    --  ATK-2.12
    | StateTypeHasPopup
    -- ^ Indicates that the object has a popup context
    -- menu or sub-level menu which may or may not be showing. This means
    -- that activation renders conditional content.  Note that ordinary
    -- tooltips are not considered popups in this context. /@since@/: ATK-2.12
    | StateTypeHasTooltip
    -- ^ Indicates this object has a tooltip. /@since@/: ATK-2.16
    | StateTypeReadOnly
    -- ^ Indicates that a widget which is ENABLED and SENSITIVE
    -- has a value which can be read, but not modified, by the user. Note that this
    -- state should only be applied to widget types whose value is normally directly
    -- user modifiable, such as check boxes, radio buttons, spin buttons, text input
    -- fields, and combo boxes, as a means to convey that the expected interaction
    -- with that widget is not possible. When the expected interaction with a
    -- widget does not include modification by the user, as is the case with
    -- labels and containers, ATK_STATE_READ_ONLY should not be applied. See also
    -- ATK_STATE_EDITABLE. /@since@/: ATK-2-16
    | StateTypeLastDefined
    -- ^ Not a valid state, used for finding end of enumeration
    | AnotherStateType Int
    -- ^ Catch-all for unknown values
    deriving (Int -> StateType -> ShowS
[StateType] -> ShowS
StateType -> String
(Int -> StateType -> ShowS)
-> (StateType -> String)
-> ([StateType] -> ShowS)
-> Show StateType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StateType] -> ShowS
$cshowList :: [StateType] -> ShowS
show :: StateType -> String
$cshow :: StateType -> String
showsPrec :: Int -> StateType -> ShowS
$cshowsPrec :: Int -> StateType -> ShowS
Show, StateType -> StateType -> Bool
(StateType -> StateType -> Bool)
-> (StateType -> StateType -> Bool) -> Eq StateType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StateType -> StateType -> Bool
$c/= :: StateType -> StateType -> Bool
== :: StateType -> StateType -> Bool
$c== :: StateType -> StateType -> Bool
Eq)

instance P.Enum StateType where
    fromEnum :: StateType -> Int
fromEnum StateTypeInvalid = 0
    fromEnum StateTypeActive = 1
    fromEnum StateTypeArmed = 2
    fromEnum StateTypeBusy = 3
    fromEnum StateTypeChecked = 4
    fromEnum StateTypeDefunct = 5
    fromEnum StateTypeEditable = 6
    fromEnum StateTypeEnabled = 7
    fromEnum StateTypeExpandable = 8
    fromEnum StateTypeExpanded = 9
    fromEnum StateTypeFocusable = 10
    fromEnum StateTypeFocused = 11
    fromEnum StateTypeHorizontal = 12
    fromEnum StateTypeIconified = 13
    fromEnum StateTypeModal = 14
    fromEnum StateTypeMultiLine = 15
    fromEnum StateTypeMultiselectable = 16
    fromEnum StateTypeOpaque = 17
    fromEnum StateTypePressed = 18
    fromEnum StateTypeResizable = 19
    fromEnum StateTypeSelectable = 20
    fromEnum StateTypeSelected = 21
    fromEnum StateTypeSensitive = 22
    fromEnum StateTypeShowing = 23
    fromEnum StateTypeSingleLine = 24
    fromEnum StateTypeStale = 25
    fromEnum StateTypeTransient = 26
    fromEnum StateTypeVertical = 27
    fromEnum StateTypeVisible = 28
    fromEnum StateTypeManagesDescendants = 29
    fromEnum StateTypeIndeterminate = 30
    fromEnum StateTypeTruncated = 31
    fromEnum StateTypeRequired = 32
    fromEnum StateTypeInvalidEntry = 33
    fromEnum StateTypeSupportsAutocompletion = 34
    fromEnum StateTypeSelectableText = 35
    fromEnum StateTypeDefault = 36
    fromEnum StateTypeAnimated = 37
    fromEnum StateTypeVisited = 38
    fromEnum StateTypeCheckable = 39
    fromEnum StateTypeHasPopup = 40
    fromEnum StateTypeHasTooltip = 41
    fromEnum StateTypeReadOnly = 42
    fromEnum StateTypeLastDefined = 43
    fromEnum (AnotherStateType k :: Int
k) = Int
k

    toEnum :: Int -> StateType
toEnum 0 = StateType
StateTypeInvalid
    toEnum 1 = StateType
StateTypeActive
    toEnum 2 = StateType
StateTypeArmed
    toEnum 3 = StateType
StateTypeBusy
    toEnum 4 = StateType
StateTypeChecked
    toEnum 5 = StateType
StateTypeDefunct
    toEnum 6 = StateType
StateTypeEditable
    toEnum 7 = StateType
StateTypeEnabled
    toEnum 8 = StateType
StateTypeExpandable
    toEnum 9 = StateType
StateTypeExpanded
    toEnum 10 = StateType
StateTypeFocusable
    toEnum 11 = StateType
StateTypeFocused
    toEnum 12 = StateType
StateTypeHorizontal
    toEnum 13 = StateType
StateTypeIconified
    toEnum 14 = StateType
StateTypeModal
    toEnum 15 = StateType
StateTypeMultiLine
    toEnum 16 = StateType
StateTypeMultiselectable
    toEnum 17 = StateType
StateTypeOpaque
    toEnum 18 = StateType
StateTypePressed
    toEnum 19 = StateType
StateTypeResizable
    toEnum 20 = StateType
StateTypeSelectable
    toEnum 21 = StateType
StateTypeSelected
    toEnum 22 = StateType
StateTypeSensitive
    toEnum 23 = StateType
StateTypeShowing
    toEnum 24 = StateType
StateTypeSingleLine
    toEnum 25 = StateType
StateTypeStale
    toEnum 26 = StateType
StateTypeTransient
    toEnum 27 = StateType
StateTypeVertical
    toEnum 28 = StateType
StateTypeVisible
    toEnum 29 = StateType
StateTypeManagesDescendants
    toEnum 30 = StateType
StateTypeIndeterminate
    toEnum 31 = StateType
StateTypeTruncated
    toEnum 32 = StateType
StateTypeRequired
    toEnum 33 = StateType
StateTypeInvalidEntry
    toEnum 34 = StateType
StateTypeSupportsAutocompletion
    toEnum 35 = StateType
StateTypeSelectableText
    toEnum 36 = StateType
StateTypeDefault
    toEnum 37 = StateType
StateTypeAnimated
    toEnum 38 = StateType
StateTypeVisited
    toEnum 39 = StateType
StateTypeCheckable
    toEnum 40 = StateType
StateTypeHasPopup
    toEnum 41 = StateType
StateTypeHasTooltip
    toEnum 42 = StateType
StateTypeReadOnly
    toEnum 43 = StateType
StateTypeLastDefined
    toEnum k :: Int
k = Int -> StateType
AnotherStateType Int
k

instance P.Ord StateType where
    compare :: StateType -> StateType -> Ordering
compare a :: StateType
a b :: StateType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (StateType -> Int
forall a. Enum a => a -> Int
P.fromEnum StateType
a) (StateType -> Int
forall a. Enum a => a -> Int
P.fromEnum StateType
b)

foreign import ccall "atk_state_type_get_type" c_atk_state_type_get_type :: 
    IO GType

instance BoxedEnum StateType where
    boxedEnumType :: StateType -> IO GType
boxedEnumType _ = IO GType
c_atk_state_type_get_type

-- Enum ScrollType
-- | Specifies where an object should be placed on the screen when using scroll_to.
-- 
-- /Since: 2.30/
data ScrollType = 
      ScrollTypeTopLeft
    -- ^ Scroll the object vertically and horizontally to the top
    -- left corner of the window.
    | ScrollTypeBottomRight
    -- ^ Scroll the object vertically and horizontally to the
    -- bottom right corner of the window.
    | ScrollTypeTopEdge
    -- ^ Scroll the object vertically to the top edge of the
    --  window.
    | ScrollTypeBottomEdge
    -- ^ Scroll the object vertically to the bottom edge of
    -- the window.
    | ScrollTypeLeftEdge
    -- ^ Scroll the object vertically and horizontally to the
    -- left edge of the window.
    | ScrollTypeRightEdge
    -- ^ Scroll the object vertically and horizontally to the
    -- right edge of the window.
    | ScrollTypeAnywhere
    -- ^ Scroll the object vertically and horizontally so that
    -- as much as possible of the object becomes visible. The exact placement is
    -- determined by the application.
    | AnotherScrollType Int
    -- ^ Catch-all for unknown values
    deriving (Int -> ScrollType -> ShowS
[ScrollType] -> ShowS
ScrollType -> String
(Int -> ScrollType -> ShowS)
-> (ScrollType -> String)
-> ([ScrollType] -> ShowS)
-> Show ScrollType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ScrollType] -> ShowS
$cshowList :: [ScrollType] -> ShowS
show :: ScrollType -> String
$cshow :: ScrollType -> String
showsPrec :: Int -> ScrollType -> ShowS
$cshowsPrec :: Int -> ScrollType -> ShowS
Show, ScrollType -> ScrollType -> Bool
(ScrollType -> ScrollType -> Bool)
-> (ScrollType -> ScrollType -> Bool) -> Eq ScrollType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ScrollType -> ScrollType -> Bool
$c/= :: ScrollType -> ScrollType -> Bool
== :: ScrollType -> ScrollType -> Bool
$c== :: ScrollType -> ScrollType -> Bool
Eq)

instance P.Enum ScrollType where
    fromEnum :: ScrollType -> Int
fromEnum ScrollTypeTopLeft = 0
    fromEnum ScrollTypeBottomRight = 1
    fromEnum ScrollTypeTopEdge = 2
    fromEnum ScrollTypeBottomEdge = 3
    fromEnum ScrollTypeLeftEdge = 4
    fromEnum ScrollTypeRightEdge = 5
    fromEnum ScrollTypeAnywhere = 6
    fromEnum (AnotherScrollType k :: Int
k) = Int
k

    toEnum :: Int -> ScrollType
toEnum 0 = ScrollType
ScrollTypeTopLeft
    toEnum 1 = ScrollType
ScrollTypeBottomRight
    toEnum 2 = ScrollType
ScrollTypeTopEdge
    toEnum 3 = ScrollType
ScrollTypeBottomEdge
    toEnum 4 = ScrollType
ScrollTypeLeftEdge
    toEnum 5 = ScrollType
ScrollTypeRightEdge
    toEnum 6 = ScrollType
ScrollTypeAnywhere
    toEnum k :: Int
k = Int -> ScrollType
AnotherScrollType Int
k

instance P.Ord ScrollType where
    compare :: ScrollType -> ScrollType -> Ordering
compare a :: ScrollType
a b :: ScrollType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (ScrollType -> Int
forall a. Enum a => a -> Int
P.fromEnum ScrollType
a) (ScrollType -> Int
forall a. Enum a => a -> Int
P.fromEnum ScrollType
b)

foreign import ccall "atk_scroll_type_get_type" c_atk_scroll_type_get_type :: 
    IO GType

instance BoxedEnum ScrollType where
    boxedEnumType :: ScrollType -> IO GType
boxedEnumType _ = IO GType
c_atk_scroll_type_get_type

-- Enum Role
-- | Describes the role of an object
-- 
-- These are the built-in enumerated roles that UI components can have in
-- ATK.  Other roles may be added at runtime, so an AtkRole >=
-- ATK_ROLE_LAST_DEFINED is not necessarily an error.
data Role = 
      RoleInvalid
    -- ^ Invalid role
    | RoleAcceleratorLabel
    -- ^ A label which represents an accelerator
    | RoleAlert
    -- ^ An object which is an alert to the user. Assistive Technologies typically respond to ATK_ROLE_ALERT by reading the entire onscreen contents of containers advertising this role.  Should be used for warning dialogs, etc.
    | RoleAnimation
    -- ^ An object which is an animated image
    | RoleArrow
    -- ^ An arrow in one of the four cardinal directions
    | RoleCalendar
    -- ^ An object that displays a calendar and allows the user to select a date
    | RoleCanvas
    -- ^ An object that can be drawn into and is used to trap events
    | RoleCheckBox
    -- ^ A choice that can be checked or unchecked and provides a separate indicator for the current state
    | RoleCheckMenuItem
    -- ^ A menu item with a check box
    | RoleColorChooser
    -- ^ A specialized dialog that lets the user choose a color
    | RoleColumnHeader
    -- ^ The header for a column of data
    | RoleComboBox
    -- ^ A collapsible list of choices the user can select from
    | RoleDateEditor
    -- ^ An object whose purpose is to allow a user to edit a date
    | RoleDesktopIcon
    -- ^ An inconifed internal frame within a DESKTOP_PANE
    | RoleDesktopFrame
    -- ^ A pane that supports internal frames and iconified versions of those internal frames
    | RoleDial
    -- ^ An object whose purpose is to allow a user to set a value
    | RoleDialog
    -- ^ A top level window with title bar and a border
    | RoleDirectoryPane
    -- ^ A pane that allows the user to navigate through and select the contents of a directory
    | RoleDrawingArea
    -- ^ An object used for drawing custom user interface elements
    | RoleFileChooser
    -- ^ A specialized dialog that lets the user choose a file
    | RoleFiller
    -- ^ A object that fills up space in a user interface
    | RoleFontChooser
    -- ^ A specialized dialog that lets the user choose a font
    | RoleFrame
    -- ^ A top level window with a title bar, border, menubar, etc.
    | RoleGlassPane
    -- ^ A pane that is guaranteed to be painted on top of all panes beneath it
    | RoleHtmlContainer
    -- ^ A document container for HTML, whose children represent the document content
    | RoleIcon
    -- ^ A small fixed size picture, typically used to decorate components
    | RoleImage
    -- ^ An object whose primary purpose is to display an image
    | RoleInternalFrame
    -- ^ A frame-like object that is clipped by a desktop pane
    | RoleLabel
    -- ^ An object used to present an icon or short string in an interface
    | RoleLayeredPane
    -- ^ A specialized pane that allows its children to be drawn in layers, providing a form of stacking order
    | RoleList
    -- ^ An object that presents a list of objects to the user and allows the user to select one or more of them
    | RoleListItem
    -- ^ An object that represents an element of a list
    | RoleMenu
    -- ^ An object usually found inside a menu bar that contains a list of actions the user can choose from
    | RoleMenuBar
    -- ^ An object usually drawn at the top of the primary dialog box of an application that contains a list of menus the user can choose from
    | RoleMenuItem
    -- ^ An object usually contained in a menu that presents an action the user can choose
    | RoleOptionPane
    -- ^ A specialized pane whose primary use is inside a DIALOG
    | RolePageTab
    -- ^ An object that is a child of a page tab list
    | RolePageTabList
    -- ^ An object that presents a series of panels (or page tabs), one at a time, through some mechanism provided by the object
    | RolePanel
    -- ^ A generic container that is often used to group objects
    | RolePasswordText
    -- ^ A text object uses for passwords, or other places where the text content is not shown visibly to the user
    | RolePopupMenu
    -- ^ A temporary window that is usually used to offer the user a list of choices, and then hides when the user selects one of those choices
    | RoleProgressBar
    -- ^ An object used to indicate how much of a task has been completed
    | RolePushButton
    -- ^ An object the user can manipulate to tell the application to do something
    | RoleRadioButton
    -- ^ A specialized check box that will cause other radio buttons in the same group to become unchecked when this one is checked
    | RoleRadioMenuItem
    -- ^ A check menu item which belongs to a group. At each instant exactly one of the radio menu items from a group is selected
    | RoleRootPane
    -- ^ A specialized pane that has a glass pane and a layered pane as its children
    | RoleRowHeader
    -- ^ The header for a row of data
    | RoleScrollBar
    -- ^ An object usually used to allow a user to incrementally view a large amount of data.
    | RoleScrollPane
    -- ^ An object that allows a user to incrementally view a large amount of information
    | RoleSeparator
    -- ^ An object usually contained in a menu to provide a visible and logical separation of the contents in a menu
    | RoleSlider
    -- ^ An object that allows the user to select from a bounded range
    | RoleSplitPane
    -- ^ A specialized panel that presents two other panels at the same time
    | RoleSpinButton
    -- ^ An object used to get an integer or floating point number from the user
    | RoleStatusbar
    -- ^ An object which reports messages of minor importance to the user
    | RoleTable
    -- ^ An object used to represent information in terms of rows and columns
    | RoleTableCell
    -- ^ A cell in a table
    | RoleTableColumnHeader
    -- ^ The header for a column of a table
    | RoleTableRowHeader
    -- ^ The header for a row of a table
    | RoleTearOffMenuItem
    -- ^ A menu item used to tear off and reattach its menu
    | RoleTerminal
    -- ^ An object that represents an accessible terminal.  /@since@/: ATK-0.6
    | RoleText
    -- ^ An interactive widget that supports multiple lines of text and
    -- optionally accepts user input, but whose purpose is not to solicit user input.
    -- Thus ATK_ROLE_TEXT is appropriate for the text view in a plain text editor
    -- but inappropriate for an input field in a dialog box or web form. For widgets
    -- whose purpose is to solicit input from the user, see ATK_ROLE_ENTRY and
    -- ATK_ROLE_PASSWORD_TEXT. For generic objects which display a brief amount of
    -- textual information, see ATK_ROLE_STATIC.
    | RoleToggleButton
    -- ^ A specialized push button that can be checked or unchecked, but does not provide a separate indicator for the current state
    | RoleToolBar
    -- ^ A bar or palette usually composed of push buttons or toggle buttons
    | RoleToolTip
    -- ^ An object that provides information about another object
    | RoleTree
    -- ^ An object used to represent hierarchical information to the user
    | RoleTreeTable
    -- ^ An object capable of expanding and collapsing rows as well as showing multiple columns of data.   /@since@/: ATK-0.7
    | RoleUnknown
    -- ^ The object contains some Accessible information, but its role is not known
    | RoleViewport
    -- ^ An object usually used in a scroll pane
    | RoleWindow
    -- ^ A top level window with no title or border.
    | RoleHeader
    -- ^ An object that serves as a document header. /@since@/: ATK-1.1.1
    | RoleFooter
    -- ^ An object that serves as a document footer.  /@since@/: ATK-1.1.1
    | RoleParagraph
    -- ^ An object which is contains a paragraph of text content.   /@since@/: ATK-1.1.1
    | RoleRuler
    -- ^ An object which describes margins and tab stops, etc. for text objects which it controls (should have CONTROLLER_FOR relation to such).   /@since@/: ATK-1.1.1
    | RoleApplication
    -- ^ The object is an application object, which may contain /@aTKROLEFRAME@/ objects or other types of accessibles.  The root accessible of any application\'s ATK hierarchy should have ATK_ROLE_APPLICATION.   /@since@/: ATK-1.1.4
    | RoleAutocomplete
    -- ^ The object is a dialog or list containing items for insertion into an entry widget, for instance a list of words for completion of a text entry.   /@since@/: ATK-1.3
    | RoleEditBar
    -- ^ The object is an editable text object in a toolbar.  /@since@/: ATK-1.5
    | RoleEmbedded
    -- ^ The object is an embedded container within a document or panel.  This role is a grouping \"hint\" indicating that the contained objects share a context.  /@since@/: ATK-1.7.2
    | RoleEntry
    -- ^ The object is a component whose textual content may be entered or modified by the user, provided /@aTKSTATEEDITABLE@/ is present.   /@since@/: ATK-1.11
    | RoleChart
    -- ^ The object is a graphical depiction of quantitative data. It may contain multiple subelements whose attributes and\/or description may be queried to obtain both the quantitative data and information about how the data is being presented. The LABELLED_BY relation is particularly important in interpreting objects of this type, as is the accessible-description property.  /@since@/: ATK-1.11
    | RoleCaption
    -- ^ The object contains descriptive information, usually textual, about another user interface element such as a table, chart, or image.  /@since@/: ATK-1.11
    | RoleDocumentFrame
    -- ^ The object is a visual frame or container which contains a view of document content. Document frames may occur within another Document instance, in which case the second document may be said to be embedded in the containing instance. HTML frames are often ROLE_DOCUMENT_FRAME. Either this object, or a singleton descendant, should implement the Document interface.  /@since@/: ATK-1.11
    | RoleHeading
    -- ^ The object serves as a heading for content which follows it in a document. The \'heading level\' of the heading, if availabe, may be obtained by querying the object\'s attributes.
    | RolePage
    -- ^ The object is a containing instance which encapsulates a page of information. /@aTKROLEPAGE@/ is used in documents and content which support a paginated navigation model.  /@since@/: ATK-1.11
    | RoleSection
    -- ^ The object is a containing instance of document content which constitutes a particular \'logical\' section of the document. The type of content within a section, and the nature of the section division itself, may be obtained by querying the object\'s attributes. Sections may be nested. /@since@/: ATK-1.11
    | RoleRedundantObject
    -- ^ The object is redundant with another object in the hierarchy, and is exposed for purely technical reasons.  Objects of this role should normally be ignored by clients. /@since@/: ATK-1.11
    | RoleForm
    -- ^ The object is a container for form controls, for instance as part of a
    -- web form or user-input form within a document.  This role is primarily a tag\/convenience for
    -- clients when navigating complex documents, it is not expected that ordinary GUI containers will
    -- always have ATK_ROLE_FORM. /@since@/: ATK-1.12.0
    | RoleLink
    -- ^ The object is a hypertext anchor, i.e. a \"link\" in a
    -- hypertext document.  Such objects are distinct from \'inline\'
    -- content which may also use the Hypertext\/Hyperlink interfaces
    -- to indicate the range\/location within a text object where
    -- an inline or embedded object lies.  /@since@/: ATK-1.12.1
    | RoleInputMethodWindow
    -- ^ The object is a window or similar viewport
    -- which is used to allow composition or input of a \'complex character\',
    -- in other words it is an \"input method window.\" /@since@/: ATK-1.12.1
    | RoleTableRow
    -- ^ A row in a table.  /@since@/: ATK-2.1.0
    | RoleTreeItem
    -- ^ An object that represents an element of a tree.  /@since@/: ATK-2.1.0
    | RoleDocumentSpreadsheet
    -- ^ A document frame which contains a spreadsheet.  /@since@/: ATK-2.1.0
    | RoleDocumentPresentation
    -- ^ A document frame which contains a presentation or slide content.  /@since@/: ATK-2.1.0
    | RoleDocumentText
    -- ^ A document frame which contains textual content, such as found in a word processing application.  /@since@/: ATK-2.1.0
    | RoleDocumentWeb
    -- ^ A document frame which contains HTML or other markup suitable for display in a web browser.  /@since@/: ATK-2.1.0
    | RoleDocumentEmail
    -- ^ A document frame which contains email content to be displayed or composed either in plain text or HTML.  /@since@/: ATK-2.1.0
    | RoleComment
    -- ^ An object found within a document and designed to present a comment, note, or other annotation. In some cases, this object might not be visible until activated.  /@since@/: ATK-2.1.0
    | RoleListBox
    -- ^ A non-collapsible list of choices the user can select from. /@since@/: ATK-2.1.0
    | RoleGrouping
    -- ^ A group of related widgets. This group typically has a label. /@since@/: ATK-2.1.0
    | RoleImageMap
    -- ^ An image map object. Usually a graphic with multiple hotspots, where each hotspot can be activated resulting in the loading of another document or section of a document. /@since@/: ATK-2.1.0
    | RoleNotification
    -- ^ A transitory object designed to present a message to the user, typically at the desktop level rather than inside a particular application.  /@since@/: ATK-2.1.0
    | RoleInfoBar
    -- ^ An object designed to present a message to the user within an existing window. /@since@/: ATK-2.1.0
    | RoleLevelBar
    -- ^ A bar that serves as a level indicator to, for instance, show the strength of a password or the state of a battery.  /@since@/: ATK-2.7.3
    | RoleTitleBar
    -- ^ A bar that serves as the title of a window or a
    -- dialog. /@since@/: ATK-2.12
    | RoleBlockQuote
    -- ^ An object which contains a text section
    -- that is quoted from another source. /@since@/: ATK-2.12
    | RoleAudio
    -- ^ An object which represents an audio element. /@since@/: ATK-2.12
    | RoleVideo
    -- ^ An object which represents a video element. /@since@/: ATK-2.12
    | RoleDefinition
    -- ^ A definition of a term or concept. /@since@/: ATK-2.12
    | RoleArticle
    -- ^ A section of a page that consists of a
    -- composition that forms an independent part of a document, page, or
    -- site. Examples: A blog entry, a news story, a forum post. /@since@/:
    -- ATK-2.12
    | RoleLandmark
    -- ^ A region of a web page intended as a
    -- navigational landmark. This is designed to allow Assistive
    -- Technologies to provide quick navigation among key regions within a
    -- document. /@since@/: ATK-2.12
    | RoleLog
    -- ^ A text widget or container holding log content, such
    -- as chat history and error logs. In this role there is a
    -- relationship between the arrival of new items in the log and the
    -- reading order. The log contains a meaningful sequence and new
    -- information is added only to the end of the log, not at arbitrary
    -- points. /@since@/: ATK-2.12
    | RoleMarquee
    -- ^ A container where non-essential information
    -- changes frequently. Common usages of marquee include stock tickers
    -- and ad banners. The primary difference between a marquee and a log
    -- is that logs usually have a meaningful order or sequence of
    -- important content changes. /@since@/: ATK-2.12
    | RoleMath
    -- ^ A text widget or container that holds a mathematical
    -- expression. /@since@/: ATK-2.12
    | RoleRating
    -- ^ A widget whose purpose is to display a rating,
    -- such as the number of stars associated with a song in a media
    -- player. Objects of this role should also implement
    -- AtkValue. /@since@/: ATK-2.12
    | RoleTimer
    -- ^ An object containing a numerical counter which
    -- indicates an amount of elapsed time from a start point, or the time
    -- remaining until an end point. /@since@/: ATK-2.12
    | RoleDescriptionList
    -- ^ An object that represents a list of
    -- term-value groups. A term-value group represents a individual
    -- description and consist of one or more names
    -- (ATK_ROLE_DESCRIPTION_TERM) followed by one or more values
    -- (ATK_ROLE_DESCRIPTION_VALUE). For each list, there should not be
    -- more than one group with the same term name. /@since@/: ATK-2.12
    | RoleDescriptionTerm
    -- ^ An object that represents a term or phrase
    -- with a corresponding definition. /@since@/: ATK-2.12
    | RoleDescriptionValue
    -- ^ An object that represents the
    -- description, definition or value of a term. /@since@/: ATK-2.12
    | RoleStatic
    -- ^ A generic non-container object whose purpose is to display a
    -- brief amount of information to the user and whose role is known by the
    -- implementor but lacks semantic value for the user. Examples in which
    -- ATK_ROLE_STATIC is appropriate include the message displayed in a message box
    -- and an image used as an alternative means to display text. ATK_ROLE_STATIC
    -- should not be applied to widgets which are traditionally interactive, objects
    -- which display a significant amount of content, or any object which has an
    -- accessible relation pointing to another object. Implementors should expose the
    -- displayed information through the accessible name of the object. If doing so seems
    -- inappropriate, it may indicate that a different role should be used. For
    -- labels which describe another widget, see ATK_ROLE_LABEL. For text views, see
    -- ATK_ROLE_TEXT. For generic containers, see ATK_ROLE_PANEL. For objects whose
    -- role is not known by the implementor, see ATK_ROLE_UNKNOWN. /@since@/: ATK-2.16.
    | RoleMathFraction
    -- ^ An object that represents a mathematical fraction.
    | RoleMathRoot
    -- ^ An object that represents a mathematical expression
    -- displayed with a radical. /@since@/: ATK-2.16.
    | RoleSubscript
    -- ^ An object that contains text that is displayed as a
    -- subscript. /@since@/: ATK-2.16.
    | RoleSuperscript
    -- ^ An object that contains text that is displayed as a
    -- superscript. /@since@/: ATK-2.16.
    | RoleFootnote
    -- ^ An object that contains the text of a footnote. /@since@/: ATK-2.26.
    | RoleLastDefined
    -- ^ not a valid role, used for finding end of the enumeration
    | AnotherRole Int
    -- ^ Catch-all for unknown values
    deriving (Int -> Role -> ShowS
[Role] -> ShowS
Role -> String
(Int -> Role -> ShowS)
-> (Role -> String) -> ([Role] -> ShowS) -> Show Role
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Role] -> ShowS
$cshowList :: [Role] -> ShowS
show :: Role -> String
$cshow :: Role -> String
showsPrec :: Int -> Role -> ShowS
$cshowsPrec :: Int -> Role -> ShowS
Show, Role -> Role -> Bool
(Role -> Role -> Bool) -> (Role -> Role -> Bool) -> Eq Role
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Role -> Role -> Bool
$c/= :: Role -> Role -> Bool
== :: Role -> Role -> Bool
$c== :: Role -> Role -> Bool
Eq)

instance P.Enum Role where
    fromEnum :: Role -> Int
fromEnum RoleInvalid = 0
    fromEnum RoleAcceleratorLabel = 1
    fromEnum RoleAlert = 2
    fromEnum RoleAnimation = 3
    fromEnum RoleArrow = 4
    fromEnum RoleCalendar = 5
    fromEnum RoleCanvas = 6
    fromEnum RoleCheckBox = 7
    fromEnum RoleCheckMenuItem = 8
    fromEnum RoleColorChooser = 9
    fromEnum RoleColumnHeader = 10
    fromEnum RoleComboBox = 11
    fromEnum RoleDateEditor = 12
    fromEnum RoleDesktopIcon = 13
    fromEnum RoleDesktopFrame = 14
    fromEnum RoleDial = 15
    fromEnum RoleDialog = 16
    fromEnum RoleDirectoryPane = 17
    fromEnum RoleDrawingArea = 18
    fromEnum RoleFileChooser = 19
    fromEnum RoleFiller = 20
    fromEnum RoleFontChooser = 21
    fromEnum RoleFrame = 22
    fromEnum RoleGlassPane = 23
    fromEnum RoleHtmlContainer = 24
    fromEnum RoleIcon = 25
    fromEnum RoleImage = 26
    fromEnum RoleInternalFrame = 27
    fromEnum RoleLabel = 28
    fromEnum RoleLayeredPane = 29
    fromEnum RoleList = 30
    fromEnum RoleListItem = 31
    fromEnum RoleMenu = 32
    fromEnum RoleMenuBar = 33
    fromEnum RoleMenuItem = 34
    fromEnum RoleOptionPane = 35
    fromEnum RolePageTab = 36
    fromEnum RolePageTabList = 37
    fromEnum RolePanel = 38
    fromEnum RolePasswordText = 39
    fromEnum RolePopupMenu = 40
    fromEnum RoleProgressBar = 41
    fromEnum RolePushButton = 42
    fromEnum RoleRadioButton = 43
    fromEnum RoleRadioMenuItem = 44
    fromEnum RoleRootPane = 45
    fromEnum RoleRowHeader = 46
    fromEnum RoleScrollBar = 47
    fromEnum RoleScrollPane = 48
    fromEnum RoleSeparator = 49
    fromEnum RoleSlider = 50
    fromEnum RoleSplitPane = 51
    fromEnum RoleSpinButton = 52
    fromEnum RoleStatusbar = 53
    fromEnum RoleTable = 54
    fromEnum RoleTableCell = 55
    fromEnum RoleTableColumnHeader = 56
    fromEnum RoleTableRowHeader = 57
    fromEnum RoleTearOffMenuItem = 58
    fromEnum RoleTerminal = 59
    fromEnum RoleText = 60
    fromEnum RoleToggleButton = 61
    fromEnum RoleToolBar = 62
    fromEnum RoleToolTip = 63
    fromEnum RoleTree = 64
    fromEnum RoleTreeTable = 65
    fromEnum RoleUnknown = 66
    fromEnum RoleViewport = 67
    fromEnum RoleWindow = 68
    fromEnum RoleHeader = 69
    fromEnum RoleFooter = 70
    fromEnum RoleParagraph = 71
    fromEnum RoleRuler = 72
    fromEnum RoleApplication = 73
    fromEnum RoleAutocomplete = 74
    fromEnum RoleEditBar = 75
    fromEnum RoleEmbedded = 76
    fromEnum RoleEntry = 77
    fromEnum RoleChart = 78
    fromEnum RoleCaption = 79
    fromEnum RoleDocumentFrame = 80
    fromEnum RoleHeading = 81
    fromEnum RolePage = 82
    fromEnum RoleSection = 83
    fromEnum RoleRedundantObject = 84
    fromEnum RoleForm = 85
    fromEnum RoleLink = 86
    fromEnum RoleInputMethodWindow = 87
    fromEnum RoleTableRow = 88
    fromEnum RoleTreeItem = 89
    fromEnum RoleDocumentSpreadsheet = 90
    fromEnum RoleDocumentPresentation = 91
    fromEnum RoleDocumentText = 92
    fromEnum RoleDocumentWeb = 93
    fromEnum RoleDocumentEmail = 94
    fromEnum RoleComment = 95
    fromEnum RoleListBox = 96
    fromEnum RoleGrouping = 97
    fromEnum RoleImageMap = 98
    fromEnum RoleNotification = 99
    fromEnum RoleInfoBar = 100
    fromEnum RoleLevelBar = 101
    fromEnum RoleTitleBar = 102
    fromEnum RoleBlockQuote = 103
    fromEnum RoleAudio = 104
    fromEnum RoleVideo = 105
    fromEnum RoleDefinition = 106
    fromEnum RoleArticle = 107
    fromEnum RoleLandmark = 108
    fromEnum RoleLog = 109
    fromEnum RoleMarquee = 110
    fromEnum RoleMath = 111
    fromEnum RoleRating = 112
    fromEnum RoleTimer = 113
    fromEnum RoleDescriptionList = 114
    fromEnum RoleDescriptionTerm = 115
    fromEnum RoleDescriptionValue = 116
    fromEnum RoleStatic = 117
    fromEnum RoleMathFraction = 118
    fromEnum RoleMathRoot = 119
    fromEnum RoleSubscript = 120
    fromEnum RoleSuperscript = 121
    fromEnum RoleFootnote = 122
    fromEnum RoleLastDefined = 123
    fromEnum (AnotherRole k :: Int
k) = Int
k

    toEnum :: Int -> Role
toEnum 0 = Role
RoleInvalid
    toEnum 1 = Role
RoleAcceleratorLabel
    toEnum 2 = Role
RoleAlert
    toEnum 3 = Role
RoleAnimation
    toEnum 4 = Role
RoleArrow
    toEnum 5 = Role
RoleCalendar
    toEnum 6 = Role
RoleCanvas
    toEnum 7 = Role
RoleCheckBox
    toEnum 8 = Role
RoleCheckMenuItem
    toEnum 9 = Role
RoleColorChooser
    toEnum 10 = Role
RoleColumnHeader
    toEnum 11 = Role
RoleComboBox
    toEnum 12 = Role
RoleDateEditor
    toEnum 13 = Role
RoleDesktopIcon
    toEnum 14 = Role
RoleDesktopFrame
    toEnum 15 = Role
RoleDial
    toEnum 16 = Role
RoleDialog
    toEnum 17 = Role
RoleDirectoryPane
    toEnum 18 = Role
RoleDrawingArea
    toEnum 19 = Role
RoleFileChooser
    toEnum 20 = Role
RoleFiller
    toEnum 21 = Role
RoleFontChooser
    toEnum 22 = Role
RoleFrame
    toEnum 23 = Role
RoleGlassPane
    toEnum 24 = Role
RoleHtmlContainer
    toEnum 25 = Role
RoleIcon
    toEnum 26 = Role
RoleImage
    toEnum 27 = Role
RoleInternalFrame
    toEnum 28 = Role
RoleLabel
    toEnum 29 = Role
RoleLayeredPane
    toEnum 30 = Role
RoleList
    toEnum 31 = Role
RoleListItem
    toEnum 32 = Role
RoleMenu
    toEnum 33 = Role
RoleMenuBar
    toEnum 34 = Role
RoleMenuItem
    toEnum 35 = Role
RoleOptionPane
    toEnum 36 = Role
RolePageTab
    toEnum 37 = Role
RolePageTabList
    toEnum 38 = Role
RolePanel
    toEnum 39 = Role
RolePasswordText
    toEnum 40 = Role
RolePopupMenu
    toEnum 41 = Role
RoleProgressBar
    toEnum 42 = Role
RolePushButton
    toEnum 43 = Role
RoleRadioButton
    toEnum 44 = Role
RoleRadioMenuItem
    toEnum 45 = Role
RoleRootPane
    toEnum 46 = Role
RoleRowHeader
    toEnum 47 = Role
RoleScrollBar
    toEnum 48 = Role
RoleScrollPane
    toEnum 49 = Role
RoleSeparator
    toEnum 50 = Role
RoleSlider
    toEnum 51 = Role
RoleSplitPane
    toEnum 52 = Role
RoleSpinButton
    toEnum 53 = Role
RoleStatusbar
    toEnum 54 = Role
RoleTable
    toEnum 55 = Role
RoleTableCell
    toEnum 56 = Role
RoleTableColumnHeader
    toEnum 57 = Role
RoleTableRowHeader
    toEnum 58 = Role
RoleTearOffMenuItem
    toEnum 59 = Role
RoleTerminal
    toEnum 60 = Role
RoleText
    toEnum 61 = Role
RoleToggleButton
    toEnum 62 = Role
RoleToolBar
    toEnum 63 = Role
RoleToolTip
    toEnum 64 = Role
RoleTree
    toEnum 65 = Role
RoleTreeTable
    toEnum 66 = Role
RoleUnknown
    toEnum 67 = Role
RoleViewport
    toEnum 68 = Role
RoleWindow
    toEnum 69 = Role
RoleHeader
    toEnum 70 = Role
RoleFooter
    toEnum 71 = Role
RoleParagraph
    toEnum 72 = Role
RoleRuler
    toEnum 73 = Role
RoleApplication
    toEnum 74 = Role
RoleAutocomplete
    toEnum 75 = Role
RoleEditBar
    toEnum 76 = Role
RoleEmbedded
    toEnum 77 = Role
RoleEntry
    toEnum 78 = Role
RoleChart
    toEnum 79 = Role
RoleCaption
    toEnum 80 = Role
RoleDocumentFrame
    toEnum 81 = Role
RoleHeading
    toEnum 82 = Role
RolePage
    toEnum 83 = Role
RoleSection
    toEnum 84 = Role
RoleRedundantObject
    toEnum 85 = Role
RoleForm
    toEnum 86 = Role
RoleLink
    toEnum 87 = Role
RoleInputMethodWindow
    toEnum 88 = Role
RoleTableRow
    toEnum 89 = Role
RoleTreeItem
    toEnum 90 = Role
RoleDocumentSpreadsheet
    toEnum 91 = Role
RoleDocumentPresentation
    toEnum 92 = Role
RoleDocumentText
    toEnum 93 = Role
RoleDocumentWeb
    toEnum 94 = Role
RoleDocumentEmail
    toEnum 95 = Role
RoleComment
    toEnum 96 = Role
RoleListBox
    toEnum 97 = Role
RoleGrouping
    toEnum 98 = Role
RoleImageMap
    toEnum 99 = Role
RoleNotification
    toEnum 100 = Role
RoleInfoBar
    toEnum 101 = Role
RoleLevelBar
    toEnum 102 = Role
RoleTitleBar
    toEnum 103 = Role
RoleBlockQuote
    toEnum 104 = Role
RoleAudio
    toEnum 105 = Role
RoleVideo
    toEnum 106 = Role
RoleDefinition
    toEnum 107 = Role
RoleArticle
    toEnum 108 = Role
RoleLandmark
    toEnum 109 = Role
RoleLog
    toEnum 110 = Role
RoleMarquee
    toEnum 111 = Role
RoleMath
    toEnum 112 = Role
RoleRating
    toEnum 113 = Role
RoleTimer
    toEnum 114 = Role
RoleDescriptionList
    toEnum 115 = Role
RoleDescriptionTerm
    toEnum 116 = Role
RoleDescriptionValue
    toEnum 117 = Role
RoleStatic
    toEnum 118 = Role
RoleMathFraction
    toEnum 119 = Role
RoleMathRoot
    toEnum 120 = Role
RoleSubscript
    toEnum 121 = Role
RoleSuperscript
    toEnum 122 = Role
RoleFootnote
    toEnum 123 = Role
RoleLastDefined
    toEnum k :: Int
k = Int -> Role
AnotherRole Int
k

instance P.Ord Role where
    compare :: Role -> Role -> Ordering
compare a :: Role
a b :: Role
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (Role -> Int
forall a. Enum a => a -> Int
P.fromEnum Role
a) (Role -> Int
forall a. Enum a => a -> Int
P.fromEnum Role
b)

foreign import ccall "atk_role_get_type" c_atk_role_get_type :: 
    IO GType

instance BoxedEnum Role where
    boxedEnumType :: Role -> IO GType
boxedEnumType _ = IO GType
c_atk_role_get_type

-- Enum RelationType
-- | Describes the type of the relation
data RelationType = 
      RelationTypeNull
    -- ^ Not used, represens \"no relationship\" or an error condition.
    | RelationTypeControlledBy
    -- ^ Indicates an object controlled by one or more target objects.
    | RelationTypeControllerFor
    -- ^ Indicates an object is an controller for one or more target objects.
    | RelationTypeLabelFor
    -- ^ Indicates an object is a label for one or more target objects.
    | RelationTypeLabelledBy
    -- ^ Indicates an object is labelled by one or more target objects.
    | RelationTypeMemberOf
    -- ^ Indicates an object is a member of a group of one or more target objects.
    | RelationTypeNodeChildOf
    -- ^ Indicates an object is a cell in a treetable which is displayed because a cell in the same column is expanded and identifies that cell.
    | RelationTypeFlowsTo
    -- ^ Indicates that the object has content that flows logically to another
    --  AtkObject in a sequential way, (for instance text-flow).
    | RelationTypeFlowsFrom
    -- ^ Indicates that the object has content that flows logically from
    --  another AtkObject in a sequential way, (for instance text-flow).
    | RelationTypeSubwindowOf
    -- ^ Indicates a subwindow attached to a component but otherwise has no connection in  the UI heirarchy to that component.
    | RelationTypeEmbeds
    -- ^ Indicates that the object visually embeds
    --  another object\'s content, i.e. this object\'s content flows around
    --  another\'s content.
    | RelationTypeEmbeddedBy
    -- ^ Reciprocal of 'GI.Atk.Enums.RelationTypeEmbeds', indicates that
    --  this object\'s content is visualy embedded in another object.
    | RelationTypePopupFor
    -- ^ Indicates that an object is a popup for another object.
    | RelationTypeParentWindowOf
    -- ^ Indicates that an object is a parent window of another object.
    | RelationTypeDescribedBy
    -- ^ Reciprocal of 'GI.Atk.Enums.RelationTypeDescriptionFor'. Indicates that one
    -- or more target objects provide descriptive information about this object. This relation
    -- type is most appropriate for information that is not essential as its presentation may
    -- be user-configurable and\/or limited to an on-demand mechanism such as an assistive
    -- technology command. For brief, essential information such as can be found in a widget\'s
    -- on-screen label, use 'GI.Atk.Enums.RelationTypeLabelledBy'. For an on-screen error message, use
    -- 'GI.Atk.Enums.RelationTypeErrorMessage'. For lengthy extended descriptive information contained in
    -- an on-screen object, consider using 'GI.Atk.Enums.RelationTypeDetails' as assistive technologies may
    -- provide a means for the user to navigate to objects containing detailed descriptions so
    -- that their content can be more closely reviewed.
    | RelationTypeDescriptionFor
    -- ^ Reciprocal of 'GI.Atk.Enums.RelationTypeDescribedBy'. Indicates that this
    -- object provides descriptive information about the target object(s). See also
    -- 'GI.Atk.Enums.RelationTypeDetailsFor' and 'GI.Atk.Enums.RelationTypeErrorFor'.
    | RelationTypeNodeParentOf
    -- ^ Indicates an object is a cell in a treetable and is expanded to display other cells in the same column.
    | RelationTypeDetails
    -- ^ Reciprocal of 'GI.Atk.Enums.RelationTypeDetailsFor'. Indicates that this object
    -- has a detailed or extended description, the contents of which can be found in the target
    -- object(s). This relation type is most appropriate for information that is sufficiently
    -- lengthy as to make navigation to the container of that information desirable. For less
    -- verbose information suitable for announcement only, see 'GI.Atk.Enums.RelationTypeDescribedBy'. If
    -- the detailed information describes an error condition, 'GI.Atk.Enums.RelationTypeErrorFor' should be
    -- used instead. /@since@/: ATK-2.26.
    | RelationTypeDetailsFor
    -- ^ Reciprocal of 'GI.Atk.Enums.RelationTypeDetails'. Indicates that this object
    -- provides a detailed or extended description about the target object(s). See also
    -- 'GI.Atk.Enums.RelationTypeDescriptionFor' and 'GI.Atk.Enums.RelationTypeErrorFor'. /@since@/: ATK-2.26.
    | RelationTypeErrorMessage
    -- ^ Reciprocal of 'GI.Atk.Enums.RelationTypeErrorFor'. Indicates that this object
    -- has one or more errors, the nature of which is described in the contents of the target
    -- object(s). Objects that have this relation type should also contain 'GI.Atk.Enums.StateTypeInvalidEntry'
    -- in their t'GI.Atk.Objects.StateSet.StateSet'. /@since@/: ATK-2.26.
    | RelationTypeErrorFor
    -- ^ Reciprocal of 'GI.Atk.Enums.RelationTypeErrorMessage'. Indicates that this object
    -- contains an error message describing an invalid condition in the target object(s). /@since@/:
    -- ATK_2.26.
    | RelationTypeLastDefined
    -- ^ Not used, this value indicates the end of the enumeration.
    | AnotherRelationType Int
    -- ^ Catch-all for unknown values
    deriving (Int -> RelationType -> ShowS
[RelationType] -> ShowS
RelationType -> String
(Int -> RelationType -> ShowS)
-> (RelationType -> String)
-> ([RelationType] -> ShowS)
-> Show RelationType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RelationType] -> ShowS
$cshowList :: [RelationType] -> ShowS
show :: RelationType -> String
$cshow :: RelationType -> String
showsPrec :: Int -> RelationType -> ShowS
$cshowsPrec :: Int -> RelationType -> ShowS
Show, RelationType -> RelationType -> Bool
(RelationType -> RelationType -> Bool)
-> (RelationType -> RelationType -> Bool) -> Eq RelationType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RelationType -> RelationType -> Bool
$c/= :: RelationType -> RelationType -> Bool
== :: RelationType -> RelationType -> Bool
$c== :: RelationType -> RelationType -> Bool
Eq)

instance P.Enum RelationType where
    fromEnum :: RelationType -> Int
fromEnum RelationTypeNull = 0
    fromEnum RelationTypeControlledBy = 1
    fromEnum RelationTypeControllerFor = 2
    fromEnum RelationTypeLabelFor = 3
    fromEnum RelationTypeLabelledBy = 4
    fromEnum RelationTypeMemberOf = 5
    fromEnum RelationTypeNodeChildOf = 6
    fromEnum RelationTypeFlowsTo = 7
    fromEnum RelationTypeFlowsFrom = 8
    fromEnum RelationTypeSubwindowOf = 9
    fromEnum RelationTypeEmbeds = 10
    fromEnum RelationTypeEmbeddedBy = 11
    fromEnum RelationTypePopupFor = 12
    fromEnum RelationTypeParentWindowOf = 13
    fromEnum RelationTypeDescribedBy = 14
    fromEnum RelationTypeDescriptionFor = 15
    fromEnum RelationTypeNodeParentOf = 16
    fromEnum RelationTypeDetails = 17
    fromEnum RelationTypeDetailsFor = 18
    fromEnum RelationTypeErrorMessage = 19
    fromEnum RelationTypeErrorFor = 20
    fromEnum RelationTypeLastDefined = 21
    fromEnum (AnotherRelationType k :: Int
k) = Int
k

    toEnum :: Int -> RelationType
toEnum 0 = RelationType
RelationTypeNull
    toEnum 1 = RelationType
RelationTypeControlledBy
    toEnum 2 = RelationType
RelationTypeControllerFor
    toEnum 3 = RelationType
RelationTypeLabelFor
    toEnum 4 = RelationType
RelationTypeLabelledBy
    toEnum 5 = RelationType
RelationTypeMemberOf
    toEnum 6 = RelationType
RelationTypeNodeChildOf
    toEnum 7 = RelationType
RelationTypeFlowsTo
    toEnum 8 = RelationType
RelationTypeFlowsFrom
    toEnum 9 = RelationType
RelationTypeSubwindowOf
    toEnum 10 = RelationType
RelationTypeEmbeds
    toEnum 11 = RelationType
RelationTypeEmbeddedBy
    toEnum 12 = RelationType
RelationTypePopupFor
    toEnum 13 = RelationType
RelationTypeParentWindowOf
    toEnum 14 = RelationType
RelationTypeDescribedBy
    toEnum 15 = RelationType
RelationTypeDescriptionFor
    toEnum 16 = RelationType
RelationTypeNodeParentOf
    toEnum 17 = RelationType
RelationTypeDetails
    toEnum 18 = RelationType
RelationTypeDetailsFor
    toEnum 19 = RelationType
RelationTypeErrorMessage
    toEnum 20 = RelationType
RelationTypeErrorFor
    toEnum 21 = RelationType
RelationTypeLastDefined
    toEnum k :: Int
k = Int -> RelationType
AnotherRelationType Int
k

instance P.Ord RelationType where
    compare :: RelationType -> RelationType -> Ordering
compare a :: RelationType
a b :: RelationType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (RelationType -> Int
forall a. Enum a => a -> Int
P.fromEnum RelationType
a) (RelationType -> Int
forall a. Enum a => a -> Int
P.fromEnum RelationType
b)

foreign import ccall "atk_relation_type_get_type" c_atk_relation_type_get_type :: 
    IO GType

instance BoxedEnum RelationType where
    boxedEnumType :: RelationType -> IO GType
boxedEnumType _ = IO GType
c_atk_relation_type_get_type

-- Enum Layer
-- | Describes the layer of a component
-- 
-- These enumerated \"layer values\" are used when determining which UI
-- rendering layer a component is drawn into, which can help in making
-- determinations of when components occlude one another.
data Layer = 
      LayerInvalid
    -- ^ The object does not have a layer
    | LayerBackground
    -- ^ This layer is reserved for the desktop background
    | LayerCanvas
    -- ^ This layer is used for Canvas components
    | LayerWidget
    -- ^ This layer is normally used for components
    | LayerMdi
    -- ^ This layer is used for layered components
    | LayerPopup
    -- ^ This layer is used for popup components, such as menus
    | LayerOverlay
    -- ^ This layer is reserved for future use.
    | LayerWindow
    -- ^ This layer is used for toplevel windows.
    | AnotherLayer Int
    -- ^ Catch-all for unknown values
    deriving (Int -> Layer -> ShowS
[Layer] -> ShowS
Layer -> String
(Int -> Layer -> ShowS)
-> (Layer -> String) -> ([Layer] -> ShowS) -> Show Layer
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Layer] -> ShowS
$cshowList :: [Layer] -> ShowS
show :: Layer -> String
$cshow :: Layer -> String
showsPrec :: Int -> Layer -> ShowS
$cshowsPrec :: Int -> Layer -> ShowS
Show, Layer -> Layer -> Bool
(Layer -> Layer -> Bool) -> (Layer -> Layer -> Bool) -> Eq Layer
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Layer -> Layer -> Bool
$c/= :: Layer -> Layer -> Bool
== :: Layer -> Layer -> Bool
$c== :: Layer -> Layer -> Bool
Eq)

instance P.Enum Layer where
    fromEnum :: Layer -> Int
fromEnum LayerInvalid = 0
    fromEnum LayerBackground = 1
    fromEnum LayerCanvas = 2
    fromEnum LayerWidget = 3
    fromEnum LayerMdi = 4
    fromEnum LayerPopup = 5
    fromEnum LayerOverlay = 6
    fromEnum LayerWindow = 7
    fromEnum (AnotherLayer k :: Int
k) = Int
k

    toEnum :: Int -> Layer
toEnum 0 = Layer
LayerInvalid
    toEnum 1 = Layer
LayerBackground
    toEnum 2 = Layer
LayerCanvas
    toEnum 3 = Layer
LayerWidget
    toEnum 4 = Layer
LayerMdi
    toEnum 5 = Layer
LayerPopup
    toEnum 6 = Layer
LayerOverlay
    toEnum 7 = Layer
LayerWindow
    toEnum k :: Int
k = Int -> Layer
AnotherLayer Int
k

instance P.Ord Layer where
    compare :: Layer -> Layer -> Ordering
compare a :: Layer
a b :: Layer
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (Layer -> Int
forall a. Enum a => a -> Int
P.fromEnum Layer
a) (Layer -> Int
forall a. Enum a => a -> Int
P.fromEnum Layer
b)

foreign import ccall "atk_layer_get_type" c_atk_layer_get_type :: 
    IO GType

instance BoxedEnum Layer where
    boxedEnumType :: Layer -> IO GType
boxedEnumType _ = IO GType
c_atk_layer_get_type

-- Enum KeyEventType
-- | Specifies the type of a keyboard evemt.
data KeyEventType = 
      KeyEventTypePress
    -- ^ specifies a key press event
    | KeyEventTypeRelease
    -- ^ specifies a key release event
    | KeyEventTypeLastDefined
    -- ^ Not a valid value; specifies end of enumeration
    | AnotherKeyEventType Int
    -- ^ Catch-all for unknown values
    deriving (Int -> KeyEventType -> ShowS
[KeyEventType] -> ShowS
KeyEventType -> String
(Int -> KeyEventType -> ShowS)
-> (KeyEventType -> String)
-> ([KeyEventType] -> ShowS)
-> Show KeyEventType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [KeyEventType] -> ShowS
$cshowList :: [KeyEventType] -> ShowS
show :: KeyEventType -> String
$cshow :: KeyEventType -> String
showsPrec :: Int -> KeyEventType -> ShowS
$cshowsPrec :: Int -> KeyEventType -> ShowS
Show, KeyEventType -> KeyEventType -> Bool
(KeyEventType -> KeyEventType -> Bool)
-> (KeyEventType -> KeyEventType -> Bool) -> Eq KeyEventType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: KeyEventType -> KeyEventType -> Bool
$c/= :: KeyEventType -> KeyEventType -> Bool
== :: KeyEventType -> KeyEventType -> Bool
$c== :: KeyEventType -> KeyEventType -> Bool
Eq)

instance P.Enum KeyEventType where
    fromEnum :: KeyEventType -> Int
fromEnum KeyEventTypePress = 0
    fromEnum KeyEventTypeRelease = 1
    fromEnum KeyEventTypeLastDefined = 2
    fromEnum (AnotherKeyEventType k :: Int
k) = Int
k

    toEnum :: Int -> KeyEventType
toEnum 0 = KeyEventType
KeyEventTypePress
    toEnum 1 = KeyEventType
KeyEventTypeRelease
    toEnum 2 = KeyEventType
KeyEventTypeLastDefined
    toEnum k :: Int
k = Int -> KeyEventType
AnotherKeyEventType Int
k

instance P.Ord KeyEventType where
    compare :: KeyEventType -> KeyEventType -> Ordering
compare a :: KeyEventType
a b :: KeyEventType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (KeyEventType -> Int
forall a. Enum a => a -> Int
P.fromEnum KeyEventType
a) (KeyEventType -> Int
forall a. Enum a => a -> Int
P.fromEnum KeyEventType
b)

foreign import ccall "atk_key_event_type_get_type" c_atk_key_event_type_get_type :: 
    IO GType

instance BoxedEnum KeyEventType where
    boxedEnumType :: KeyEventType -> IO GType
boxedEnumType _ = IO GType
c_atk_key_event_type_get_type

-- Enum CoordType
-- | Specifies how xy coordinates are to be interpreted. Used by functions such
-- as 'GI.Atk.Interfaces.Component.componentGetPosition' and 'GI.Atk.Interfaces.Text.textGetCharacterExtents'
data CoordType = 
      CoordTypeScreen
    -- ^ specifies xy coordinates relative to the screen
    | CoordTypeWindow
    -- ^ specifies xy coordinates relative to the widget\'s
    -- top-level window
    | CoordTypeParent
    -- ^ specifies xy coordinates relative to the widget\'s
    -- immediate parent. Since: 2.30
    | AnotherCoordType Int
    -- ^ Catch-all for unknown values
    deriving (Int -> CoordType -> ShowS
[CoordType] -> ShowS
CoordType -> String
(Int -> CoordType -> ShowS)
-> (CoordType -> String)
-> ([CoordType] -> ShowS)
-> Show CoordType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CoordType] -> ShowS
$cshowList :: [CoordType] -> ShowS
show :: CoordType -> String
$cshow :: CoordType -> String
showsPrec :: Int -> CoordType -> ShowS
$cshowsPrec :: Int -> CoordType -> ShowS
Show, CoordType -> CoordType -> Bool
(CoordType -> CoordType -> Bool)
-> (CoordType -> CoordType -> Bool) -> Eq CoordType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CoordType -> CoordType -> Bool
$c/= :: CoordType -> CoordType -> Bool
== :: CoordType -> CoordType -> Bool
$c== :: CoordType -> CoordType -> Bool
Eq)

instance P.Enum CoordType where
    fromEnum :: CoordType -> Int
fromEnum CoordTypeScreen = 0
    fromEnum CoordTypeWindow = 1
    fromEnum CoordTypeParent = 2
    fromEnum (AnotherCoordType k :: Int
k) = Int
k

    toEnum :: Int -> CoordType
toEnum 0 = CoordType
CoordTypeScreen
    toEnum 1 = CoordType
CoordTypeWindow
    toEnum 2 = CoordType
CoordTypeParent
    toEnum k :: Int
k = Int -> CoordType
AnotherCoordType Int
k

instance P.Ord CoordType where
    compare :: CoordType -> CoordType -> Ordering
compare a :: CoordType
a b :: CoordType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (CoordType -> Int
forall a. Enum a => a -> Int
P.fromEnum CoordType
a) (CoordType -> Int
forall a. Enum a => a -> Int
P.fromEnum CoordType
b)

foreign import ccall "atk_coord_type_get_type" c_atk_coord_type_get_type :: 
    IO GType

instance BoxedEnum CoordType where
    boxedEnumType :: CoordType -> IO GType
boxedEnumType _ = IO GType
c_atk_coord_type_get_type