-- | Copyright  : Will Thompson and Iñaki García Etxebarria
-- 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.Dazzle.Enums
    ( 

 -- * Enumerations


-- ** AnimationMode #enum:AnimationMode#

    AnimationMode(..)                       ,


-- ** DockRevealerTransitionType #enum:DockRevealerTransitionType#

    DockRevealerTransitionType(..)          ,


-- ** ShortcutMatch #enum:ShortcutMatch#

    ShortcutMatch(..)                       ,


-- ** ShortcutType #enum:ShortcutType#

    ShortcutType(..)                        ,


-- ** SliderPosition #enum:SliderPosition#

    SliderPosition(..)                      ,


-- ** ThreeGridColumn #enum:ThreeGridColumn#

    ThreeGridColumn(..)                     ,


-- ** TitlebarAnimation #enum:TitlebarAnimation#

    TitlebarAnimation(..)                   ,


-- ** TreeDropPosition #enum:TreeDropPosition#

    TreeDropPosition(..)                    ,




    ) where

import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P

import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R


-- Enum TreeDropPosition
-- | /No description available in the introspection data./
data TreeDropPosition = 
      TreeDropPositionInto
    -- ^ /No description available in the introspection data./
    | TreeDropPositionBefore
    -- ^ /No description available in the introspection data./
    | TreeDropPositionAfter
    -- ^ /No description available in the introspection data./
    | AnotherTreeDropPosition Int
    -- ^ Catch-all for unknown values
    deriving (Int -> TreeDropPosition -> ShowS
[TreeDropPosition] -> ShowS
TreeDropPosition -> String
(Int -> TreeDropPosition -> ShowS)
-> (TreeDropPosition -> String)
-> ([TreeDropPosition] -> ShowS)
-> Show TreeDropPosition
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TreeDropPosition -> ShowS
showsPrec :: Int -> TreeDropPosition -> ShowS
$cshow :: TreeDropPosition -> String
show :: TreeDropPosition -> String
$cshowList :: [TreeDropPosition] -> ShowS
showList :: [TreeDropPosition] -> ShowS
Show, TreeDropPosition -> TreeDropPosition -> Bool
(TreeDropPosition -> TreeDropPosition -> Bool)
-> (TreeDropPosition -> TreeDropPosition -> Bool)
-> Eq TreeDropPosition
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TreeDropPosition -> TreeDropPosition -> Bool
== :: TreeDropPosition -> TreeDropPosition -> Bool
$c/= :: TreeDropPosition -> TreeDropPosition -> Bool
/= :: TreeDropPosition -> TreeDropPosition -> Bool
Eq)

instance P.Enum TreeDropPosition where
    fromEnum :: TreeDropPosition -> Int
fromEnum TreeDropPosition
TreeDropPositionInto = Int
0
    fromEnum TreeDropPosition
TreeDropPositionBefore = Int
1
    fromEnum TreeDropPosition
TreeDropPositionAfter = Int
2
    fromEnum (AnotherTreeDropPosition Int
k) = Int
k

    toEnum :: Int -> TreeDropPosition
toEnum Int
0 = TreeDropPosition
TreeDropPositionInto
    toEnum Int
1 = TreeDropPosition
TreeDropPositionBefore
    toEnum Int
2 = TreeDropPosition
TreeDropPositionAfter
    toEnum Int
k = Int -> TreeDropPosition
AnotherTreeDropPosition Int
k

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

type instance O.ParentTypes TreeDropPosition = '[]
instance O.HasParentTypes TreeDropPosition

foreign import ccall "dzl_tree_drop_position_get_type" c_dzl_tree_drop_position_get_type :: 
    IO GType

instance B.Types.TypedObject TreeDropPosition where
    glibType :: IO GType
glibType = IO GType
c_dzl_tree_drop_position_get_type

instance B.Types.BoxedEnum TreeDropPosition

-- Enum TitlebarAnimation
-- | /No description available in the introspection data./
data TitlebarAnimation = 
      TitlebarAnimationHidden
    -- ^ /No description available in the introspection data./
    | TitlebarAnimationShowing
    -- ^ /No description available in the introspection data./
    | TitlebarAnimationShown
    -- ^ /No description available in the introspection data./
    | TitlebarAnimationHiding
    -- ^ /No description available in the introspection data./
    | AnotherTitlebarAnimation Int
    -- ^ Catch-all for unknown values
    deriving (Int -> TitlebarAnimation -> ShowS
[TitlebarAnimation] -> ShowS
TitlebarAnimation -> String
(Int -> TitlebarAnimation -> ShowS)
-> (TitlebarAnimation -> String)
-> ([TitlebarAnimation] -> ShowS)
-> Show TitlebarAnimation
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TitlebarAnimation -> ShowS
showsPrec :: Int -> TitlebarAnimation -> ShowS
$cshow :: TitlebarAnimation -> String
show :: TitlebarAnimation -> String
$cshowList :: [TitlebarAnimation] -> ShowS
showList :: [TitlebarAnimation] -> ShowS
Show, TitlebarAnimation -> TitlebarAnimation -> Bool
(TitlebarAnimation -> TitlebarAnimation -> Bool)
-> (TitlebarAnimation -> TitlebarAnimation -> Bool)
-> Eq TitlebarAnimation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TitlebarAnimation -> TitlebarAnimation -> Bool
== :: TitlebarAnimation -> TitlebarAnimation -> Bool
$c/= :: TitlebarAnimation -> TitlebarAnimation -> Bool
/= :: TitlebarAnimation -> TitlebarAnimation -> Bool
Eq)

instance P.Enum TitlebarAnimation where
    fromEnum :: TitlebarAnimation -> Int
fromEnum TitlebarAnimation
TitlebarAnimationHidden = Int
0
    fromEnum TitlebarAnimation
TitlebarAnimationShowing = Int
1
    fromEnum TitlebarAnimation
TitlebarAnimationShown = Int
2
    fromEnum TitlebarAnimation
TitlebarAnimationHiding = Int
3
    fromEnum (AnotherTitlebarAnimation Int
k) = Int
k

    toEnum :: Int -> TitlebarAnimation
toEnum Int
0 = TitlebarAnimation
TitlebarAnimationHidden
    toEnum Int
1 = TitlebarAnimation
TitlebarAnimationShowing
    toEnum Int
2 = TitlebarAnimation
TitlebarAnimationShown
    toEnum Int
3 = TitlebarAnimation
TitlebarAnimationHiding
    toEnum Int
k = Int -> TitlebarAnimation
AnotherTitlebarAnimation Int
k

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

type instance O.ParentTypes TitlebarAnimation = '[]
instance O.HasParentTypes TitlebarAnimation

foreign import ccall "dzl_titlebar_animation_get_type" c_dzl_titlebar_animation_get_type :: 
    IO GType

instance B.Types.TypedObject TitlebarAnimation where
    glibType :: IO GType
glibType = IO GType
c_dzl_titlebar_animation_get_type

instance B.Types.BoxedEnum TitlebarAnimation

-- Enum ThreeGridColumn
-- | /No description available in the introspection data./
data ThreeGridColumn = 
      ThreeGridColumnLeft
    -- ^ /No description available in the introspection data./
    | ThreeGridColumnCenter
    -- ^ /No description available in the introspection data./
    | ThreeGridColumnRight
    -- ^ /No description available in the introspection data./
    | AnotherThreeGridColumn Int
    -- ^ Catch-all for unknown values
    deriving (Int -> ThreeGridColumn -> ShowS
[ThreeGridColumn] -> ShowS
ThreeGridColumn -> String
(Int -> ThreeGridColumn -> ShowS)
-> (ThreeGridColumn -> String)
-> ([ThreeGridColumn] -> ShowS)
-> Show ThreeGridColumn
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ThreeGridColumn -> ShowS
showsPrec :: Int -> ThreeGridColumn -> ShowS
$cshow :: ThreeGridColumn -> String
show :: ThreeGridColumn -> String
$cshowList :: [ThreeGridColumn] -> ShowS
showList :: [ThreeGridColumn] -> ShowS
Show, ThreeGridColumn -> ThreeGridColumn -> Bool
(ThreeGridColumn -> ThreeGridColumn -> Bool)
-> (ThreeGridColumn -> ThreeGridColumn -> Bool)
-> Eq ThreeGridColumn
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ThreeGridColumn -> ThreeGridColumn -> Bool
== :: ThreeGridColumn -> ThreeGridColumn -> Bool
$c/= :: ThreeGridColumn -> ThreeGridColumn -> Bool
/= :: ThreeGridColumn -> ThreeGridColumn -> Bool
Eq)

instance P.Enum ThreeGridColumn where
    fromEnum :: ThreeGridColumn -> Int
fromEnum ThreeGridColumn
ThreeGridColumnLeft = Int
0
    fromEnum ThreeGridColumn
ThreeGridColumnCenter = Int
1
    fromEnum ThreeGridColumn
ThreeGridColumnRight = Int
2
    fromEnum (AnotherThreeGridColumn Int
k) = Int
k

    toEnum :: Int -> ThreeGridColumn
toEnum Int
0 = ThreeGridColumn
ThreeGridColumnLeft
    toEnum Int
1 = ThreeGridColumn
ThreeGridColumnCenter
    toEnum Int
2 = ThreeGridColumn
ThreeGridColumnRight
    toEnum Int
k = Int -> ThreeGridColumn
AnotherThreeGridColumn Int
k

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

type instance O.ParentTypes ThreeGridColumn = '[]
instance O.HasParentTypes ThreeGridColumn

foreign import ccall "dzl_three_grid_column_get_type" c_dzl_three_grid_column_get_type :: 
    IO GType

instance B.Types.TypedObject ThreeGridColumn where
    glibType :: IO GType
glibType = IO GType
c_dzl_three_grid_column_get_type

instance B.Types.BoxedEnum ThreeGridColumn

-- Enum SliderPosition
-- | /No description available in the introspection data./
data SliderPosition = 
      SliderPositionNone
    -- ^ /No description available in the introspection data./
    | SliderPositionTop
    -- ^ /No description available in the introspection data./
    | SliderPositionRight
    -- ^ /No description available in the introspection data./
    | SliderPositionBottom
    -- ^ /No description available in the introspection data./
    | SliderPositionLeft
    -- ^ /No description available in the introspection data./
    | AnotherSliderPosition Int
    -- ^ Catch-all for unknown values
    deriving (Int -> SliderPosition -> ShowS
[SliderPosition] -> ShowS
SliderPosition -> String
(Int -> SliderPosition -> ShowS)
-> (SliderPosition -> String)
-> ([SliderPosition] -> ShowS)
-> Show SliderPosition
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SliderPosition -> ShowS
showsPrec :: Int -> SliderPosition -> ShowS
$cshow :: SliderPosition -> String
show :: SliderPosition -> String
$cshowList :: [SliderPosition] -> ShowS
showList :: [SliderPosition] -> ShowS
Show, SliderPosition -> SliderPosition -> Bool
(SliderPosition -> SliderPosition -> Bool)
-> (SliderPosition -> SliderPosition -> Bool) -> Eq SliderPosition
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SliderPosition -> SliderPosition -> Bool
== :: SliderPosition -> SliderPosition -> Bool
$c/= :: SliderPosition -> SliderPosition -> Bool
/= :: SliderPosition -> SliderPosition -> Bool
Eq)

instance P.Enum SliderPosition where
    fromEnum :: SliderPosition -> Int
fromEnum SliderPosition
SliderPositionNone = Int
0
    fromEnum SliderPosition
SliderPositionTop = Int
1
    fromEnum SliderPosition
SliderPositionRight = Int
2
    fromEnum SliderPosition
SliderPositionBottom = Int
3
    fromEnum SliderPosition
SliderPositionLeft = Int
4
    fromEnum (AnotherSliderPosition Int
k) = Int
k

    toEnum :: Int -> SliderPosition
toEnum Int
0 = SliderPosition
SliderPositionNone
    toEnum Int
1 = SliderPosition
SliderPositionTop
    toEnum Int
2 = SliderPosition
SliderPositionRight
    toEnum Int
3 = SliderPosition
SliderPositionBottom
    toEnum Int
4 = SliderPosition
SliderPositionLeft
    toEnum Int
k = Int -> SliderPosition
AnotherSliderPosition Int
k

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

type instance O.ParentTypes SliderPosition = '[]
instance O.HasParentTypes SliderPosition

foreign import ccall "dzl_slider_position_get_type" c_dzl_slider_position_get_type :: 
    IO GType

instance B.Types.TypedObject SliderPosition where
    glibType :: IO GType
glibType = IO GType
c_dzl_slider_position_get_type

instance B.Types.BoxedEnum SliderPosition

-- Enum ShortcutType
-- | DzlShortcutType specifies the kind of shortcut that is being described.
-- More values may be added to this enumeration over time.
-- 
-- /Since: 3.20/
data ShortcutType = 
      ShortcutTypeAccelerator
    -- ^ The shortcut is a keyboard accelerator. The [ShortcutsShortcut:accelerator]("GI.Dazzle.Objects.ShortcutsShortcut#g:attr:accelerator")
    --   property will be used.
    | ShortcutTypeGesturePinch
    -- ^ The shortcut is a pinch gesture. GTK+ provides an icon and subtitle.
    | ShortcutTypeGestureStretch
    -- ^ The shortcut is a stretch gesture. GTK+ provides an icon and subtitle.
    | ShortcutTypeGestureRotateClockwise
    -- ^ The shortcut is a clockwise rotation gesture. GTK+ provides an icon and subtitle.
    | ShortcutTypeGestureRotateCounterclockwise
    -- ^ The shortcut is a counterclockwise rotation gesture. GTK+ provides an icon and subtitle.
    | ShortcutTypeGestureTwoFingerSwipeLeft
    -- ^ The shortcut is a two-finger swipe gesture. GTK+ provides an icon and subtitle.
    | ShortcutTypeGestureTwoFingerSwipeRight
    -- ^ The shortcut is a two-finger swipe gesture. GTK+ provides an icon and subtitle.
    | ShortcutTypeGesture
    -- ^ The shortcut is a gesture. The [ShortcutsShortcut:icon]("GI.Dazzle.Objects.ShortcutsShortcut#g:attr:icon") property will be
    --   used.
    | AnotherShortcutType Int
    -- ^ Catch-all for unknown values
    deriving (Int -> ShortcutType -> ShowS
[ShortcutType] -> ShowS
ShortcutType -> String
(Int -> ShortcutType -> ShowS)
-> (ShortcutType -> String)
-> ([ShortcutType] -> ShowS)
-> Show ShortcutType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ShortcutType -> ShowS
showsPrec :: Int -> ShortcutType -> ShowS
$cshow :: ShortcutType -> String
show :: ShortcutType -> String
$cshowList :: [ShortcutType] -> ShowS
showList :: [ShortcutType] -> ShowS
Show, ShortcutType -> ShortcutType -> Bool
(ShortcutType -> ShortcutType -> Bool)
-> (ShortcutType -> ShortcutType -> Bool) -> Eq ShortcutType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ShortcutType -> ShortcutType -> Bool
== :: ShortcutType -> ShortcutType -> Bool
$c/= :: ShortcutType -> ShortcutType -> Bool
/= :: ShortcutType -> ShortcutType -> Bool
Eq)

instance P.Enum ShortcutType where
    fromEnum :: ShortcutType -> Int
fromEnum ShortcutType
ShortcutTypeAccelerator = Int
0
    fromEnum ShortcutType
ShortcutTypeGesturePinch = Int
1
    fromEnum ShortcutType
ShortcutTypeGestureStretch = Int
2
    fromEnum ShortcutType
ShortcutTypeGestureRotateClockwise = Int
3
    fromEnum ShortcutType
ShortcutTypeGestureRotateCounterclockwise = Int
4
    fromEnum ShortcutType
ShortcutTypeGestureTwoFingerSwipeLeft = Int
5
    fromEnum ShortcutType
ShortcutTypeGestureTwoFingerSwipeRight = Int
6
    fromEnum ShortcutType
ShortcutTypeGesture = Int
7
    fromEnum (AnotherShortcutType Int
k) = Int
k

    toEnum :: Int -> ShortcutType
toEnum Int
0 = ShortcutType
ShortcutTypeAccelerator
    toEnum Int
1 = ShortcutType
ShortcutTypeGesturePinch
    toEnum Int
2 = ShortcutType
ShortcutTypeGestureStretch
    toEnum Int
3 = ShortcutType
ShortcutTypeGestureRotateClockwise
    toEnum Int
4 = ShortcutType
ShortcutTypeGestureRotateCounterclockwise
    toEnum Int
5 = ShortcutType
ShortcutTypeGestureTwoFingerSwipeLeft
    toEnum Int
6 = ShortcutType
ShortcutTypeGestureTwoFingerSwipeRight
    toEnum Int
7 = ShortcutType
ShortcutTypeGesture
    toEnum Int
k = Int -> ShortcutType
AnotherShortcutType Int
k

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

-- Enum ShortcutMatch
-- | /No description available in the introspection data./
data ShortcutMatch = 
      ShortcutMatchNone
    -- ^ /No description available in the introspection data./
    | ShortcutMatchEqual
    -- ^ /No description available in the introspection data./
    | ShortcutMatchPartial
    -- ^ /No description available in the introspection data./
    | AnotherShortcutMatch Int
    -- ^ Catch-all for unknown values
    deriving (Int -> ShortcutMatch -> ShowS
[ShortcutMatch] -> ShowS
ShortcutMatch -> String
(Int -> ShortcutMatch -> ShowS)
-> (ShortcutMatch -> String)
-> ([ShortcutMatch] -> ShowS)
-> Show ShortcutMatch
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ShortcutMatch -> ShowS
showsPrec :: Int -> ShortcutMatch -> ShowS
$cshow :: ShortcutMatch -> String
show :: ShortcutMatch -> String
$cshowList :: [ShortcutMatch] -> ShowS
showList :: [ShortcutMatch] -> ShowS
Show, ShortcutMatch -> ShortcutMatch -> Bool
(ShortcutMatch -> ShortcutMatch -> Bool)
-> (ShortcutMatch -> ShortcutMatch -> Bool) -> Eq ShortcutMatch
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ShortcutMatch -> ShortcutMatch -> Bool
== :: ShortcutMatch -> ShortcutMatch -> Bool
$c/= :: ShortcutMatch -> ShortcutMatch -> Bool
/= :: ShortcutMatch -> ShortcutMatch -> Bool
Eq)

instance P.Enum ShortcutMatch where
    fromEnum :: ShortcutMatch -> Int
fromEnum ShortcutMatch
ShortcutMatchNone = Int
0
    fromEnum ShortcutMatch
ShortcutMatchEqual = Int
1
    fromEnum ShortcutMatch
ShortcutMatchPartial = Int
2
    fromEnum (AnotherShortcutMatch Int
k) = Int
k

    toEnum :: Int -> ShortcutMatch
toEnum Int
0 = ShortcutMatch
ShortcutMatchNone
    toEnum Int
1 = ShortcutMatch
ShortcutMatchEqual
    toEnum Int
2 = ShortcutMatch
ShortcutMatchPartial
    toEnum Int
k = Int -> ShortcutMatch
AnotherShortcutMatch Int
k

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

type instance O.ParentTypes ShortcutMatch = '[]
instance O.HasParentTypes ShortcutMatch

foreign import ccall "dzl_shortcut_match_get_type" c_dzl_shortcut_match_get_type :: 
    IO GType

instance B.Types.TypedObject ShortcutMatch where
    glibType :: IO GType
glibType = IO GType
c_dzl_shortcut_match_get_type

instance B.Types.BoxedEnum ShortcutMatch

-- Enum DockRevealerTransitionType
-- | /No description available in the introspection data./
data DockRevealerTransitionType = 
      DockRevealerTransitionTypeNone
    -- ^ /No description available in the introspection data./
    | DockRevealerTransitionTypeSlideRight
    -- ^ /No description available in the introspection data./
    | DockRevealerTransitionTypeSlideLeft
    -- ^ /No description available in the introspection data./
    | DockRevealerTransitionTypeSlideUp
    -- ^ /No description available in the introspection data./
    | DockRevealerTransitionTypeSlideDown
    -- ^ /No description available in the introspection data./
    | AnotherDockRevealerTransitionType Int
    -- ^ Catch-all for unknown values
    deriving (Int -> DockRevealerTransitionType -> ShowS
[DockRevealerTransitionType] -> ShowS
DockRevealerTransitionType -> String
(Int -> DockRevealerTransitionType -> ShowS)
-> (DockRevealerTransitionType -> String)
-> ([DockRevealerTransitionType] -> ShowS)
-> Show DockRevealerTransitionType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DockRevealerTransitionType -> ShowS
showsPrec :: Int -> DockRevealerTransitionType -> ShowS
$cshow :: DockRevealerTransitionType -> String
show :: DockRevealerTransitionType -> String
$cshowList :: [DockRevealerTransitionType] -> ShowS
showList :: [DockRevealerTransitionType] -> ShowS
Show, DockRevealerTransitionType -> DockRevealerTransitionType -> Bool
(DockRevealerTransitionType -> DockRevealerTransitionType -> Bool)
-> (DockRevealerTransitionType
    -> DockRevealerTransitionType -> Bool)
-> Eq DockRevealerTransitionType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DockRevealerTransitionType -> DockRevealerTransitionType -> Bool
== :: DockRevealerTransitionType -> DockRevealerTransitionType -> Bool
$c/= :: DockRevealerTransitionType -> DockRevealerTransitionType -> Bool
/= :: DockRevealerTransitionType -> DockRevealerTransitionType -> Bool
Eq)

instance P.Enum DockRevealerTransitionType where
    fromEnum :: DockRevealerTransitionType -> Int
fromEnum DockRevealerTransitionType
DockRevealerTransitionTypeNone = Int
0
    fromEnum DockRevealerTransitionType
DockRevealerTransitionTypeSlideRight = Int
1
    fromEnum DockRevealerTransitionType
DockRevealerTransitionTypeSlideLeft = Int
2
    fromEnum DockRevealerTransitionType
DockRevealerTransitionTypeSlideUp = Int
3
    fromEnum DockRevealerTransitionType
DockRevealerTransitionTypeSlideDown = Int
4
    fromEnum (AnotherDockRevealerTransitionType Int
k) = Int
k

    toEnum :: Int -> DockRevealerTransitionType
toEnum Int
0 = DockRevealerTransitionType
DockRevealerTransitionTypeNone
    toEnum Int
1 = DockRevealerTransitionType
DockRevealerTransitionTypeSlideRight
    toEnum Int
2 = DockRevealerTransitionType
DockRevealerTransitionTypeSlideLeft
    toEnum Int
3 = DockRevealerTransitionType
DockRevealerTransitionTypeSlideUp
    toEnum Int
4 = DockRevealerTransitionType
DockRevealerTransitionTypeSlideDown
    toEnum Int
k = Int -> DockRevealerTransitionType
AnotherDockRevealerTransitionType Int
k

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

type instance O.ParentTypes DockRevealerTransitionType = '[]
instance O.HasParentTypes DockRevealerTransitionType

foreign import ccall "dzl_dock_revealer_transition_type_get_type" c_dzl_dock_revealer_transition_type_get_type :: 
    IO GType

instance B.Types.TypedObject DockRevealerTransitionType where
    glibType :: IO GType
glibType = IO GType
c_dzl_dock_revealer_transition_type_get_type

instance B.Types.BoxedEnum DockRevealerTransitionType

-- Enum AnimationMode
-- | /No description available in the introspection data./
data AnimationMode = 
      AnimationModeLinear
    -- ^ /No description available in the introspection data./
    | AnimationModeEaseInQuad
    -- ^ /No description available in the introspection data./
    | AnimationModeEaseInOutQuad
    -- ^ /No description available in the introspection data./
    | AnimationModeEaseOutQuad
    -- ^ /No description available in the introspection data./
    | AnimationModeEaseInCubic
    -- ^ /No description available in the introspection data./
    | AnimationModeEaseOutCubic
    -- ^ /No description available in the introspection data./
    | AnimationModeEaseInOutCubic
    -- ^ /No description available in the introspection data./
    | AnotherAnimationMode Int
    -- ^ Catch-all for unknown values
    deriving (Int -> AnimationMode -> ShowS
[AnimationMode] -> ShowS
AnimationMode -> String
(Int -> AnimationMode -> ShowS)
-> (AnimationMode -> String)
-> ([AnimationMode] -> ShowS)
-> Show AnimationMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AnimationMode -> ShowS
showsPrec :: Int -> AnimationMode -> ShowS
$cshow :: AnimationMode -> String
show :: AnimationMode -> String
$cshowList :: [AnimationMode] -> ShowS
showList :: [AnimationMode] -> ShowS
Show, AnimationMode -> AnimationMode -> Bool
(AnimationMode -> AnimationMode -> Bool)
-> (AnimationMode -> AnimationMode -> Bool) -> Eq AnimationMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnimationMode -> AnimationMode -> Bool
== :: AnimationMode -> AnimationMode -> Bool
$c/= :: AnimationMode -> AnimationMode -> Bool
/= :: AnimationMode -> AnimationMode -> Bool
Eq)

instance P.Enum AnimationMode where
    fromEnum :: AnimationMode -> Int
fromEnum AnimationMode
AnimationModeLinear = Int
0
    fromEnum AnimationMode
AnimationModeEaseInQuad = Int
1
    fromEnum AnimationMode
AnimationModeEaseInOutQuad = Int
3
    fromEnum AnimationMode
AnimationModeEaseOutQuad = Int
2
    fromEnum AnimationMode
AnimationModeEaseInCubic = Int
4
    fromEnum AnimationMode
AnimationModeEaseOutCubic = Int
5
    fromEnum AnimationMode
AnimationModeEaseInOutCubic = Int
6
    fromEnum (AnotherAnimationMode Int
k) = Int
k

    toEnum :: Int -> AnimationMode
toEnum Int
0 = AnimationMode
AnimationModeLinear
    toEnum Int
1 = AnimationMode
AnimationModeEaseInQuad
    toEnum Int
3 = AnimationMode
AnimationModeEaseInOutQuad
    toEnum Int
2 = AnimationMode
AnimationModeEaseOutQuad
    toEnum Int
4 = AnimationMode
AnimationModeEaseInCubic
    toEnum Int
5 = AnimationMode
AnimationModeEaseOutCubic
    toEnum Int
6 = AnimationMode
AnimationModeEaseInOutCubic
    toEnum Int
k = Int -> AnimationMode
AnotherAnimationMode Int
k

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

type instance O.ParentTypes AnimationMode = '[]
instance O.HasParentTypes AnimationMode

foreign import ccall "dzl_animation_mode_get_type" c_dzl_animation_mode_get_type :: 
    IO GType

instance B.Types.TypedObject AnimationMode where
    glibType :: IO GType
glibType = IO GType
c_dzl_animation_mode_get_type

instance B.Types.BoxedEnum AnimationMode