{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, GeneralizedNewtypeDeriving, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
module Graphics.UI.Qtah.Generated.Core.QPalette (
QPaletteColorRole (..),
) where
import Prelude (($), (++))
import qualified Prelude as HoppyP
data QPaletteColorRole =
Window
| WindowText
| Base
| AlternateBase
| ToolTipBase
| ToolTipText
| Text
| Button
| ButtonText
| BrightText
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QPaletteColorRole where
fromEnum Window = 10
fromEnum WindowText = 0
fromEnum Base = 9
fromEnum AlternateBase = 16
fromEnum ToolTipBase = 18
fromEnum ToolTipText = 19
fromEnum Text = 6
fromEnum Button = 1
fromEnum ButtonText = 8
fromEnum BrightText = 7
toEnum (10) = Window
toEnum (0) = WindowText
toEnum (9) = Base
toEnum (16) = AlternateBase
toEnum (18) = ToolTipBase
toEnum (19) = ToolTipText
toEnum (6) = Text
toEnum (1) = Button
toEnum (8) = ButtonText
toEnum (7) = BrightText
toEnum n' = HoppyP.error $ "Unknown QPaletteColorRole numeric value: " ++ HoppyP.show n'