#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Flags
(
AnchorHints(..) ,
AxisFlags(..) ,
DragAction(..) ,
EventMask(..) ,
FrameClockPhase(..) ,
ModifierType(..) ,
PaintableFlags(..) ,
SeatCapabilities(..) ,
SurfaceHints(..) ,
SurfaceState(..) ,
WMDecoration(..) ,
WMFunction(..) ,
) 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
data WMFunction =
WMFunctionAll
| WMFunctionResize
| WMFunctionMove
| WMFunctionMinimize
| WMFunctionMaximize
| WMFunctionClose
| AnotherWMFunction Int
deriving (Int -> WMFunction -> ShowS
[WMFunction] -> ShowS
WMFunction -> String
(Int -> WMFunction -> ShowS)
-> (WMFunction -> String)
-> ([WMFunction] -> ShowS)
-> Show WMFunction
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WMFunction] -> ShowS
$cshowList :: [WMFunction] -> ShowS
show :: WMFunction -> String
$cshow :: WMFunction -> String
showsPrec :: Int -> WMFunction -> ShowS
$cshowsPrec :: Int -> WMFunction -> ShowS
Show, WMFunction -> WMFunction -> Bool
(WMFunction -> WMFunction -> Bool)
-> (WMFunction -> WMFunction -> Bool) -> Eq WMFunction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WMFunction -> WMFunction -> Bool
$c/= :: WMFunction -> WMFunction -> Bool
== :: WMFunction -> WMFunction -> Bool
$c== :: WMFunction -> WMFunction -> Bool
Eq)
instance P.Enum WMFunction where
fromEnum :: WMFunction -> Int
fromEnum WMFunctionAll = 1
fromEnum WMFunctionResize = 2
fromEnum WMFunctionMove = 4
fromEnum WMFunctionMinimize = 8
fromEnum WMFunctionMaximize = 16
fromEnum WMFunctionClose = 32
fromEnum (AnotherWMFunction k :: Int
k) = Int
k
toEnum :: Int -> WMFunction
toEnum 1 = WMFunction
WMFunctionAll
toEnum 2 = WMFunction
WMFunctionResize
toEnum 4 = WMFunction
WMFunctionMove
toEnum 8 = WMFunction
WMFunctionMinimize
toEnum 16 = WMFunction
WMFunctionMaximize
toEnum 32 = WMFunction
WMFunctionClose
toEnum k :: Int
k = Int -> WMFunction
AnotherWMFunction Int
k
instance P.Ord WMFunction where
compare :: WMFunction -> WMFunction -> Ordering
compare a :: WMFunction
a b :: WMFunction
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (WMFunction -> Int
forall a. Enum a => a -> Int
P.fromEnum WMFunction
a) (WMFunction -> Int
forall a. Enum a => a -> Int
P.fromEnum WMFunction
b)
foreign import ccall "gdk_wm_function_get_type" c_gdk_wm_function_get_type ::
IO GType
instance BoxedFlags WMFunction where
boxedFlagsType :: Proxy WMFunction -> IO GType
boxedFlagsType _ = IO GType
c_gdk_wm_function_get_type
instance IsGFlag WMFunction
data WMDecoration =
WMDecorationAll
| WMDecorationBorder
| WMDecorationResizeh
| WMDecorationTitle
|
| WMDecorationMinimize
| WMDecorationMaximize
| AnotherWMDecoration Int
deriving (Int -> WMDecoration -> ShowS
[WMDecoration] -> ShowS
WMDecoration -> String
(Int -> WMDecoration -> ShowS)
-> (WMDecoration -> String)
-> ([WMDecoration] -> ShowS)
-> Show WMDecoration
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WMDecoration] -> ShowS
$cshowList :: [WMDecoration] -> ShowS
show :: WMDecoration -> String
$cshow :: WMDecoration -> String
showsPrec :: Int -> WMDecoration -> ShowS
$cshowsPrec :: Int -> WMDecoration -> ShowS
Show, WMDecoration -> WMDecoration -> Bool
(WMDecoration -> WMDecoration -> Bool)
-> (WMDecoration -> WMDecoration -> Bool) -> Eq WMDecoration
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WMDecoration -> WMDecoration -> Bool
$c/= :: WMDecoration -> WMDecoration -> Bool
== :: WMDecoration -> WMDecoration -> Bool
$c== :: WMDecoration -> WMDecoration -> Bool
Eq)
instance P.Enum WMDecoration where
fromEnum :: WMDecoration -> Int
fromEnum WMDecorationAll = 1
fromEnum WMDecorationBorder = 2
fromEnum WMDecorationResizeh = 4
fromEnum WMDecorationTitle = 8
fromEnum WMDecorationMenu = 16
fromEnum WMDecorationMinimize = 32
fromEnum WMDecorationMaximize = 64
fromEnum (AnotherWMDecoration k :: Int
k) = Int
k
toEnum :: Int -> WMDecoration
toEnum 1 = WMDecoration
WMDecorationAll
toEnum 2 = WMDecoration
WMDecorationBorder
toEnum 4 = WMDecoration
WMDecorationResizeh
toEnum 8 = WMDecoration
WMDecorationTitle
toEnum 16 = WMDecoration
WMDecorationMenu
toEnum 32 = WMDecoration
WMDecorationMinimize
toEnum 64 = WMDecoration
WMDecorationMaximize
toEnum k :: Int
k = Int -> WMDecoration
AnotherWMDecoration Int
k
instance P.Ord WMDecoration where
compare :: WMDecoration -> WMDecoration -> Ordering
compare a :: WMDecoration
a b :: WMDecoration
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (WMDecoration -> Int
forall a. Enum a => a -> Int
P.fromEnum WMDecoration
a) (WMDecoration -> Int
forall a. Enum a => a -> Int
P.fromEnum WMDecoration
b)
foreign import ccall "gdk_wm_decoration_get_type" c_gdk_wm_decoration_get_type ::
IO GType
instance BoxedFlags WMDecoration where
boxedFlagsType :: Proxy WMDecoration -> IO GType
boxedFlagsType _ = IO GType
c_gdk_wm_decoration_get_type
instance IsGFlag WMDecoration
data SurfaceState =
SurfaceStateWithdrawn
| SurfaceStateIconified
| SurfaceStateMaximized
| SurfaceStateSticky
| SurfaceStateFullscreen
| SurfaceStateAbove
| SurfaceStateBelow
| SurfaceStateFocused
| SurfaceStateTiled
| SurfaceStateTopTiled
| SurfaceStateTopResizable
| SurfaceStateRightTiled
| SurfaceStateRightResizable
| SurfaceStateBottomTiled
| SurfaceStateBottomResizable
| SurfaceStateLeftTiled
| SurfaceStateLeftResizable
| AnotherSurfaceState Int
deriving (Int -> SurfaceState -> ShowS
[SurfaceState] -> ShowS
SurfaceState -> String
(Int -> SurfaceState -> ShowS)
-> (SurfaceState -> String)
-> ([SurfaceState] -> ShowS)
-> Show SurfaceState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SurfaceState] -> ShowS
$cshowList :: [SurfaceState] -> ShowS
show :: SurfaceState -> String
$cshow :: SurfaceState -> String
showsPrec :: Int -> SurfaceState -> ShowS
$cshowsPrec :: Int -> SurfaceState -> ShowS
Show, SurfaceState -> SurfaceState -> Bool
(SurfaceState -> SurfaceState -> Bool)
-> (SurfaceState -> SurfaceState -> Bool) -> Eq SurfaceState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SurfaceState -> SurfaceState -> Bool
$c/= :: SurfaceState -> SurfaceState -> Bool
== :: SurfaceState -> SurfaceState -> Bool
$c== :: SurfaceState -> SurfaceState -> Bool
Eq)
instance P.Enum SurfaceState where
fromEnum :: SurfaceState -> Int
fromEnum SurfaceStateWithdrawn = 1
fromEnum SurfaceStateIconified = 2
fromEnum SurfaceStateMaximized = 4
fromEnum SurfaceStateSticky = 8
fromEnum SurfaceStateFullscreen = 16
fromEnum SurfaceStateAbove = 32
fromEnum SurfaceStateBelow = 64
fromEnum SurfaceStateFocused = 128
fromEnum SurfaceStateTiled = 256
fromEnum SurfaceStateTopTiled = 512
fromEnum SurfaceStateTopResizable = 1024
fromEnum SurfaceStateRightTiled = 2048
fromEnum SurfaceStateRightResizable = 4096
fromEnum SurfaceStateBottomTiled = 8192
fromEnum SurfaceStateBottomResizable = 16384
fromEnum SurfaceStateLeftTiled = 32768
fromEnum SurfaceStateLeftResizable = 65536
fromEnum (AnotherSurfaceState k :: Int
k) = Int
k
toEnum :: Int -> SurfaceState
toEnum 1 = SurfaceState
SurfaceStateWithdrawn
toEnum 2 = SurfaceState
SurfaceStateIconified
toEnum 4 = SurfaceState
SurfaceStateMaximized
toEnum 8 = SurfaceState
SurfaceStateSticky
toEnum 16 = SurfaceState
SurfaceStateFullscreen
toEnum 32 = SurfaceState
SurfaceStateAbove
toEnum 64 = SurfaceState
SurfaceStateBelow
toEnum 128 = SurfaceState
SurfaceStateFocused
toEnum 256 = SurfaceState
SurfaceStateTiled
toEnum 512 = SurfaceState
SurfaceStateTopTiled
toEnum 1024 = SurfaceState
SurfaceStateTopResizable
toEnum 2048 = SurfaceState
SurfaceStateRightTiled
toEnum 4096 = SurfaceState
SurfaceStateRightResizable
toEnum 8192 = SurfaceState
SurfaceStateBottomTiled
toEnum 16384 = SurfaceState
SurfaceStateBottomResizable
toEnum 32768 = SurfaceState
SurfaceStateLeftTiled
toEnum 65536 = SurfaceState
SurfaceStateLeftResizable
toEnum k :: Int
k = Int -> SurfaceState
AnotherSurfaceState Int
k
instance P.Ord SurfaceState where
compare :: SurfaceState -> SurfaceState -> Ordering
compare a :: SurfaceState
a b :: SurfaceState
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (SurfaceState -> Int
forall a. Enum a => a -> Int
P.fromEnum SurfaceState
a) (SurfaceState -> Int
forall a. Enum a => a -> Int
P.fromEnum SurfaceState
b)
foreign import ccall "gdk_surface_state_get_type" c_gdk_surface_state_get_type ::
IO GType
instance BoxedFlags SurfaceState where
boxedFlagsType :: Proxy SurfaceState -> IO GType
boxedFlagsType _ = IO GType
c_gdk_surface_state_get_type
instance IsGFlag SurfaceState
data SurfaceHints =
SurfaceHintsPos
| SurfaceHintsMinSize
| SurfaceHintsMaxSize
| SurfaceHintsBaseSize
| SurfaceHintsAspect
| SurfaceHintsResizeInc
| SurfaceHintsWinGravity
| SurfaceHintsUserPos
| SurfaceHintsUserSize
| AnotherSurfaceHints Int
deriving (Int -> SurfaceHints -> ShowS
[SurfaceHints] -> ShowS
SurfaceHints -> String
(Int -> SurfaceHints -> ShowS)
-> (SurfaceHints -> String)
-> ([SurfaceHints] -> ShowS)
-> Show SurfaceHints
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SurfaceHints] -> ShowS
$cshowList :: [SurfaceHints] -> ShowS
show :: SurfaceHints -> String
$cshow :: SurfaceHints -> String
showsPrec :: Int -> SurfaceHints -> ShowS
$cshowsPrec :: Int -> SurfaceHints -> ShowS
Show, SurfaceHints -> SurfaceHints -> Bool
(SurfaceHints -> SurfaceHints -> Bool)
-> (SurfaceHints -> SurfaceHints -> Bool) -> Eq SurfaceHints
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SurfaceHints -> SurfaceHints -> Bool
$c/= :: SurfaceHints -> SurfaceHints -> Bool
== :: SurfaceHints -> SurfaceHints -> Bool
$c== :: SurfaceHints -> SurfaceHints -> Bool
Eq)
instance P.Enum SurfaceHints where
fromEnum :: SurfaceHints -> Int
fromEnum SurfaceHintsPos = 1
fromEnum SurfaceHintsMinSize = 2
fromEnum SurfaceHintsMaxSize = 4
fromEnum SurfaceHintsBaseSize = 8
fromEnum SurfaceHintsAspect = 16
fromEnum SurfaceHintsResizeInc = 32
fromEnum SurfaceHintsWinGravity = 64
fromEnum SurfaceHintsUserPos = 128
fromEnum SurfaceHintsUserSize = 256
fromEnum (AnotherSurfaceHints k :: Int
k) = Int
k
toEnum :: Int -> SurfaceHints
toEnum 1 = SurfaceHints
SurfaceHintsPos
toEnum 2 = SurfaceHints
SurfaceHintsMinSize
toEnum 4 = SurfaceHints
SurfaceHintsMaxSize
toEnum 8 = SurfaceHints
SurfaceHintsBaseSize
toEnum 16 = SurfaceHints
SurfaceHintsAspect
toEnum 32 = SurfaceHints
SurfaceHintsResizeInc
toEnum 64 = SurfaceHints
SurfaceHintsWinGravity
toEnum 128 = SurfaceHints
SurfaceHintsUserPos
toEnum 256 = SurfaceHints
SurfaceHintsUserSize
toEnum k :: Int
k = Int -> SurfaceHints
AnotherSurfaceHints Int
k
instance P.Ord SurfaceHints where
compare :: SurfaceHints -> SurfaceHints -> Ordering
compare a :: SurfaceHints
a b :: SurfaceHints
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (SurfaceHints -> Int
forall a. Enum a => a -> Int
P.fromEnum SurfaceHints
a) (SurfaceHints -> Int
forall a. Enum a => a -> Int
P.fromEnum SurfaceHints
b)
foreign import ccall "gdk_surface_hints_get_type" c_gdk_surface_hints_get_type ::
IO GType
instance BoxedFlags SurfaceHints where
boxedFlagsType :: Proxy SurfaceHints -> IO GType
boxedFlagsType _ = IO GType
c_gdk_surface_hints_get_type
instance IsGFlag SurfaceHints
data SeatCapabilities =
SeatCapabilitiesNone
| SeatCapabilitiesPointer
| SeatCapabilitiesTouch
| SeatCapabilitiesTabletStylus
| SeatCapabilitiesKeyboard
| SeatCapabilitiesTabletPad
| SeatCapabilitiesAllPointing
| SeatCapabilitiesAll
| AnotherSeatCapabilities Int
deriving (Int -> SeatCapabilities -> ShowS
[SeatCapabilities] -> ShowS
SeatCapabilities -> String
(Int -> SeatCapabilities -> ShowS)
-> (SeatCapabilities -> String)
-> ([SeatCapabilities] -> ShowS)
-> Show SeatCapabilities
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SeatCapabilities] -> ShowS
$cshowList :: [SeatCapabilities] -> ShowS
show :: SeatCapabilities -> String
$cshow :: SeatCapabilities -> String
showsPrec :: Int -> SeatCapabilities -> ShowS
$cshowsPrec :: Int -> SeatCapabilities -> ShowS
Show, SeatCapabilities -> SeatCapabilities -> Bool
(SeatCapabilities -> SeatCapabilities -> Bool)
-> (SeatCapabilities -> SeatCapabilities -> Bool)
-> Eq SeatCapabilities
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SeatCapabilities -> SeatCapabilities -> Bool
$c/= :: SeatCapabilities -> SeatCapabilities -> Bool
== :: SeatCapabilities -> SeatCapabilities -> Bool
$c== :: SeatCapabilities -> SeatCapabilities -> Bool
Eq)
instance P.Enum SeatCapabilities where
fromEnum :: SeatCapabilities -> Int
fromEnum SeatCapabilitiesNone = 0
fromEnum SeatCapabilitiesPointer = 1
fromEnum SeatCapabilitiesTouch = 2
fromEnum SeatCapabilitiesTabletStylus = 4
fromEnum SeatCapabilitiesKeyboard = 8
fromEnum SeatCapabilitiesTabletPad = 16
fromEnum SeatCapabilitiesAllPointing = 7
fromEnum SeatCapabilitiesAll = 15
fromEnum (AnotherSeatCapabilities k :: Int
k) = Int
k
toEnum :: Int -> SeatCapabilities
toEnum 0 = SeatCapabilities
SeatCapabilitiesNone
toEnum 1 = SeatCapabilities
SeatCapabilitiesPointer
toEnum 2 = SeatCapabilities
SeatCapabilitiesTouch
toEnum 4 = SeatCapabilities
SeatCapabilitiesTabletStylus
toEnum 8 = SeatCapabilities
SeatCapabilitiesKeyboard
toEnum 16 = SeatCapabilities
SeatCapabilitiesTabletPad
toEnum 7 = SeatCapabilities
SeatCapabilitiesAllPointing
toEnum 15 = SeatCapabilities
SeatCapabilitiesAll
toEnum k :: Int
k = Int -> SeatCapabilities
AnotherSeatCapabilities Int
k
instance P.Ord SeatCapabilities where
compare :: SeatCapabilities -> SeatCapabilities -> Ordering
compare a :: SeatCapabilities
a b :: SeatCapabilities
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (SeatCapabilities -> Int
forall a. Enum a => a -> Int
P.fromEnum SeatCapabilities
a) (SeatCapabilities -> Int
forall a. Enum a => a -> Int
P.fromEnum SeatCapabilities
b)
foreign import ccall "gdk_seat_capabilities_get_type" c_gdk_seat_capabilities_get_type ::
IO GType
instance BoxedFlags SeatCapabilities where
boxedFlagsType :: Proxy SeatCapabilities -> IO GType
boxedFlagsType _ = IO GType
c_gdk_seat_capabilities_get_type
instance IsGFlag SeatCapabilities
data PaintableFlags =
PaintableFlagsSize
| PaintableFlagsContents
| AnotherPaintableFlags Int
deriving (Int -> PaintableFlags -> ShowS
[PaintableFlags] -> ShowS
PaintableFlags -> String
(Int -> PaintableFlags -> ShowS)
-> (PaintableFlags -> String)
-> ([PaintableFlags] -> ShowS)
-> Show PaintableFlags
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PaintableFlags] -> ShowS
$cshowList :: [PaintableFlags] -> ShowS
show :: PaintableFlags -> String
$cshow :: PaintableFlags -> String
showsPrec :: Int -> PaintableFlags -> ShowS
$cshowsPrec :: Int -> PaintableFlags -> ShowS
Show, PaintableFlags -> PaintableFlags -> Bool
(PaintableFlags -> PaintableFlags -> Bool)
-> (PaintableFlags -> PaintableFlags -> Bool) -> Eq PaintableFlags
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PaintableFlags -> PaintableFlags -> Bool
$c/= :: PaintableFlags -> PaintableFlags -> Bool
== :: PaintableFlags -> PaintableFlags -> Bool
$c== :: PaintableFlags -> PaintableFlags -> Bool
Eq)
instance P.Enum PaintableFlags where
fromEnum :: PaintableFlags -> Int
fromEnum PaintableFlagsSize = 1
fromEnum PaintableFlagsContents = 2
fromEnum (AnotherPaintableFlags k :: Int
k) = Int
k
toEnum :: Int -> PaintableFlags
toEnum 1 = PaintableFlags
PaintableFlagsSize
toEnum 2 = PaintableFlags
PaintableFlagsContents
toEnum k :: Int
k = Int -> PaintableFlags
AnotherPaintableFlags Int
k
instance P.Ord PaintableFlags where
compare :: PaintableFlags -> PaintableFlags -> Ordering
compare a :: PaintableFlags
a b :: PaintableFlags
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (PaintableFlags -> Int
forall a. Enum a => a -> Int
P.fromEnum PaintableFlags
a) (PaintableFlags -> Int
forall a. Enum a => a -> Int
P.fromEnum PaintableFlags
b)
foreign import ccall "gdk_paintable_flags_get_type" c_gdk_paintable_flags_get_type ::
IO GType
instance BoxedFlags PaintableFlags where
boxedFlagsType :: Proxy PaintableFlags -> IO GType
boxedFlagsType _ = IO GType
c_gdk_paintable_flags_get_type
instance IsGFlag PaintableFlags
data ModifierType =
ModifierTypeShiftMask
| ModifierTypeLockMask
| ModifierTypeControlMask
| ModifierTypeMod1Mask
| ModifierTypeMod2Mask
| ModifierTypeMod3Mask
| ModifierTypeMod4Mask
| ModifierTypeMod5Mask
| ModifierTypeButton1Mask
| ModifierTypeButton2Mask
| ModifierTypeButton3Mask
| ModifierTypeButton4Mask
| ModifierTypeButton5Mask
| ModifierTypeModifierReserved13Mask
| ModifierTypeModifierReserved14Mask
| ModifierTypeModifierReserved15Mask
| ModifierTypeModifierReserved16Mask
| ModifierTypeModifierReserved17Mask
| ModifierTypeModifierReserved18Mask
| ModifierTypeModifierReserved19Mask
| ModifierTypeModifierReserved20Mask
| ModifierTypeModifierReserved21Mask
| ModifierTypeModifierReserved22Mask
| ModifierTypeModifierReserved23Mask
| ModifierTypeModifierReserved24Mask
| ModifierTypeModifierReserved25Mask
| ModifierTypeSuperMask
| ModifierTypeHyperMask
| ModifierTypeMetaMask
| ModifierTypeModifierReserved29Mask
| ModifierTypeReleaseMask
| ModifierTypeModifierMask
| AnotherModifierType Int
deriving (Int -> ModifierType -> ShowS
[ModifierType] -> ShowS
ModifierType -> String
(Int -> ModifierType -> ShowS)
-> (ModifierType -> String)
-> ([ModifierType] -> ShowS)
-> Show ModifierType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifierType] -> ShowS
$cshowList :: [ModifierType] -> ShowS
show :: ModifierType -> String
$cshow :: ModifierType -> String
showsPrec :: Int -> ModifierType -> ShowS
$cshowsPrec :: Int -> ModifierType -> ShowS
Show, ModifierType -> ModifierType -> Bool
(ModifierType -> ModifierType -> Bool)
-> (ModifierType -> ModifierType -> Bool) -> Eq ModifierType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifierType -> ModifierType -> Bool
$c/= :: ModifierType -> ModifierType -> Bool
== :: ModifierType -> ModifierType -> Bool
$c== :: ModifierType -> ModifierType -> Bool
Eq)
instance P.Enum ModifierType where
fromEnum :: ModifierType -> Int
fromEnum ModifierTypeShiftMask = 1
fromEnum ModifierTypeLockMask = 2
fromEnum ModifierTypeControlMask = 4
fromEnum ModifierTypeMod1Mask = 8
fromEnum ModifierTypeMod2Mask = 16
fromEnum ModifierTypeMod3Mask = 32
fromEnum ModifierTypeMod4Mask = 64
fromEnum ModifierTypeMod5Mask = 128
fromEnum ModifierTypeButton1Mask = 256
fromEnum ModifierTypeButton2Mask = 512
fromEnum ModifierTypeButton3Mask = 1024
fromEnum ModifierTypeButton4Mask = 2048
fromEnum ModifierTypeButton5Mask = 4096
fromEnum ModifierTypeModifierReserved13Mask = 8192
fromEnum ModifierTypeModifierReserved14Mask = 16384
fromEnum ModifierTypeModifierReserved15Mask = 32768
fromEnum ModifierTypeModifierReserved16Mask = 65536
fromEnum ModifierTypeModifierReserved17Mask = 131072
fromEnum ModifierTypeModifierReserved18Mask = 262144
fromEnum ModifierTypeModifierReserved19Mask = 524288
fromEnum ModifierTypeModifierReserved20Mask = 1048576
fromEnum ModifierTypeModifierReserved21Mask = 2097152
fromEnum ModifierTypeModifierReserved22Mask = 4194304
fromEnum ModifierTypeModifierReserved23Mask = 8388608
fromEnum ModifierTypeModifierReserved24Mask = 16777216
fromEnum ModifierTypeModifierReserved25Mask = 33554432
fromEnum ModifierTypeSuperMask = 67108864
fromEnum ModifierTypeHyperMask = 134217728
fromEnum ModifierTypeMetaMask = 268435456
fromEnum ModifierTypeModifierReserved29Mask = 536870912
fromEnum ModifierTypeReleaseMask = 1073741824
fromEnum ModifierTypeModifierMask = 1543512063
fromEnum (AnotherModifierType k :: Int
k) = Int
k
toEnum :: Int -> ModifierType
toEnum 1 = ModifierType
ModifierTypeShiftMask
toEnum 2 = ModifierType
ModifierTypeLockMask
toEnum 4 = ModifierType
ModifierTypeControlMask
toEnum 8 = ModifierType
ModifierTypeMod1Mask
toEnum 16 = ModifierType
ModifierTypeMod2Mask
toEnum 32 = ModifierType
ModifierTypeMod3Mask
toEnum 64 = ModifierType
ModifierTypeMod4Mask
toEnum 128 = ModifierType
ModifierTypeMod5Mask
toEnum 256 = ModifierType
ModifierTypeButton1Mask
toEnum 512 = ModifierType
ModifierTypeButton2Mask
toEnum 1024 = ModifierType
ModifierTypeButton3Mask
toEnum 2048 = ModifierType
ModifierTypeButton4Mask
toEnum 4096 = ModifierType
ModifierTypeButton5Mask
toEnum 8192 = ModifierType
ModifierTypeModifierReserved13Mask
toEnum 16384 = ModifierType
ModifierTypeModifierReserved14Mask
toEnum 32768 = ModifierType
ModifierTypeModifierReserved15Mask
toEnum 65536 = ModifierType
ModifierTypeModifierReserved16Mask
toEnum 131072 = ModifierType
ModifierTypeModifierReserved17Mask
toEnum 262144 = ModifierType
ModifierTypeModifierReserved18Mask
toEnum 524288 = ModifierType
ModifierTypeModifierReserved19Mask
toEnum 1048576 = ModifierType
ModifierTypeModifierReserved20Mask
toEnum 2097152 = ModifierType
ModifierTypeModifierReserved21Mask
toEnum 4194304 = ModifierType
ModifierTypeModifierReserved22Mask
toEnum 8388608 = ModifierType
ModifierTypeModifierReserved23Mask
toEnum 16777216 = ModifierType
ModifierTypeModifierReserved24Mask
toEnum 33554432 = ModifierType
ModifierTypeModifierReserved25Mask
toEnum 67108864 = ModifierType
ModifierTypeSuperMask
toEnum 134217728 = ModifierType
ModifierTypeHyperMask
toEnum 268435456 = ModifierType
ModifierTypeMetaMask
toEnum 536870912 = ModifierType
ModifierTypeModifierReserved29Mask
toEnum 1073741824 = ModifierType
ModifierTypeReleaseMask
toEnum 1543512063 = ModifierType
ModifierTypeModifierMask
toEnum k :: Int
k = Int -> ModifierType
AnotherModifierType Int
k
instance P.Ord ModifierType where
compare :: ModifierType -> ModifierType -> Ordering
compare a :: ModifierType
a b :: ModifierType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (ModifierType -> Int
forall a. Enum a => a -> Int
P.fromEnum ModifierType
a) (ModifierType -> Int
forall a. Enum a => a -> Int
P.fromEnum ModifierType
b)
foreign import ccall "gdk_modifier_type_get_type" c_gdk_modifier_type_get_type ::
IO GType
instance BoxedFlags ModifierType where
boxedFlagsType :: Proxy ModifierType -> IO GType
boxedFlagsType _ = IO GType
c_gdk_modifier_type_get_type
instance IsGFlag ModifierType
data FrameClockPhase =
FrameClockPhaseNone
| FrameClockPhaseFlushEvents
| FrameClockPhaseBeforePaint
| FrameClockPhaseUpdate
| FrameClockPhaseLayout
| FrameClockPhasePaint
| FrameClockPhaseResumeEvents
| FrameClockPhaseAfterPaint
| AnotherFrameClockPhase Int
deriving (Int -> FrameClockPhase -> ShowS
[FrameClockPhase] -> ShowS
FrameClockPhase -> String
(Int -> FrameClockPhase -> ShowS)
-> (FrameClockPhase -> String)
-> ([FrameClockPhase] -> ShowS)
-> Show FrameClockPhase
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FrameClockPhase] -> ShowS
$cshowList :: [FrameClockPhase] -> ShowS
show :: FrameClockPhase -> String
$cshow :: FrameClockPhase -> String
showsPrec :: Int -> FrameClockPhase -> ShowS
$cshowsPrec :: Int -> FrameClockPhase -> ShowS
Show, FrameClockPhase -> FrameClockPhase -> Bool
(FrameClockPhase -> FrameClockPhase -> Bool)
-> (FrameClockPhase -> FrameClockPhase -> Bool)
-> Eq FrameClockPhase
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FrameClockPhase -> FrameClockPhase -> Bool
$c/= :: FrameClockPhase -> FrameClockPhase -> Bool
== :: FrameClockPhase -> FrameClockPhase -> Bool
$c== :: FrameClockPhase -> FrameClockPhase -> Bool
Eq)
instance P.Enum FrameClockPhase where
fromEnum :: FrameClockPhase -> Int
fromEnum FrameClockPhaseNone = 0
fromEnum FrameClockPhaseFlushEvents = 1
fromEnum FrameClockPhaseBeforePaint = 2
fromEnum FrameClockPhaseUpdate = 4
fromEnum FrameClockPhaseLayout = 8
fromEnum FrameClockPhasePaint = 16
fromEnum FrameClockPhaseResumeEvents = 32
fromEnum FrameClockPhaseAfterPaint = 64
fromEnum (AnotherFrameClockPhase k :: Int
k) = Int
k
toEnum :: Int -> FrameClockPhase
toEnum 0 = FrameClockPhase
FrameClockPhaseNone
toEnum 1 = FrameClockPhase
FrameClockPhaseFlushEvents
toEnum 2 = FrameClockPhase
FrameClockPhaseBeforePaint
toEnum 4 = FrameClockPhase
FrameClockPhaseUpdate
toEnum 8 = FrameClockPhase
FrameClockPhaseLayout
toEnum 16 = FrameClockPhase
FrameClockPhasePaint
toEnum 32 = FrameClockPhase
FrameClockPhaseResumeEvents
toEnum 64 = FrameClockPhase
FrameClockPhaseAfterPaint
toEnum k :: Int
k = Int -> FrameClockPhase
AnotherFrameClockPhase Int
k
instance P.Ord FrameClockPhase where
compare :: FrameClockPhase -> FrameClockPhase -> Ordering
compare a :: FrameClockPhase
a b :: FrameClockPhase
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (FrameClockPhase -> Int
forall a. Enum a => a -> Int
P.fromEnum FrameClockPhase
a) (FrameClockPhase -> Int
forall a. Enum a => a -> Int
P.fromEnum FrameClockPhase
b)
foreign import ccall "gdk_frame_clock_phase_get_type" c_gdk_frame_clock_phase_get_type ::
IO GType
instance BoxedFlags FrameClockPhase where
boxedFlagsType :: Proxy FrameClockPhase -> IO GType
boxedFlagsType _ = IO GType
c_gdk_frame_clock_phase_get_type
instance IsGFlag FrameClockPhase
data EventMask =
EventMaskExposureMask
| EventMaskPointerMotionMask
| EventMaskButtonMotionMask
| EventMaskButton1MotionMask
| EventMaskButton2MotionMask
| EventMaskButton3MotionMask
| EventMaskButtonPressMask
| EventMaskButtonReleaseMask
| EventMaskKeyPressMask
| EventMaskKeyReleaseMask
| EventMaskEnterNotifyMask
| EventMaskLeaveNotifyMask
| EventMaskFocusChangeMask
| EventMaskStructureMask
| EventMaskPropertyChangeMask
| EventMaskProximityInMask
| EventMaskProximityOutMask
| EventMaskSubstructureMask
| EventMaskScrollMask
| EventMaskTouchMask
| EventMaskSmoothScrollMask
| EventMaskTouchpadGestureMask
| EventMaskTabletPadMask
| EventMaskAllEventsMask
| AnotherEventMask Int
deriving (Int -> EventMask -> ShowS
[EventMask] -> ShowS
EventMask -> String
(Int -> EventMask -> ShowS)
-> (EventMask -> String)
-> ([EventMask] -> ShowS)
-> Show EventMask
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EventMask] -> ShowS
$cshowList :: [EventMask] -> ShowS
show :: EventMask -> String
$cshow :: EventMask -> String
showsPrec :: Int -> EventMask -> ShowS
$cshowsPrec :: Int -> EventMask -> ShowS
Show, EventMask -> EventMask -> Bool
(EventMask -> EventMask -> Bool)
-> (EventMask -> EventMask -> Bool) -> Eq EventMask
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EventMask -> EventMask -> Bool
$c/= :: EventMask -> EventMask -> Bool
== :: EventMask -> EventMask -> Bool
$c== :: EventMask -> EventMask -> Bool
Eq)
instance P.Enum EventMask where
fromEnum :: EventMask -> Int
fromEnum EventMaskExposureMask = 2
fromEnum EventMaskPointerMotionMask = 4
fromEnum EventMaskButtonMotionMask = 16
fromEnum EventMaskButton1MotionMask = 32
fromEnum EventMaskButton2MotionMask = 64
fromEnum EventMaskButton3MotionMask = 128
fromEnum EventMaskButtonPressMask = 256
fromEnum EventMaskButtonReleaseMask = 512
fromEnum EventMaskKeyPressMask = 1024
fromEnum EventMaskKeyReleaseMask = 2048
fromEnum EventMaskEnterNotifyMask = 4096
fromEnum EventMaskLeaveNotifyMask = 8192
fromEnum EventMaskFocusChangeMask = 16384
fromEnum EventMaskStructureMask = 32768
fromEnum EventMaskPropertyChangeMask = 65536
fromEnum EventMaskProximityInMask = 262144
fromEnum EventMaskProximityOutMask = 524288
fromEnum EventMaskSubstructureMask = 1048576
fromEnum EventMaskScrollMask = 2097152
fromEnum EventMaskTouchMask = 4194304
fromEnum EventMaskSmoothScrollMask = 8388608
fromEnum EventMaskTouchpadGestureMask = 16777216
fromEnum EventMaskTabletPadMask = 33554432
fromEnum EventMaskAllEventsMask = 67108862
fromEnum (AnotherEventMask k :: Int
k) = Int
k
toEnum :: Int -> EventMask
toEnum 2 = EventMask
EventMaskExposureMask
toEnum 4 = EventMask
EventMaskPointerMotionMask
toEnum 16 = EventMask
EventMaskButtonMotionMask
toEnum 32 = EventMask
EventMaskButton1MotionMask
toEnum 64 = EventMask
EventMaskButton2MotionMask
toEnum 128 = EventMask
EventMaskButton3MotionMask
toEnum 256 = EventMask
EventMaskButtonPressMask
toEnum 512 = EventMask
EventMaskButtonReleaseMask
toEnum 1024 = EventMask
EventMaskKeyPressMask
toEnum 2048 = EventMask
EventMaskKeyReleaseMask
toEnum 4096 = EventMask
EventMaskEnterNotifyMask
toEnum 8192 = EventMask
EventMaskLeaveNotifyMask
toEnum 16384 = EventMask
EventMaskFocusChangeMask
toEnum 32768 = EventMask
EventMaskStructureMask
toEnum 65536 = EventMask
EventMaskPropertyChangeMask
toEnum 262144 = EventMask
EventMaskProximityInMask
toEnum 524288 = EventMask
EventMaskProximityOutMask
toEnum 1048576 = EventMask
EventMaskSubstructureMask
toEnum 2097152 = EventMask
EventMaskScrollMask
toEnum 4194304 = EventMask
EventMaskTouchMask
toEnum 8388608 = EventMask
EventMaskSmoothScrollMask
toEnum 16777216 = EventMask
EventMaskTouchpadGestureMask
toEnum 33554432 = EventMask
EventMaskTabletPadMask
toEnum 67108862 = EventMask
EventMaskAllEventsMask
toEnum k :: Int
k = Int -> EventMask
AnotherEventMask Int
k
instance P.Ord EventMask where
compare :: EventMask -> EventMask -> Ordering
compare a :: EventMask
a b :: EventMask
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (EventMask -> Int
forall a. Enum a => a -> Int
P.fromEnum EventMask
a) (EventMask -> Int
forall a. Enum a => a -> Int
P.fromEnum EventMask
b)
foreign import ccall "gdk_event_mask_get_type" c_gdk_event_mask_get_type ::
IO GType
instance BoxedFlags EventMask where
boxedFlagsType :: Proxy EventMask -> IO GType
boxedFlagsType _ = IO GType
c_gdk_event_mask_get_type
instance IsGFlag EventMask
data DragAction =
DragActionCopy
| DragActionMove
| DragActionLink
| DragActionAsk
| AnotherDragAction Int
deriving (Int -> DragAction -> ShowS
[DragAction] -> ShowS
DragAction -> String
(Int -> DragAction -> ShowS)
-> (DragAction -> String)
-> ([DragAction] -> ShowS)
-> Show DragAction
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DragAction] -> ShowS
$cshowList :: [DragAction] -> ShowS
show :: DragAction -> String
$cshow :: DragAction -> String
showsPrec :: Int -> DragAction -> ShowS
$cshowsPrec :: Int -> DragAction -> ShowS
Show, DragAction -> DragAction -> Bool
(DragAction -> DragAction -> Bool)
-> (DragAction -> DragAction -> Bool) -> Eq DragAction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DragAction -> DragAction -> Bool
$c/= :: DragAction -> DragAction -> Bool
== :: DragAction -> DragAction -> Bool
$c== :: DragAction -> DragAction -> Bool
Eq)
instance P.Enum DragAction where
fromEnum :: DragAction -> Int
fromEnum DragActionCopy = 1
fromEnum DragActionMove = 2
fromEnum DragActionLink = 4
fromEnum DragActionAsk = 8
fromEnum (AnotherDragAction k :: Int
k) = Int
k
toEnum :: Int -> DragAction
toEnum 1 = DragAction
DragActionCopy
toEnum 2 = DragAction
DragActionMove
toEnum 4 = DragAction
DragActionLink
toEnum 8 = DragAction
DragActionAsk
toEnum k :: Int
k = Int -> DragAction
AnotherDragAction Int
k
instance P.Ord DragAction where
compare :: DragAction -> DragAction -> Ordering
compare a :: DragAction
a b :: DragAction
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (DragAction -> Int
forall a. Enum a => a -> Int
P.fromEnum DragAction
a) (DragAction -> Int
forall a. Enum a => a -> Int
P.fromEnum DragAction
b)
foreign import ccall "gdk_drag_action_get_type" c_gdk_drag_action_get_type ::
IO GType
instance BoxedFlags DragAction where
boxedFlagsType :: Proxy DragAction -> IO GType
boxedFlagsType _ = IO GType
c_gdk_drag_action_get_type
instance IsGFlag DragAction
data AxisFlags =
AxisFlagsX
| AxisFlagsY
| AxisFlagsPressure
| AxisFlagsXtilt
| AxisFlagsYtilt
| AxisFlagsWheel
| AxisFlagsDistance
| AxisFlagsRotation
| AxisFlagsSlider
| AnotherAxisFlags Int
deriving (Int -> AxisFlags -> ShowS
[AxisFlags] -> ShowS
AxisFlags -> String
(Int -> AxisFlags -> ShowS)
-> (AxisFlags -> String)
-> ([AxisFlags] -> ShowS)
-> Show AxisFlags
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AxisFlags] -> ShowS
$cshowList :: [AxisFlags] -> ShowS
show :: AxisFlags -> String
$cshow :: AxisFlags -> String
showsPrec :: Int -> AxisFlags -> ShowS
$cshowsPrec :: Int -> AxisFlags -> ShowS
Show, AxisFlags -> AxisFlags -> Bool
(AxisFlags -> AxisFlags -> Bool)
-> (AxisFlags -> AxisFlags -> Bool) -> Eq AxisFlags
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AxisFlags -> AxisFlags -> Bool
$c/= :: AxisFlags -> AxisFlags -> Bool
== :: AxisFlags -> AxisFlags -> Bool
$c== :: AxisFlags -> AxisFlags -> Bool
Eq)
instance P.Enum AxisFlags where
fromEnum :: AxisFlags -> Int
fromEnum AxisFlagsX = 2
fromEnum AxisFlagsY = 4
fromEnum AxisFlagsPressure = 8
fromEnum AxisFlagsXtilt = 16
fromEnum AxisFlagsYtilt = 32
fromEnum AxisFlagsWheel = 64
fromEnum AxisFlagsDistance = 128
fromEnum AxisFlagsRotation = 256
fromEnum AxisFlagsSlider = 512
fromEnum (AnotherAxisFlags k :: Int
k) = Int
k
toEnum :: Int -> AxisFlags
toEnum 2 = AxisFlags
AxisFlagsX
toEnum 4 = AxisFlags
AxisFlagsY
toEnum 8 = AxisFlags
AxisFlagsPressure
toEnum 16 = AxisFlags
AxisFlagsXtilt
toEnum 32 = AxisFlags
AxisFlagsYtilt
toEnum 64 = AxisFlags
AxisFlagsWheel
toEnum 128 = AxisFlags
AxisFlagsDistance
toEnum 256 = AxisFlags
AxisFlagsRotation
toEnum 512 = AxisFlags
AxisFlagsSlider
toEnum k :: Int
k = Int -> AxisFlags
AnotherAxisFlags Int
k
instance P.Ord AxisFlags where
compare :: AxisFlags -> AxisFlags -> Ordering
compare a :: AxisFlags
a b :: AxisFlags
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (AxisFlags -> Int
forall a. Enum a => a -> Int
P.fromEnum AxisFlags
a) (AxisFlags -> Int
forall a. Enum a => a -> Int
P.fromEnum AxisFlags
b)
foreign import ccall "gdk_axis_flags_get_type" c_gdk_axis_flags_get_type ::
IO GType
instance BoxedFlags AxisFlags where
boxedFlagsType :: Proxy AxisFlags -> IO GType
boxedFlagsType _ = IO GType
c_gdk_axis_flags_get_type
instance IsGFlag AxisFlags
data AnchorHints =
AnchorHintsFlipX
| AnchorHintsFlipY
| AnchorHintsSlideX
| AnchorHintsSlideY
| AnchorHintsResizeX
| AnchorHintsResizeY
| AnchorHintsFlip
| AnchorHintsSlide
| AnchorHintsResize
| AnotherAnchorHints Int
deriving (Int -> AnchorHints -> ShowS
[AnchorHints] -> ShowS
AnchorHints -> String
(Int -> AnchorHints -> ShowS)
-> (AnchorHints -> String)
-> ([AnchorHints] -> ShowS)
-> Show AnchorHints
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AnchorHints] -> ShowS
$cshowList :: [AnchorHints] -> ShowS
show :: AnchorHints -> String
$cshow :: AnchorHints -> String
showsPrec :: Int -> AnchorHints -> ShowS
$cshowsPrec :: Int -> AnchorHints -> ShowS
Show, AnchorHints -> AnchorHints -> Bool
(AnchorHints -> AnchorHints -> Bool)
-> (AnchorHints -> AnchorHints -> Bool) -> Eq AnchorHints
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AnchorHints -> AnchorHints -> Bool
$c/= :: AnchorHints -> AnchorHints -> Bool
== :: AnchorHints -> AnchorHints -> Bool
$c== :: AnchorHints -> AnchorHints -> Bool
Eq)
instance P.Enum AnchorHints where
fromEnum :: AnchorHints -> Int
fromEnum AnchorHintsFlipX = 1
fromEnum AnchorHintsFlipY = 2
fromEnum AnchorHintsSlideX = 4
fromEnum AnchorHintsSlideY = 8
fromEnum AnchorHintsResizeX = 16
fromEnum AnchorHintsResizeY = 32
fromEnum AnchorHintsFlip = 3
fromEnum AnchorHintsSlide = 12
fromEnum AnchorHintsResize = 48
fromEnum (AnotherAnchorHints k :: Int
k) = Int
k
toEnum :: Int -> AnchorHints
toEnum 1 = AnchorHints
AnchorHintsFlipX
toEnum 2 = AnchorHints
AnchorHintsFlipY
toEnum 4 = AnchorHints
AnchorHintsSlideX
toEnum 8 = AnchorHints
AnchorHintsSlideY
toEnum 16 = AnchorHints
AnchorHintsResizeX
toEnum 32 = AnchorHints
AnchorHintsResizeY
toEnum 3 = AnchorHints
AnchorHintsFlip
toEnum 12 = AnchorHints
AnchorHintsSlide
toEnum 48 = AnchorHints
AnchorHintsResize
toEnum k :: Int
k = Int -> AnchorHints
AnotherAnchorHints Int
k
instance P.Ord AnchorHints where
compare :: AnchorHints -> AnchorHints -> Ordering
compare a :: AnchorHints
a b :: AnchorHints
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (AnchorHints -> Int
forall a. Enum a => a -> Int
P.fromEnum AnchorHints
a) (AnchorHints -> Int
forall a. Enum a => a -> Int
P.fromEnum AnchorHints
b)
foreign import ccall "gdk_anchor_hints_get_type" c_gdk_anchor_hints_get_type ::
IO GType
instance BoxedFlags AnchorHints where
boxedFlagsType :: Proxy AnchorHints -> IO GType
boxedFlagsType _ = IO GType
c_gdk_anchor_hints_get_type
instance IsGFlag AnchorHints