#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Flags
(
TabViewShortcuts(..) ,
) 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.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
data TabViewShortcuts =
TabViewShortcutsNone
| TabViewShortcutsControlTab
| TabViewShortcutsControlShiftTab
| TabViewShortcutsControlPageUp
| TabViewShortcutsControlPageDown
| TabViewShortcutsControlHome
| TabViewShortcutsControlEnd
| TabViewShortcutsControlShiftPageUp
| TabViewShortcutsControlShiftPageDown
| TabViewShortcutsControlShiftHome
| TabViewShortcutsControlShiftEnd
| TabViewShortcutsAltDigits
| TabViewShortcutsAltZero
| TabViewShortcutsAllShortcuts
| AnotherTabViewShortcuts Int
deriving (Int -> TabViewShortcuts -> ShowS
[TabViewShortcuts] -> ShowS
TabViewShortcuts -> String
(Int -> TabViewShortcuts -> ShowS)
-> (TabViewShortcuts -> String)
-> ([TabViewShortcuts] -> ShowS)
-> Show TabViewShortcuts
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TabViewShortcuts -> ShowS
showsPrec :: Int -> TabViewShortcuts -> ShowS
$cshow :: TabViewShortcuts -> String
show :: TabViewShortcuts -> String
$cshowList :: [TabViewShortcuts] -> ShowS
showList :: [TabViewShortcuts] -> ShowS
Show, TabViewShortcuts -> TabViewShortcuts -> Bool
(TabViewShortcuts -> TabViewShortcuts -> Bool)
-> (TabViewShortcuts -> TabViewShortcuts -> Bool)
-> Eq TabViewShortcuts
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TabViewShortcuts -> TabViewShortcuts -> Bool
== :: TabViewShortcuts -> TabViewShortcuts -> Bool
$c/= :: TabViewShortcuts -> TabViewShortcuts -> Bool
/= :: TabViewShortcuts -> TabViewShortcuts -> Bool
Eq)
instance P.Enum TabViewShortcuts where
fromEnum :: TabViewShortcuts -> Int
fromEnum TabViewShortcuts
TabViewShortcutsNone = Int
0
fromEnum TabViewShortcuts
TabViewShortcutsControlTab = Int
1
fromEnum TabViewShortcuts
TabViewShortcutsControlShiftTab = Int
2
fromEnum TabViewShortcuts
TabViewShortcutsControlPageUp = Int
4
fromEnum TabViewShortcuts
TabViewShortcutsControlPageDown = Int
8
fromEnum TabViewShortcuts
TabViewShortcutsControlHome = Int
16
fromEnum TabViewShortcuts
TabViewShortcutsControlEnd = Int
32
fromEnum TabViewShortcuts
TabViewShortcutsControlShiftPageUp = Int
64
fromEnum TabViewShortcuts
TabViewShortcutsControlShiftPageDown = Int
128
fromEnum TabViewShortcuts
TabViewShortcutsControlShiftHome = Int
256
fromEnum TabViewShortcuts
TabViewShortcutsControlShiftEnd = Int
512
fromEnum TabViewShortcuts
TabViewShortcutsAltDigits = Int
1024
fromEnum TabViewShortcuts
TabViewShortcutsAltZero = Int
2048
fromEnum TabViewShortcuts
TabViewShortcutsAllShortcuts = Int
4095
fromEnum (AnotherTabViewShortcuts Int
k) = Int
k
toEnum :: Int -> TabViewShortcuts
toEnum Int
0 = TabViewShortcuts
TabViewShortcutsNone
toEnum Int
1 = TabViewShortcuts
TabViewShortcutsControlTab
toEnum Int
2 = TabViewShortcuts
TabViewShortcutsControlShiftTab
toEnum Int
4 = TabViewShortcuts
TabViewShortcutsControlPageUp
toEnum Int
8 = TabViewShortcuts
TabViewShortcutsControlPageDown
toEnum Int
16 = TabViewShortcuts
TabViewShortcutsControlHome
toEnum Int
32 = TabViewShortcuts
TabViewShortcutsControlEnd
toEnum Int
64 = TabViewShortcuts
TabViewShortcutsControlShiftPageUp
toEnum Int
128 = TabViewShortcuts
TabViewShortcutsControlShiftPageDown
toEnum Int
256 = TabViewShortcuts
TabViewShortcutsControlShiftHome
toEnum Int
512 = TabViewShortcuts
TabViewShortcutsControlShiftEnd
toEnum Int
1024 = TabViewShortcuts
TabViewShortcutsAltDigits
toEnum Int
2048 = TabViewShortcuts
TabViewShortcutsAltZero
toEnum Int
4095 = TabViewShortcuts
TabViewShortcutsAllShortcuts
toEnum Int
k = Int -> TabViewShortcuts
AnotherTabViewShortcuts Int
k
instance P.Ord TabViewShortcuts where
compare :: TabViewShortcuts -> TabViewShortcuts -> Ordering
compare TabViewShortcuts
a TabViewShortcuts
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TabViewShortcuts -> Int
forall a. Enum a => a -> Int
P.fromEnum TabViewShortcuts
a) (TabViewShortcuts -> Int
forall a. Enum a => a -> Int
P.fromEnum TabViewShortcuts
b)
type instance O.ParentTypes TabViewShortcuts = '[]
instance O.HasParentTypes TabViewShortcuts
foreign import ccall "adw_tab_view_shortcuts_get_type" c_adw_tab_view_shortcuts_get_type ::
IO GType
instance B.Types.TypedObject TabViewShortcuts where
glibType :: IO GType
glibType = IO GType
c_adw_tab_view_shortcuts_get_type
instance B.Types.BoxedFlags TabViewShortcuts
instance IsGFlag TabViewShortcuts