{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, GeneralizedNewtypeDeriving, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
module Graphics.UI.Qtah.Generated.Core.Types (
QtAlignment (..),
IsQtAlignment (..),
alignLeft,
alignRight,
alignHCenter,
alignJustify,
alignTop,
alignBottom,
alignVCenter,
alignAbsolute,
QtAlignmentFlag (..),
QtArrowType (..),
QtAspectRatioMode (..),
QtBrushStyle (..),
QtCaseSensitivity (..),
QtCheckState (..),
QtContextMenuPolicy (..),
QtCorner (..),
QtCursorMoveStyle (..),
QtCursorShape (..),
QtDockWidgetArea (..),
QtDockWidgetAreas (..),
IsQtDockWidgetAreas (..),
noDockWidgetArea,
leftDockWidgetArea,
rightDockWidgetArea,
topDockWidgetArea,
bottomDockWidgetArea,
allDockWidgetAreas,
QtDropAction (..),
QtDropActions (..),
IsQtDropActions (..),
ignoreAction,
copyAction,
moveAction,
linkAction,
actionMask,
targetMoveAction,
QtEventPriority (..),
QtFillRule (..),
QtFocusReason (..),
QtGlobalColor (..),
QtImageConversionFlag (..),
QtImageConversionFlags (..),
IsQtImageConversionFlags (..),
auto,
colorOnly,
monoOnly,
orderedDither,
thresholdDither,
orderedAlphaDither,
diffuseAlphaDither,
preferDither,
avoidDither,
noOpaqueDetection,
noFormatConversion,
QtInputMethodHint (..),
QtInputMethodHints (..),
IsQtInputMethodHints (..),
imhNone,
imhHiddenText,
imhSensitiveData,
imhNoAutoUppercase,
imhPreferNumbers,
imhPreferUppercase,
imhPreferLowercase,
imhNoPredictiveText,
imhDate,
imhTime,
imhPreferLatin,
imhMultiLine,
imhDigitsOnly,
imhFormattedNumbersOnly,
imhUppercaseOnly,
imhLowercaseOnly,
imhDialableCharactersOnly,
imhEmailCharactersOnly,
imhUrlCharactersOnly,
imhLatinOnly,
imhExclusiveInputMask,
QtItemDataRole (..),
QtItemFlag (..),
QtItemFlags (..),
IsQtItemFlags (..),
noItemFlags,
itemIsSelectable,
itemIsEditable,
itemIsDragEnabled,
itemIsDropEnabled,
itemIsUserCheckable,
itemIsEnabled,
itemIsAutoTristate,
itemNeverHasChildren,
itemIsUserTristate,
QtKey (..),
QtKeyboardModifier (..),
QtKeyboardModifiers (..),
IsQtKeyboardModifiers (..),
noModifier,
shiftModifier,
controlModifier,
altModifier,
metaModifier,
keypadModifier,
groupSwitchModifier,
QtLayoutDirection (..),
QtMaskMode (..),
QtMatchFlag (..),
QtMatchFlags (..),
IsQtMatchFlags (..),
matchExactly,
matchFixedString,
matchContains,
matchStartsWith,
matchEndsWith,
matchCaseSensitive,
matchRegExp,
matchWildcard,
matchWrap,
matchRecursive,
QtMouseButton (..),
QtMouseButtons (..),
IsQtMouseButtons (..),
noButton,
allButtons,
leftButton,
rightButton,
middleButton,
QtMouseEventFlag (..),
QtMouseEventFlags (..),
IsQtMouseEventFlags (..),
mouseEventCreatedDoubleClick,
QtMouseEventSource (..),
QtNavigationMode (..),
QtOrientation (..),
QtOrientations (..),
IsQtOrientations (..),
horizontal,
vertical,
QtScreenOrientation (..),
QtScreenOrientations (..),
IsQtScreenOrientations (..),
primaryOrientation,
portraitOrientation,
landscapeOrientation,
invertedPortraitOrientation,
invertedLandscapeOrientation,
QtScrollBarPolicy (..),
QtScrollPhase (..),
QtSortOrder (..),
QtTextElideMode (..),
QtTextFormat (..),
QtTextInteractionFlag (..),
QtTextInteractionFlags (..),
IsQtTextInteractionFlags (..),
noTextInteraction,
textSelectableByMouse,
textSelectableByKeyboard,
linksAccessibleByMouse,
linksAccessibleByKeyboard,
textEditable,
textEditorInteraction,
textBrowserInteraction,
QtToolBarArea (..),
QtToolBarAreas (..),
IsQtToolBarAreas (..),
noToolBarArea,
leftToolBarArea,
rightToolBarArea,
topToolBarArea,
bottomToolBarArea,
allToolBarAreas,
QtToolButtonStyle (..),
QtTransformationMode (..),
QtWindowFlags (..),
IsQtWindowFlags (..),
widget,
window,
dialog,
sheet,
drawer,
popup,
tool,
toolTip,
splashScreen,
desktop,
subWindow,
foreignWindow,
coverWindow,
QtWindowModality (..),
QtWindowState (..),
QtWindowStates (..),
IsQtWindowStates (..),
windowNoState,
windowMinimized,
windowMaximized,
windowFullScreen,
windowActive,
QtWindowType (..),
) where
import qualified Data.Bits as HoppyDB
import qualified Foreign.C as HoppyFC
import qualified Foreign.Hoppy.Runtime as HoppyFHR
import Prelude (($), (++), (.))
import qualified Prelude as HoppyP
newtype QtAlignment = QtAlignment { fromQtAlignment :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtAlignment a where
toQtAlignment :: a -> QtAlignment
instance IsQtAlignment (HoppyFC.CInt) where
toQtAlignment = QtAlignment
instance IsQtAlignment (HoppyP.Int) where
toQtAlignment = QtAlignment . HoppyFHR.coerceIntegral
instance IsQtAlignment QtAlignment where
toQtAlignment = HoppyP.id
instance IsQtAlignment QtAlignmentFlag where
toQtAlignment = QtAlignment . HoppyFHR.coerceIntegral . HoppyP.fromEnum
alignLeft = QtAlignment (1)
alignRight = QtAlignment (2)
alignHCenter = QtAlignment (4)
alignJustify = QtAlignment (8)
alignTop = QtAlignment (32)
alignBottom = QtAlignment (64)
alignVCenter = QtAlignment (128)
alignAbsolute = QtAlignment (16)
data QtAlignmentFlag =
AlignLeft
| AlignRight
| AlignHCenter
| AlignJustify
| AlignTop
| AlignBottom
| AlignVCenter
| AlignAbsolute
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtAlignmentFlag where
fromEnum AlignLeft = 1
fromEnum AlignRight = 2
fromEnum AlignHCenter = 4
fromEnum AlignJustify = 8
fromEnum AlignTop = 32
fromEnum AlignBottom = 64
fromEnum AlignVCenter = 128
fromEnum AlignAbsolute = 16
toEnum (1) = AlignLeft
toEnum (2) = AlignRight
toEnum (4) = AlignHCenter
toEnum (8) = AlignJustify
toEnum (32) = AlignTop
toEnum (64) = AlignBottom
toEnum (128) = AlignVCenter
toEnum (16) = AlignAbsolute
toEnum n' = HoppyP.error $ "Unknown QtAlignmentFlag numeric value: " ++ HoppyP.show n'
data QtArrowType =
NoArrow
| UpArrow
| DownArrow
| LeftArrow
| RightArrow
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtArrowType where
fromEnum NoArrow = 0
fromEnum UpArrow = 1
fromEnum DownArrow = 2
fromEnum LeftArrow = 3
fromEnum RightArrow = 4
toEnum (0) = NoArrow
toEnum (1) = UpArrow
toEnum (2) = DownArrow
toEnum (3) = LeftArrow
toEnum (4) = RightArrow
toEnum n' = HoppyP.error $ "Unknown QtArrowType numeric value: " ++ HoppyP.show n'
data QtAspectRatioMode =
IgnoreAspectRatio
| KeepAspectRatio
| KeepAspectRatioByExpanding
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtAspectRatioMode where
fromEnum IgnoreAspectRatio = 0
fromEnum KeepAspectRatio = 1
fromEnum KeepAspectRatioByExpanding = 2
toEnum (0) = IgnoreAspectRatio
toEnum (1) = KeepAspectRatio
toEnum (2) = KeepAspectRatioByExpanding
toEnum n' = HoppyP.error $ "Unknown QtAspectRatioMode numeric value: " ++ HoppyP.show n'
data QtBrushStyle =
NoBrush
| SolidPattern
| Dense1Pattern
| Dense2Pattern
| Dense3Pattern
| Dense4Pattern
| Dense5Pattern
| Dense6Pattern
| Dense7Pattern
| HorPattern
| VerPattern
| CrossPattern
| BDiagPattern
| FDiagPattern
| DiagCrossPattern
| LinearGradientPattern
| RadialGradientPattern
| ConicalGradientPattern
| TexturePattern
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtBrushStyle where
fromEnum NoBrush = 0
fromEnum SolidPattern = 1
fromEnum Dense1Pattern = 2
fromEnum Dense2Pattern = 3
fromEnum Dense3Pattern = 4
fromEnum Dense4Pattern = 5
fromEnum Dense5Pattern = 6
fromEnum Dense6Pattern = 7
fromEnum Dense7Pattern = 8
fromEnum HorPattern = 9
fromEnum VerPattern = 10
fromEnum CrossPattern = 11
fromEnum BDiagPattern = 12
fromEnum FDiagPattern = 13
fromEnum DiagCrossPattern = 14
fromEnum LinearGradientPattern = 15
fromEnum RadialGradientPattern = 16
fromEnum ConicalGradientPattern = 17
fromEnum TexturePattern = 24
toEnum (0) = NoBrush
toEnum (1) = SolidPattern
toEnum (2) = Dense1Pattern
toEnum (3) = Dense2Pattern
toEnum (4) = Dense3Pattern
toEnum (5) = Dense4Pattern
toEnum (6) = Dense5Pattern
toEnum (7) = Dense6Pattern
toEnum (8) = Dense7Pattern
toEnum (9) = HorPattern
toEnum (10) = VerPattern
toEnum (11) = CrossPattern
toEnum (12) = BDiagPattern
toEnum (13) = FDiagPattern
toEnum (14) = DiagCrossPattern
toEnum (15) = LinearGradientPattern
toEnum (16) = RadialGradientPattern
toEnum (17) = ConicalGradientPattern
toEnum (24) = TexturePattern
toEnum n' = HoppyP.error $ "Unknown QtBrushStyle numeric value: " ++ HoppyP.show n'
data QtCaseSensitivity =
CaseInsensitive
| CaseSensitive
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtCaseSensitivity where
fromEnum CaseInsensitive = 0
fromEnum CaseSensitive = 1
toEnum (0) = CaseInsensitive
toEnum (1) = CaseSensitive
toEnum n' = HoppyP.error $ "Unknown QtCaseSensitivity numeric value: " ++ HoppyP.show n'
data QtCheckState =
Unchecked
| PartiallyChecked
| Checked
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtCheckState where
fromEnum Unchecked = 0
fromEnum PartiallyChecked = 1
fromEnum Checked = 2
toEnum (0) = Unchecked
toEnum (1) = PartiallyChecked
toEnum (2) = Checked
toEnum n' = HoppyP.error $ "Unknown QtCheckState numeric value: " ++ HoppyP.show n'
data QtContextMenuPolicy =
NoContextMenu
| PreventContextMenu
| DefaultContextMenu
| ActionsContextMenu
| CustomContextMenu
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtContextMenuPolicy where
fromEnum NoContextMenu = 0
fromEnum PreventContextMenu = 4
fromEnum DefaultContextMenu = 1
fromEnum ActionsContextMenu = 2
fromEnum CustomContextMenu = 3
toEnum (0) = NoContextMenu
toEnum (4) = PreventContextMenu
toEnum (1) = DefaultContextMenu
toEnum (2) = ActionsContextMenu
toEnum (3) = CustomContextMenu
toEnum n' = HoppyP.error $ "Unknown QtContextMenuPolicy numeric value: " ++ HoppyP.show n'
data QtCorner =
TopLeftCorner
| TopRightCorner
| BottomLeftCorner
| BottomRightCorner
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtCorner where
fromEnum TopLeftCorner = 0
fromEnum TopRightCorner = 1
fromEnum BottomLeftCorner = 2
fromEnum BottomRightCorner = 3
toEnum (0) = TopLeftCorner
toEnum (1) = TopRightCorner
toEnum (2) = BottomLeftCorner
toEnum (3) = BottomRightCorner
toEnum n' = HoppyP.error $ "Unknown QtCorner numeric value: " ++ HoppyP.show n'
data QtCursorMoveStyle =
LogicalMoveStyle
| VisualMoveStyle
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtCursorMoveStyle where
fromEnum LogicalMoveStyle = 0
fromEnum VisualMoveStyle = 1
toEnum (0) = LogicalMoveStyle
toEnum (1) = VisualMoveStyle
toEnum n' = HoppyP.error $ "Unknown QtCursorMoveStyle numeric value: " ++ HoppyP.show n'
data QtCursorShape =
ArrowCursor
| UpArrowCursor
| CrossCursor
| WaitCursor
| IBeamCursor
| SizeVerCursor
| SizeHorCursor
| SizeBDiagCursor
| SizeFDiagCursor
| SizeAllCursor
| BlankCursor
| SplitVCursor
| SplitHCursor
| PointingHandCursor
| ForbiddenCursor
| WhatsThisCursor
| BusyCursor
| OpenHandCursor
| ClosedHandCursor
| DragCopyCursor
| DragMoveCursor
| DragLinkCursor
| BitmapCursor
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtCursorShape where
fromEnum ArrowCursor = 0
fromEnum UpArrowCursor = 1
fromEnum CrossCursor = 2
fromEnum WaitCursor = 3
fromEnum IBeamCursor = 4
fromEnum SizeVerCursor = 5
fromEnum SizeHorCursor = 6
fromEnum SizeBDiagCursor = 7
fromEnum SizeFDiagCursor = 8
fromEnum SizeAllCursor = 9
fromEnum BlankCursor = 10
fromEnum SplitVCursor = 11
fromEnum SplitHCursor = 12
fromEnum PointingHandCursor = 13
fromEnum ForbiddenCursor = 14
fromEnum WhatsThisCursor = 15
fromEnum BusyCursor = 16
fromEnum OpenHandCursor = 17
fromEnum ClosedHandCursor = 18
fromEnum DragCopyCursor = 19
fromEnum DragMoveCursor = 20
fromEnum DragLinkCursor = 21
fromEnum BitmapCursor = 24
toEnum (0) = ArrowCursor
toEnum (1) = UpArrowCursor
toEnum (2) = CrossCursor
toEnum (3) = WaitCursor
toEnum (4) = IBeamCursor
toEnum (5) = SizeVerCursor
toEnum (6) = SizeHorCursor
toEnum (7) = SizeBDiagCursor
toEnum (8) = SizeFDiagCursor
toEnum (9) = SizeAllCursor
toEnum (10) = BlankCursor
toEnum (11) = SplitVCursor
toEnum (12) = SplitHCursor
toEnum (13) = PointingHandCursor
toEnum (14) = ForbiddenCursor
toEnum (15) = WhatsThisCursor
toEnum (16) = BusyCursor
toEnum (17) = OpenHandCursor
toEnum (18) = ClosedHandCursor
toEnum (19) = DragCopyCursor
toEnum (20) = DragMoveCursor
toEnum (21) = DragLinkCursor
toEnum (24) = BitmapCursor
toEnum n' = HoppyP.error $ "Unknown QtCursorShape numeric value: " ++ HoppyP.show n'
data QtDockWidgetArea =
NoDockWidgetArea
| LeftDockWidgetArea
| RightDockWidgetArea
| TopDockWidgetArea
| BottomDockWidgetArea
| AllDockWidgetAreas
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtDockWidgetArea where
fromEnum NoDockWidgetArea = 0
fromEnum LeftDockWidgetArea = 1
fromEnum RightDockWidgetArea = 2
fromEnum TopDockWidgetArea = 4
fromEnum BottomDockWidgetArea = 8
fromEnum AllDockWidgetAreas = 15
toEnum (0) = NoDockWidgetArea
toEnum (1) = LeftDockWidgetArea
toEnum (2) = RightDockWidgetArea
toEnum (4) = TopDockWidgetArea
toEnum (8) = BottomDockWidgetArea
toEnum (15) = AllDockWidgetAreas
toEnum n' = HoppyP.error $ "Unknown QtDockWidgetArea numeric value: " ++ HoppyP.show n'
newtype QtDockWidgetAreas = QtDockWidgetAreas { fromQtDockWidgetAreas :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtDockWidgetAreas a where
toQtDockWidgetAreas :: a -> QtDockWidgetAreas
instance IsQtDockWidgetAreas (HoppyFC.CInt) where
toQtDockWidgetAreas = QtDockWidgetAreas
instance IsQtDockWidgetAreas (HoppyP.Int) where
toQtDockWidgetAreas = QtDockWidgetAreas . HoppyFHR.coerceIntegral
instance IsQtDockWidgetAreas QtDockWidgetAreas where
toQtDockWidgetAreas = HoppyP.id
instance IsQtDockWidgetAreas QtDockWidgetArea where
toQtDockWidgetAreas = QtDockWidgetAreas . HoppyFHR.coerceIntegral . HoppyP.fromEnum
noDockWidgetArea = QtDockWidgetAreas (0)
leftDockWidgetArea = QtDockWidgetAreas (1)
rightDockWidgetArea = QtDockWidgetAreas (2)
topDockWidgetArea = QtDockWidgetAreas (4)
bottomDockWidgetArea = QtDockWidgetAreas (8)
allDockWidgetAreas = QtDockWidgetAreas (15)
data QtDropAction =
IgnoreAction
| CopyAction
| MoveAction
| LinkAction
| ActionMask
| TargetMoveAction
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtDropAction where
fromEnum IgnoreAction = 0
fromEnum CopyAction = 1
fromEnum MoveAction = 2
fromEnum LinkAction = 4
fromEnum ActionMask = 255
fromEnum TargetMoveAction = 32770
toEnum (0) = IgnoreAction
toEnum (1) = CopyAction
toEnum (2) = MoveAction
toEnum (4) = LinkAction
toEnum (255) = ActionMask
toEnum (32770) = TargetMoveAction
toEnum n' = HoppyP.error $ "Unknown QtDropAction numeric value: " ++ HoppyP.show n'
newtype QtDropActions = QtDropActions { fromQtDropActions :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtDropActions a where
toQtDropActions :: a -> QtDropActions
instance IsQtDropActions (HoppyFC.CInt) where
toQtDropActions = QtDropActions
instance IsQtDropActions (HoppyP.Int) where
toQtDropActions = QtDropActions . HoppyFHR.coerceIntegral
instance IsQtDropActions QtDropActions where
toQtDropActions = HoppyP.id
instance IsQtDropActions QtDropAction where
toQtDropActions = QtDropActions . HoppyFHR.coerceIntegral . HoppyP.fromEnum
ignoreAction = QtDropActions (0)
copyAction = QtDropActions (1)
moveAction = QtDropActions (2)
linkAction = QtDropActions (4)
actionMask = QtDropActions (255)
targetMoveAction = QtDropActions (32770)
data QtEventPriority =
HighEventPriority
| NormalEventPriority
| LowEventPriority
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtEventPriority where
fromEnum HighEventPriority = 1
fromEnum NormalEventPriority = 0
fromEnum LowEventPriority = -1
toEnum (1) = HighEventPriority
toEnum (0) = NormalEventPriority
toEnum (-1) = LowEventPriority
toEnum n' = HoppyP.error $ "Unknown QtEventPriority numeric value: " ++ HoppyP.show n'
data QtFillRule =
OddEvenFill
| WindingFill
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtFillRule where
fromEnum OddEvenFill = 0
fromEnum WindingFill = 1
toEnum (0) = OddEvenFill
toEnum (1) = WindingFill
toEnum n' = HoppyP.error $ "Unknown QtFillRule numeric value: " ++ HoppyP.show n'
data QtFocusReason =
MouseFocusReason
| TabFocusReason
| BacktabFocusReason
| ActiveWindowFocusReason
| PopupFocusReason
| ShortcutFocusReason
| MenuBarFocusReason
| OtherFocusReason
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtFocusReason where
fromEnum MouseFocusReason = 0
fromEnum TabFocusReason = 1
fromEnum BacktabFocusReason = 2
fromEnum ActiveWindowFocusReason = 3
fromEnum PopupFocusReason = 4
fromEnum ShortcutFocusReason = 5
fromEnum MenuBarFocusReason = 6
fromEnum OtherFocusReason = 7
toEnum (0) = MouseFocusReason
toEnum (1) = TabFocusReason
toEnum (2) = BacktabFocusReason
toEnum (3) = ActiveWindowFocusReason
toEnum (4) = PopupFocusReason
toEnum (5) = ShortcutFocusReason
toEnum (6) = MenuBarFocusReason
toEnum (7) = OtherFocusReason
toEnum n' = HoppyP.error $ "Unknown QtFocusReason numeric value: " ++ HoppyP.show n'
data QtGlobalColor =
White
| Black
| Red
| DarkRed
| Green
| DarkGreen
| Blue
| DarkBlue
| Cyan
| DarkCyan
| Magenta
| DarkMagenta
| Yellow
| DarkYellow
| Gray
| DarkGray
| LightGray
| Transparent
| Color0
| Color1
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtGlobalColor where
fromEnum White = 3
fromEnum Black = 2
fromEnum Red = 7
fromEnum DarkRed = 13
fromEnum Green = 8
fromEnum DarkGreen = 14
fromEnum Blue = 9
fromEnum DarkBlue = 15
fromEnum Cyan = 10
fromEnum DarkCyan = 16
fromEnum Magenta = 11
fromEnum DarkMagenta = 17
fromEnum Yellow = 12
fromEnum DarkYellow = 18
fromEnum Gray = 5
fromEnum DarkGray = 4
fromEnum LightGray = 6
fromEnum Transparent = 19
fromEnum Color0 = 0
fromEnum Color1 = 1
toEnum (3) = White
toEnum (2) = Black
toEnum (7) = Red
toEnum (13) = DarkRed
toEnum (8) = Green
toEnum (14) = DarkGreen
toEnum (9) = Blue
toEnum (15) = DarkBlue
toEnum (10) = Cyan
toEnum (16) = DarkCyan
toEnum (11) = Magenta
toEnum (17) = DarkMagenta
toEnum (12) = Yellow
toEnum (18) = DarkYellow
toEnum (5) = Gray
toEnum (4) = DarkGray
toEnum (6) = LightGray
toEnum (19) = Transparent
toEnum (0) = Color0
toEnum (1) = Color1
toEnum n' = HoppyP.error $ "Unknown QtGlobalColor numeric value: " ++ HoppyP.show n'
data QtImageConversionFlag =
Auto
| ColorOnly
| MonoOnly
| OrderedDither
| ThresholdDither
| OrderedAlphaDither
| DiffuseAlphaDither
| PreferDither
| AvoidDither
| NoOpaqueDetection
| NoFormatConversion
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtImageConversionFlag where
fromEnum Auto = 0
fromEnum ColorOnly = 3
fromEnum MonoOnly = 2
fromEnum OrderedDither = 16
fromEnum ThresholdDither = 32
fromEnum OrderedAlphaDither = 4
fromEnum DiffuseAlphaDither = 8
fromEnum PreferDither = 64
fromEnum AvoidDither = 128
fromEnum NoOpaqueDetection = 256
fromEnum NoFormatConversion = 512
toEnum (0) = Auto
toEnum (3) = ColorOnly
toEnum (2) = MonoOnly
toEnum (16) = OrderedDither
toEnum (32) = ThresholdDither
toEnum (4) = OrderedAlphaDither
toEnum (8) = DiffuseAlphaDither
toEnum (64) = PreferDither
toEnum (128) = AvoidDither
toEnum (256) = NoOpaqueDetection
toEnum (512) = NoFormatConversion
toEnum n' = HoppyP.error $ "Unknown QtImageConversionFlag numeric value: " ++ HoppyP.show n'
newtype QtImageConversionFlags = QtImageConversionFlags { fromQtImageConversionFlags :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtImageConversionFlags a where
toQtImageConversionFlags :: a -> QtImageConversionFlags
instance IsQtImageConversionFlags (HoppyFC.CInt) where
toQtImageConversionFlags = QtImageConversionFlags
instance IsQtImageConversionFlags (HoppyP.Int) where
toQtImageConversionFlags = QtImageConversionFlags . HoppyFHR.coerceIntegral
instance IsQtImageConversionFlags QtImageConversionFlags where
toQtImageConversionFlags = HoppyP.id
instance IsQtImageConversionFlags QtImageConversionFlag where
toQtImageConversionFlags = QtImageConversionFlags . HoppyFHR.coerceIntegral . HoppyP.fromEnum
auto = QtImageConversionFlags (0)
colorOnly = QtImageConversionFlags (3)
monoOnly = QtImageConversionFlags (2)
orderedDither = QtImageConversionFlags (16)
thresholdDither = QtImageConversionFlags (32)
orderedAlphaDither = QtImageConversionFlags (4)
diffuseAlphaDither = QtImageConversionFlags (8)
preferDither = QtImageConversionFlags (64)
avoidDither = QtImageConversionFlags (128)
noOpaqueDetection = QtImageConversionFlags (256)
noFormatConversion = QtImageConversionFlags (512)
data QtInputMethodHint =
ImhNone
| ImhHiddenText
| ImhSensitiveData
| ImhNoAutoUppercase
| ImhPreferNumbers
| ImhPreferUppercase
| ImhPreferLowercase
| ImhNoPredictiveText
| ImhDate
| ImhTime
| ImhPreferLatin
| ImhMultiLine
| ImhDigitsOnly
| ImhFormattedNumbersOnly
| ImhUppercaseOnly
| ImhLowercaseOnly
| ImhDialableCharactersOnly
| ImhEmailCharactersOnly
| ImhUrlCharactersOnly
| ImhLatinOnly
| ImhExclusiveInputMask
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtInputMethodHint where
fromEnum ImhNone = 0
fromEnum ImhHiddenText = 1
fromEnum ImhSensitiveData = 2
fromEnum ImhNoAutoUppercase = 4
fromEnum ImhPreferNumbers = 8
fromEnum ImhPreferUppercase = 16
fromEnum ImhPreferLowercase = 32
fromEnum ImhNoPredictiveText = 64
fromEnum ImhDate = 128
fromEnum ImhTime = 256
fromEnum ImhPreferLatin = 512
fromEnum ImhMultiLine = 1024
fromEnum ImhDigitsOnly = 65536
fromEnum ImhFormattedNumbersOnly = 131072
fromEnum ImhUppercaseOnly = 262144
fromEnum ImhLowercaseOnly = 524288
fromEnum ImhDialableCharactersOnly = 1048576
fromEnum ImhEmailCharactersOnly = 2097152
fromEnum ImhUrlCharactersOnly = 4194304
fromEnum ImhLatinOnly = 8388608
fromEnum ImhExclusiveInputMask = 4294901760
toEnum (0) = ImhNone
toEnum (1) = ImhHiddenText
toEnum (2) = ImhSensitiveData
toEnum (4) = ImhNoAutoUppercase
toEnum (8) = ImhPreferNumbers
toEnum (16) = ImhPreferUppercase
toEnum (32) = ImhPreferLowercase
toEnum (64) = ImhNoPredictiveText
toEnum (128) = ImhDate
toEnum (256) = ImhTime
toEnum (512) = ImhPreferLatin
toEnum (1024) = ImhMultiLine
toEnum (65536) = ImhDigitsOnly
toEnum (131072) = ImhFormattedNumbersOnly
toEnum (262144) = ImhUppercaseOnly
toEnum (524288) = ImhLowercaseOnly
toEnum (1048576) = ImhDialableCharactersOnly
toEnum (2097152) = ImhEmailCharactersOnly
toEnum (4194304) = ImhUrlCharactersOnly
toEnum (8388608) = ImhLatinOnly
toEnum (4294901760) = ImhExclusiveInputMask
toEnum n' = HoppyP.error $ "Unknown QtInputMethodHint numeric value: " ++ HoppyP.show n'
newtype QtInputMethodHints = QtInputMethodHints { fromQtInputMethodHints :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtInputMethodHints a where
toQtInputMethodHints :: a -> QtInputMethodHints
instance IsQtInputMethodHints (HoppyFC.CInt) where
toQtInputMethodHints = QtInputMethodHints
instance IsQtInputMethodHints (HoppyP.Int) where
toQtInputMethodHints = QtInputMethodHints . HoppyFHR.coerceIntegral
instance IsQtInputMethodHints QtInputMethodHints where
toQtInputMethodHints = HoppyP.id
instance IsQtInputMethodHints QtInputMethodHint where
toQtInputMethodHints = QtInputMethodHints . HoppyFHR.coerceIntegral . HoppyP.fromEnum
imhNone = QtInputMethodHints (0)
imhHiddenText = QtInputMethodHints (1)
imhSensitiveData = QtInputMethodHints (2)
imhNoAutoUppercase = QtInputMethodHints (4)
imhPreferNumbers = QtInputMethodHints (8)
imhPreferUppercase = QtInputMethodHints (16)
imhPreferLowercase = QtInputMethodHints (32)
imhNoPredictiveText = QtInputMethodHints (64)
imhDate = QtInputMethodHints (128)
imhTime = QtInputMethodHints (256)
imhPreferLatin = QtInputMethodHints (512)
imhMultiLine = QtInputMethodHints (1024)
imhDigitsOnly = QtInputMethodHints (65536)
imhFormattedNumbersOnly = QtInputMethodHints (131072)
imhUppercaseOnly = QtInputMethodHints (262144)
imhLowercaseOnly = QtInputMethodHints (524288)
imhDialableCharactersOnly = QtInputMethodHints (1048576)
imhEmailCharactersOnly = QtInputMethodHints (2097152)
imhUrlCharactersOnly = QtInputMethodHints (4194304)
imhLatinOnly = QtInputMethodHints (8388608)
imhExclusiveInputMask = QtInputMethodHints (4294901760)
data QtItemDataRole =
DisplayRole
| DecorationRole
| EditRole
| ToolTipRole
| StatusTipRole
| WhatsThisRole
| SizeHintRole
| FontRole
| TextAlignmentRole
| BackgroundRole
| ForegroundRole
| CheckStateRole
| InitialSortOrderRole
| AccessibleTextRole
| AccessibleDescriptionRole
| UserRole
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtItemDataRole where
fromEnum DisplayRole = 0
fromEnum DecorationRole = 1
fromEnum EditRole = 2
fromEnum ToolTipRole = 3
fromEnum StatusTipRole = 4
fromEnum WhatsThisRole = 5
fromEnum SizeHintRole = 13
fromEnum FontRole = 6
fromEnum TextAlignmentRole = 7
fromEnum BackgroundRole = 8
fromEnum ForegroundRole = 9
fromEnum CheckStateRole = 10
fromEnum InitialSortOrderRole = 14
fromEnum AccessibleTextRole = 11
fromEnum AccessibleDescriptionRole = 12
fromEnum UserRole = 256
toEnum (0) = DisplayRole
toEnum (1) = DecorationRole
toEnum (2) = EditRole
toEnum (3) = ToolTipRole
toEnum (4) = StatusTipRole
toEnum (5) = WhatsThisRole
toEnum (13) = SizeHintRole
toEnum (6) = FontRole
toEnum (7) = TextAlignmentRole
toEnum (8) = BackgroundRole
toEnum (9) = ForegroundRole
toEnum (10) = CheckStateRole
toEnum (14) = InitialSortOrderRole
toEnum (11) = AccessibleTextRole
toEnum (12) = AccessibleDescriptionRole
toEnum (256) = UserRole
toEnum n' = HoppyP.error $ "Unknown QtItemDataRole numeric value: " ++ HoppyP.show n'
data QtItemFlag =
NoItemFlags
| ItemIsSelectable
| ItemIsEditable
| ItemIsDragEnabled
| ItemIsDropEnabled
| ItemIsUserCheckable
| ItemIsEnabled
| ItemIsAutoTristate
| ItemNeverHasChildren
| ItemIsUserTristate
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtItemFlag where
fromEnum NoItemFlags = 0
fromEnum ItemIsSelectable = 1
fromEnum ItemIsEditable = 2
fromEnum ItemIsDragEnabled = 4
fromEnum ItemIsDropEnabled = 8
fromEnum ItemIsUserCheckable = 16
fromEnum ItemIsEnabled = 32
fromEnum ItemIsAutoTristate = 64
fromEnum ItemNeverHasChildren = 128
fromEnum ItemIsUserTristate = 256
toEnum (0) = NoItemFlags
toEnum (1) = ItemIsSelectable
toEnum (2) = ItemIsEditable
toEnum (4) = ItemIsDragEnabled
toEnum (8) = ItemIsDropEnabled
toEnum (16) = ItemIsUserCheckable
toEnum (32) = ItemIsEnabled
toEnum (64) = ItemIsAutoTristate
toEnum (128) = ItemNeverHasChildren
toEnum (256) = ItemIsUserTristate
toEnum n' = HoppyP.error $ "Unknown QtItemFlag numeric value: " ++ HoppyP.show n'
newtype QtItemFlags = QtItemFlags { fromQtItemFlags :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtItemFlags a where
toQtItemFlags :: a -> QtItemFlags
instance IsQtItemFlags (HoppyFC.CInt) where
toQtItemFlags = QtItemFlags
instance IsQtItemFlags (HoppyP.Int) where
toQtItemFlags = QtItemFlags . HoppyFHR.coerceIntegral
instance IsQtItemFlags QtItemFlags where
toQtItemFlags = HoppyP.id
instance IsQtItemFlags QtItemFlag where
toQtItemFlags = QtItemFlags . HoppyFHR.coerceIntegral . HoppyP.fromEnum
noItemFlags = QtItemFlags (0)
itemIsSelectable = QtItemFlags (1)
itemIsEditable = QtItemFlags (2)
itemIsDragEnabled = QtItemFlags (4)
itemIsDropEnabled = QtItemFlags (8)
itemIsUserCheckable = QtItemFlags (16)
itemIsEnabled = QtItemFlags (32)
itemIsAutoTristate = QtItemFlags (64)
itemNeverHasChildren = QtItemFlags (128)
itemIsUserTristate = QtItemFlags (256)
data QtKey =
KeyEscape
| KeyTab
| KeyBacktab
| KeyBackspace
| KeyReturn
| KeyEnter
| KeyInsert
| KeyDelete
| KeyPause
| KeyPrint
| KeySysReq
| KeyClear
| KeyHome
| KeyEnd
| KeyLeft
| KeyUp
| KeyRight
| KeyDown
| KeyPageUp
| KeyPageDown
| KeyShift
| KeyControl
| KeyMeta
| KeyAlt
| KeyAltGr
| KeyCapsLock
| KeyNumLock
| KeyScrollLock
| KeyF1
| KeyF2
| KeyF3
| KeyF4
| KeyF5
| KeyF6
| KeyF7
| KeyF8
| KeyF9
| KeyF10
| KeyF11
| KeyF12
| KeyF13
| KeyF14
| KeyF15
| KeyF16
| KeyF17
| KeyF18
| KeyF19
| KeyF20
| KeyF21
| KeyF22
| KeyF23
| KeyF24
| KeyF25
| KeyF26
| KeyF27
| KeyF28
| KeyF29
| KeyF30
| KeyF31
| KeyF32
| KeyF33
| KeyF34
| KeyF35
| KeySuperL
| KeySuperR
| KeyMenu
| KeyHyperL
| KeyHyperR
| KeyHelp
| KeyDirectionL
| KeyDirectionR
| KeySpace
| KeyExclam
| KeyQuoteDbl
| KeyNumberSign
| KeyDollar
| KeyPercent
| KeyAmpersand
| KeyApostrophe
| KeyParenLeft
| KeyParenRight
| KeyAsterisk
| KeyPlus
| KeyComma
| KeyMinus
| KeyPeriod
| KeySlash
| Key0
| Key1
| Key2
| Key3
| Key4
| Key5
| Key6
| Key7
| Key8
| Key9
| KeyColon
| KeySemicolon
| KeyLess
| KeyEqual
| KeyGreater
| KeyQuestion
| KeyAt
| KeyA
| KeyB
| KeyC
| KeyD
| KeyE
| KeyF
| KeyG
| KeyH
| KeyI
| KeyJ
| KeyK
| KeyL
| KeyM
| KeyN
| KeyO
| KeyP
| KeyQ
| KeyR
| KeyS
| KeyT
| KeyU
| KeyV
| KeyW
| KeyX
| KeyY
| KeyZ
| KeyBracketLeft
| KeyBackslash
| KeyBracketRight
| KeyAsciiCircum
| KeyUnderscore
| KeyQuoteLeft
| KeyBraceLeft
| KeyBar
| KeyBraceRight
| KeyAsciiTilde
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtKey where
fromEnum KeyEscape = 16777216
fromEnum KeyTab = 16777217
fromEnum KeyBacktab = 16777218
fromEnum KeyBackspace = 16777219
fromEnum KeyReturn = 16777220
fromEnum KeyEnter = 16777221
fromEnum KeyInsert = 16777222
fromEnum KeyDelete = 16777223
fromEnum KeyPause = 16777224
fromEnum KeyPrint = 16777225
fromEnum KeySysReq = 16777226
fromEnum KeyClear = 16777227
fromEnum KeyHome = 16777232
fromEnum KeyEnd = 16777233
fromEnum KeyLeft = 16777234
fromEnum KeyUp = 16777235
fromEnum KeyRight = 16777236
fromEnum KeyDown = 16777237
fromEnum KeyPageUp = 16777238
fromEnum KeyPageDown = 16777239
fromEnum KeyShift = 16777248
fromEnum KeyControl = 16777249
fromEnum KeyMeta = 16777250
fromEnum KeyAlt = 16777251
fromEnum KeyAltGr = 16781571
fromEnum KeyCapsLock = 16777252
fromEnum KeyNumLock = 16777253
fromEnum KeyScrollLock = 16777254
fromEnum KeyF1 = 16777264
fromEnum KeyF2 = 16777265
fromEnum KeyF3 = 16777266
fromEnum KeyF4 = 16777267
fromEnum KeyF5 = 16777268
fromEnum KeyF6 = 16777269
fromEnum KeyF7 = 16777270
fromEnum KeyF8 = 16777271
fromEnum KeyF9 = 16777272
fromEnum KeyF10 = 16777273
fromEnum KeyF11 = 16777274
fromEnum KeyF12 = 16777275
fromEnum KeyF13 = 16777276
fromEnum KeyF14 = 16777277
fromEnum KeyF15 = 16777278
fromEnum KeyF16 = 16777279
fromEnum KeyF17 = 16777280
fromEnum KeyF18 = 16777281
fromEnum KeyF19 = 16777282
fromEnum KeyF20 = 16777283
fromEnum KeyF21 = 16777284
fromEnum KeyF22 = 16777285
fromEnum KeyF23 = 16777286
fromEnum KeyF24 = 16777287
fromEnum KeyF25 = 16777288
fromEnum KeyF26 = 16777289
fromEnum KeyF27 = 16777290
fromEnum KeyF28 = 16777291
fromEnum KeyF29 = 16777292
fromEnum KeyF30 = 16777293
fromEnum KeyF31 = 16777294
fromEnum KeyF32 = 16777295
fromEnum KeyF33 = 16777296
fromEnum KeyF34 = 16777297
fromEnum KeyF35 = 16777298
fromEnum KeySuperL = 16777299
fromEnum KeySuperR = 16777300
fromEnum KeyMenu = 16777301
fromEnum KeyHyperL = 16777302
fromEnum KeyHyperR = 16777303
fromEnum KeyHelp = 16777304
fromEnum KeyDirectionL = 16777305
fromEnum KeyDirectionR = 16777312
fromEnum KeySpace = 32
fromEnum KeyExclam = 33
fromEnum KeyQuoteDbl = 34
fromEnum KeyNumberSign = 35
fromEnum KeyDollar = 36
fromEnum KeyPercent = 37
fromEnum KeyAmpersand = 38
fromEnum KeyApostrophe = 39
fromEnum KeyParenLeft = 40
fromEnum KeyParenRight = 41
fromEnum KeyAsterisk = 42
fromEnum KeyPlus = 43
fromEnum KeyComma = 44
fromEnum KeyMinus = 45
fromEnum KeyPeriod = 46
fromEnum KeySlash = 47
fromEnum Key0 = 48
fromEnum Key1 = 49
fromEnum Key2 = 50
fromEnum Key3 = 51
fromEnum Key4 = 52
fromEnum Key5 = 53
fromEnum Key6 = 54
fromEnum Key7 = 55
fromEnum Key8 = 56
fromEnum Key9 = 57
fromEnum KeyColon = 58
fromEnum KeySemicolon = 59
fromEnum KeyLess = 60
fromEnum KeyEqual = 61
fromEnum KeyGreater = 62
fromEnum KeyQuestion = 63
fromEnum KeyAt = 64
fromEnum KeyA = 65
fromEnum KeyB = 66
fromEnum KeyC = 67
fromEnum KeyD = 68
fromEnum KeyE = 69
fromEnum KeyF = 70
fromEnum KeyG = 71
fromEnum KeyH = 72
fromEnum KeyI = 73
fromEnum KeyJ = 74
fromEnum KeyK = 75
fromEnum KeyL = 76
fromEnum KeyM = 77
fromEnum KeyN = 78
fromEnum KeyO = 79
fromEnum KeyP = 80
fromEnum KeyQ = 81
fromEnum KeyR = 82
fromEnum KeyS = 83
fromEnum KeyT = 84
fromEnum KeyU = 85
fromEnum KeyV = 86
fromEnum KeyW = 87
fromEnum KeyX = 88
fromEnum KeyY = 89
fromEnum KeyZ = 90
fromEnum KeyBracketLeft = 91
fromEnum KeyBackslash = 92
fromEnum KeyBracketRight = 93
fromEnum KeyAsciiCircum = 94
fromEnum KeyUnderscore = 95
fromEnum KeyQuoteLeft = 96
fromEnum KeyBraceLeft = 123
fromEnum KeyBar = 124
fromEnum KeyBraceRight = 125
fromEnum KeyAsciiTilde = 126
toEnum (16777216) = KeyEscape
toEnum (16777217) = KeyTab
toEnum (16777218) = KeyBacktab
toEnum (16777219) = KeyBackspace
toEnum (16777220) = KeyReturn
toEnum (16777221) = KeyEnter
toEnum (16777222) = KeyInsert
toEnum (16777223) = KeyDelete
toEnum (16777224) = KeyPause
toEnum (16777225) = KeyPrint
toEnum (16777226) = KeySysReq
toEnum (16777227) = KeyClear
toEnum (16777232) = KeyHome
toEnum (16777233) = KeyEnd
toEnum (16777234) = KeyLeft
toEnum (16777235) = KeyUp
toEnum (16777236) = KeyRight
toEnum (16777237) = KeyDown
toEnum (16777238) = KeyPageUp
toEnum (16777239) = KeyPageDown
toEnum (16777248) = KeyShift
toEnum (16777249) = KeyControl
toEnum (16777250) = KeyMeta
toEnum (16777251) = KeyAlt
toEnum (16781571) = KeyAltGr
toEnum (16777252) = KeyCapsLock
toEnum (16777253) = KeyNumLock
toEnum (16777254) = KeyScrollLock
toEnum (16777264) = KeyF1
toEnum (16777265) = KeyF2
toEnum (16777266) = KeyF3
toEnum (16777267) = KeyF4
toEnum (16777268) = KeyF5
toEnum (16777269) = KeyF6
toEnum (16777270) = KeyF7
toEnum (16777271) = KeyF8
toEnum (16777272) = KeyF9
toEnum (16777273) = KeyF10
toEnum (16777274) = KeyF11
toEnum (16777275) = KeyF12
toEnum (16777276) = KeyF13
toEnum (16777277) = KeyF14
toEnum (16777278) = KeyF15
toEnum (16777279) = KeyF16
toEnum (16777280) = KeyF17
toEnum (16777281) = KeyF18
toEnum (16777282) = KeyF19
toEnum (16777283) = KeyF20
toEnum (16777284) = KeyF21
toEnum (16777285) = KeyF22
toEnum (16777286) = KeyF23
toEnum (16777287) = KeyF24
toEnum (16777288) = KeyF25
toEnum (16777289) = KeyF26
toEnum (16777290) = KeyF27
toEnum (16777291) = KeyF28
toEnum (16777292) = KeyF29
toEnum (16777293) = KeyF30
toEnum (16777294) = KeyF31
toEnum (16777295) = KeyF32
toEnum (16777296) = KeyF33
toEnum (16777297) = KeyF34
toEnum (16777298) = KeyF35
toEnum (16777299) = KeySuperL
toEnum (16777300) = KeySuperR
toEnum (16777301) = KeyMenu
toEnum (16777302) = KeyHyperL
toEnum (16777303) = KeyHyperR
toEnum (16777304) = KeyHelp
toEnum (16777305) = KeyDirectionL
toEnum (16777312) = KeyDirectionR
toEnum (32) = KeySpace
toEnum (33) = KeyExclam
toEnum (34) = KeyQuoteDbl
toEnum (35) = KeyNumberSign
toEnum (36) = KeyDollar
toEnum (37) = KeyPercent
toEnum (38) = KeyAmpersand
toEnum (39) = KeyApostrophe
toEnum (40) = KeyParenLeft
toEnum (41) = KeyParenRight
toEnum (42) = KeyAsterisk
toEnum (43) = KeyPlus
toEnum (44) = KeyComma
toEnum (45) = KeyMinus
toEnum (46) = KeyPeriod
toEnum (47) = KeySlash
toEnum (48) = Key0
toEnum (49) = Key1
toEnum (50) = Key2
toEnum (51) = Key3
toEnum (52) = Key4
toEnum (53) = Key5
toEnum (54) = Key6
toEnum (55) = Key7
toEnum (56) = Key8
toEnum (57) = Key9
toEnum (58) = KeyColon
toEnum (59) = KeySemicolon
toEnum (60) = KeyLess
toEnum (61) = KeyEqual
toEnum (62) = KeyGreater
toEnum (63) = KeyQuestion
toEnum (64) = KeyAt
toEnum (65) = KeyA
toEnum (66) = KeyB
toEnum (67) = KeyC
toEnum (68) = KeyD
toEnum (69) = KeyE
toEnum (70) = KeyF
toEnum (71) = KeyG
toEnum (72) = KeyH
toEnum (73) = KeyI
toEnum (74) = KeyJ
toEnum (75) = KeyK
toEnum (76) = KeyL
toEnum (77) = KeyM
toEnum (78) = KeyN
toEnum (79) = KeyO
toEnum (80) = KeyP
toEnum (81) = KeyQ
toEnum (82) = KeyR
toEnum (83) = KeyS
toEnum (84) = KeyT
toEnum (85) = KeyU
toEnum (86) = KeyV
toEnum (87) = KeyW
toEnum (88) = KeyX
toEnum (89) = KeyY
toEnum (90) = KeyZ
toEnum (91) = KeyBracketLeft
toEnum (92) = KeyBackslash
toEnum (93) = KeyBracketRight
toEnum (94) = KeyAsciiCircum
toEnum (95) = KeyUnderscore
toEnum (96) = KeyQuoteLeft
toEnum (123) = KeyBraceLeft
toEnum (124) = KeyBar
toEnum (125) = KeyBraceRight
toEnum (126) = KeyAsciiTilde
toEnum n' = HoppyP.error $ "Unknown QtKey numeric value: " ++ HoppyP.show n'
data QtKeyboardModifier =
NoModifier
| ShiftModifier
| ControlModifier
| AltModifier
| MetaModifier
| KeypadModifier
| GroupSwitchModifier
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtKeyboardModifier where
fromEnum NoModifier = 0
fromEnum ShiftModifier = 33554432
fromEnum ControlModifier = 67108864
fromEnum AltModifier = 134217728
fromEnum MetaModifier = 268435456
fromEnum KeypadModifier = 536870912
fromEnum GroupSwitchModifier = 1073741824
toEnum (0) = NoModifier
toEnum (33554432) = ShiftModifier
toEnum (67108864) = ControlModifier
toEnum (134217728) = AltModifier
toEnum (268435456) = MetaModifier
toEnum (536870912) = KeypadModifier
toEnum (1073741824) = GroupSwitchModifier
toEnum n' = HoppyP.error $ "Unknown QtKeyboardModifier numeric value: " ++ HoppyP.show n'
newtype QtKeyboardModifiers = QtKeyboardModifiers { fromQtKeyboardModifiers :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtKeyboardModifiers a where
toQtKeyboardModifiers :: a -> QtKeyboardModifiers
instance IsQtKeyboardModifiers (HoppyFC.CInt) where
toQtKeyboardModifiers = QtKeyboardModifiers
instance IsQtKeyboardModifiers (HoppyP.Int) where
toQtKeyboardModifiers = QtKeyboardModifiers . HoppyFHR.coerceIntegral
instance IsQtKeyboardModifiers QtKeyboardModifiers where
toQtKeyboardModifiers = HoppyP.id
instance IsQtKeyboardModifiers QtKeyboardModifier where
toQtKeyboardModifiers = QtKeyboardModifiers . HoppyFHR.coerceIntegral . HoppyP.fromEnum
noModifier = QtKeyboardModifiers (0)
shiftModifier = QtKeyboardModifiers (33554432)
controlModifier = QtKeyboardModifiers (67108864)
altModifier = QtKeyboardModifiers (134217728)
metaModifier = QtKeyboardModifiers (268435456)
keypadModifier = QtKeyboardModifiers (536870912)
groupSwitchModifier = QtKeyboardModifiers (1073741824)
data QtLayoutDirection =
LeftToRight
| RightToLeft
| LayoutDirectionAuto
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtLayoutDirection where
fromEnum LeftToRight = 0
fromEnum RightToLeft = 1
fromEnum LayoutDirectionAuto = 2
toEnum (0) = LeftToRight
toEnum (1) = RightToLeft
toEnum (2) = LayoutDirectionAuto
toEnum n' = HoppyP.error $ "Unknown QtLayoutDirection numeric value: " ++ HoppyP.show n'
data QtMaskMode =
MaskInColor
| MaskOutColor
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtMaskMode where
fromEnum MaskInColor = 0
fromEnum MaskOutColor = 1
toEnum (0) = MaskInColor
toEnum (1) = MaskOutColor
toEnum n' = HoppyP.error $ "Unknown QtMaskMode numeric value: " ++ HoppyP.show n'
data QtMatchFlag =
MatchExactly
| MatchFixedString
| MatchContains
| MatchStartsWith
| MatchEndsWith
| MatchCaseSensitive
| MatchRegExp
| MatchWildcard
| MatchWrap
| MatchRecursive
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtMatchFlag where
fromEnum MatchExactly = 0
fromEnum MatchFixedString = 8
fromEnum MatchContains = 1
fromEnum MatchStartsWith = 2
fromEnum MatchEndsWith = 3
fromEnum MatchCaseSensitive = 16
fromEnum MatchRegExp = 4
fromEnum MatchWildcard = 5
fromEnum MatchWrap = 32
fromEnum MatchRecursive = 64
toEnum (0) = MatchExactly
toEnum (8) = MatchFixedString
toEnum (1) = MatchContains
toEnum (2) = MatchStartsWith
toEnum (3) = MatchEndsWith
toEnum (16) = MatchCaseSensitive
toEnum (4) = MatchRegExp
toEnum (5) = MatchWildcard
toEnum (32) = MatchWrap
toEnum (64) = MatchRecursive
toEnum n' = HoppyP.error $ "Unknown QtMatchFlag numeric value: " ++ HoppyP.show n'
newtype QtMatchFlags = QtMatchFlags { fromQtMatchFlags :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtMatchFlags a where
toQtMatchFlags :: a -> QtMatchFlags
instance IsQtMatchFlags (HoppyFC.CInt) where
toQtMatchFlags = QtMatchFlags
instance IsQtMatchFlags (HoppyP.Int) where
toQtMatchFlags = QtMatchFlags . HoppyFHR.coerceIntegral
instance IsQtMatchFlags QtMatchFlags where
toQtMatchFlags = HoppyP.id
instance IsQtMatchFlags QtMatchFlag where
toQtMatchFlags = QtMatchFlags . HoppyFHR.coerceIntegral . HoppyP.fromEnum
matchExactly = QtMatchFlags (0)
matchFixedString = QtMatchFlags (8)
matchContains = QtMatchFlags (1)
matchStartsWith = QtMatchFlags (2)
matchEndsWith = QtMatchFlags (3)
matchCaseSensitive = QtMatchFlags (16)
matchRegExp = QtMatchFlags (4)
matchWildcard = QtMatchFlags (5)
matchWrap = QtMatchFlags (32)
matchRecursive = QtMatchFlags (64)
data QtMouseButton =
NoButton
| AllButtons
| LeftButton
| RightButton
| MiddleButton
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtMouseButton where
fromEnum NoButton = 0
fromEnum AllButtons = 134217727
fromEnum LeftButton = 1
fromEnum RightButton = 2
fromEnum MiddleButton = 4
toEnum (0) = NoButton
toEnum (134217727) = AllButtons
toEnum (1) = LeftButton
toEnum (2) = RightButton
toEnum (4) = MiddleButton
toEnum n' = HoppyP.error $ "Unknown QtMouseButton numeric value: " ++ HoppyP.show n'
newtype QtMouseButtons = QtMouseButtons { fromQtMouseButtons :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtMouseButtons a where
toQtMouseButtons :: a -> QtMouseButtons
instance IsQtMouseButtons (HoppyFC.CInt) where
toQtMouseButtons = QtMouseButtons
instance IsQtMouseButtons (HoppyP.Int) where
toQtMouseButtons = QtMouseButtons . HoppyFHR.coerceIntegral
instance IsQtMouseButtons QtMouseButtons where
toQtMouseButtons = HoppyP.id
instance IsQtMouseButtons QtMouseButton where
toQtMouseButtons = QtMouseButtons . HoppyFHR.coerceIntegral . HoppyP.fromEnum
noButton = QtMouseButtons (0)
allButtons = QtMouseButtons (134217727)
leftButton = QtMouseButtons (1)
rightButton = QtMouseButtons (2)
middleButton = QtMouseButtons (4)
data QtMouseEventFlag =
MouseEventCreatedDoubleClick
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtMouseEventFlag where
fromEnum MouseEventCreatedDoubleClick = 1
toEnum (1) = MouseEventCreatedDoubleClick
toEnum n' = HoppyP.error $ "Unknown QtMouseEventFlag numeric value: " ++ HoppyP.show n'
newtype QtMouseEventFlags = QtMouseEventFlags { fromQtMouseEventFlags :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtMouseEventFlags a where
toQtMouseEventFlags :: a -> QtMouseEventFlags
instance IsQtMouseEventFlags (HoppyFC.CInt) where
toQtMouseEventFlags = QtMouseEventFlags
instance IsQtMouseEventFlags (HoppyP.Int) where
toQtMouseEventFlags = QtMouseEventFlags . HoppyFHR.coerceIntegral
instance IsQtMouseEventFlags QtMouseEventFlags where
toQtMouseEventFlags = HoppyP.id
instance IsQtMouseEventFlags QtMouseEventFlag where
toQtMouseEventFlags = QtMouseEventFlags . HoppyFHR.coerceIntegral . HoppyP.fromEnum
mouseEventCreatedDoubleClick = QtMouseEventFlags (1)
data QtMouseEventSource =
MouseEventNotSynthesized
| MouseEventSynthesizedBySystem
| MouseEventSynthesizedByQt
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtMouseEventSource where
fromEnum MouseEventNotSynthesized = 0
fromEnum MouseEventSynthesizedBySystem = 1
fromEnum MouseEventSynthesizedByQt = 2
toEnum (0) = MouseEventNotSynthesized
toEnum (1) = MouseEventSynthesizedBySystem
toEnum (2) = MouseEventSynthesizedByQt
toEnum n' = HoppyP.error $ "Unknown QtMouseEventSource numeric value: " ++ HoppyP.show n'
data QtNavigationMode =
NavigationModeNone
| NavigationModeKeypadTabOrder
| NavigationModeKeypadDirectional
| NavigationModeCursorAuto
| NavigationModeCursorForceVisible
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtNavigationMode where
fromEnum NavigationModeNone = 0
fromEnum NavigationModeKeypadTabOrder = 1
fromEnum NavigationModeKeypadDirectional = 2
fromEnum NavigationModeCursorAuto = 3
fromEnum NavigationModeCursorForceVisible = 4
toEnum (0) = NavigationModeNone
toEnum (1) = NavigationModeKeypadTabOrder
toEnum (2) = NavigationModeKeypadDirectional
toEnum (3) = NavigationModeCursorAuto
toEnum (4) = NavigationModeCursorForceVisible
toEnum n' = HoppyP.error $ "Unknown QtNavigationMode numeric value: " ++ HoppyP.show n'
data QtOrientation =
Horizontal
| Vertical
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtOrientation where
fromEnum Horizontal = 1
fromEnum Vertical = 2
toEnum (1) = Horizontal
toEnum (2) = Vertical
toEnum n' = HoppyP.error $ "Unknown QtOrientation numeric value: " ++ HoppyP.show n'
newtype QtOrientations = QtOrientations { fromQtOrientations :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtOrientations a where
toQtOrientations :: a -> QtOrientations
instance IsQtOrientations (HoppyFC.CInt) where
toQtOrientations = QtOrientations
instance IsQtOrientations (HoppyP.Int) where
toQtOrientations = QtOrientations . HoppyFHR.coerceIntegral
instance IsQtOrientations QtOrientations where
toQtOrientations = HoppyP.id
instance IsQtOrientations QtOrientation where
toQtOrientations = QtOrientations . HoppyFHR.coerceIntegral . HoppyP.fromEnum
horizontal = QtOrientations (1)
vertical = QtOrientations (2)
data QtScreenOrientation =
PrimaryOrientation
| PortraitOrientation
| LandscapeOrientation
| InvertedPortraitOrientation
| InvertedLandscapeOrientation
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtScreenOrientation where
fromEnum PrimaryOrientation = 0
fromEnum PortraitOrientation = 1
fromEnum LandscapeOrientation = 2
fromEnum InvertedPortraitOrientation = 4
fromEnum InvertedLandscapeOrientation = 8
toEnum (0) = PrimaryOrientation
toEnum (1) = PortraitOrientation
toEnum (2) = LandscapeOrientation
toEnum (4) = InvertedPortraitOrientation
toEnum (8) = InvertedLandscapeOrientation
toEnum n' = HoppyP.error $ "Unknown QtScreenOrientation numeric value: " ++ HoppyP.show n'
newtype QtScreenOrientations = QtScreenOrientations { fromQtScreenOrientations :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtScreenOrientations a where
toQtScreenOrientations :: a -> QtScreenOrientations
instance IsQtScreenOrientations (HoppyFC.CInt) where
toQtScreenOrientations = QtScreenOrientations
instance IsQtScreenOrientations (HoppyP.Int) where
toQtScreenOrientations = QtScreenOrientations . HoppyFHR.coerceIntegral
instance IsQtScreenOrientations QtScreenOrientations where
toQtScreenOrientations = HoppyP.id
instance IsQtScreenOrientations QtScreenOrientation where
toQtScreenOrientations = QtScreenOrientations . HoppyFHR.coerceIntegral . HoppyP.fromEnum
primaryOrientation = QtScreenOrientations (0)
portraitOrientation = QtScreenOrientations (1)
landscapeOrientation = QtScreenOrientations (2)
invertedPortraitOrientation = QtScreenOrientations (4)
invertedLandscapeOrientation = QtScreenOrientations (8)
data QtScrollBarPolicy =
ScrollBarAsNeeded
| ScrollBarAlwaysOff
| ScrollBarAlwaysOn
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtScrollBarPolicy where
fromEnum ScrollBarAsNeeded = 0
fromEnum ScrollBarAlwaysOff = 1
fromEnum ScrollBarAlwaysOn = 2
toEnum (0) = ScrollBarAsNeeded
toEnum (1) = ScrollBarAlwaysOff
toEnum (2) = ScrollBarAlwaysOn
toEnum n' = HoppyP.error $ "Unknown QtScrollBarPolicy numeric value: " ++ HoppyP.show n'
data QtScrollPhase =
ScrollBegin
| ScrollUpdate
| ScrollEnd
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtScrollPhase where
fromEnum ScrollBegin = 1
fromEnum ScrollUpdate = 2
fromEnum ScrollEnd = 3
toEnum (1) = ScrollBegin
toEnum (2) = ScrollUpdate
toEnum (3) = ScrollEnd
toEnum n' = HoppyP.error $ "Unknown QtScrollPhase numeric value: " ++ HoppyP.show n'
data QtSortOrder =
AscendingOrder
| DescendingOrder
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtSortOrder where
fromEnum AscendingOrder = 0
fromEnum DescendingOrder = 1
toEnum (0) = AscendingOrder
toEnum (1) = DescendingOrder
toEnum n' = HoppyP.error $ "Unknown QtSortOrder numeric value: " ++ HoppyP.show n'
data QtTextElideMode =
ElideLeft
| ElideRight
| ElideMiddle
| ElideNone
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtTextElideMode where
fromEnum ElideLeft = 0
fromEnum ElideRight = 1
fromEnum ElideMiddle = 2
fromEnum ElideNone = 3
toEnum (0) = ElideLeft
toEnum (1) = ElideRight
toEnum (2) = ElideMiddle
toEnum (3) = ElideNone
toEnum n' = HoppyP.error $ "Unknown QtTextElideMode numeric value: " ++ HoppyP.show n'
data QtTextFormat =
PlainText
| RichText
| AutoText
| LogText
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtTextFormat where
fromEnum PlainText = 0
fromEnum RichText = 1
fromEnum AutoText = 2
fromEnum LogText = 3
toEnum (0) = PlainText
toEnum (1) = RichText
toEnum (2) = AutoText
toEnum (3) = LogText
toEnum n' = HoppyP.error $ "Unknown QtTextFormat numeric value: " ++ HoppyP.show n'
data QtTextInteractionFlag =
NoTextInteraction
| TextSelectableByMouse
| TextSelectableByKeyboard
| LinksAccessibleByMouse
| LinksAccessibleByKeyboard
| TextEditable
| TextEditorInteraction
| TextBrowserInteraction
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtTextInteractionFlag where
fromEnum NoTextInteraction = 0
fromEnum TextSelectableByMouse = 1
fromEnum TextSelectableByKeyboard = 2
fromEnum LinksAccessibleByMouse = 4
fromEnum LinksAccessibleByKeyboard = 8
fromEnum TextEditable = 16
fromEnum TextEditorInteraction = 19
fromEnum TextBrowserInteraction = 13
toEnum (0) = NoTextInteraction
toEnum (1) = TextSelectableByMouse
toEnum (2) = TextSelectableByKeyboard
toEnum (4) = LinksAccessibleByMouse
toEnum (8) = LinksAccessibleByKeyboard
toEnum (16) = TextEditable
toEnum (19) = TextEditorInteraction
toEnum (13) = TextBrowserInteraction
toEnum n' = HoppyP.error $ "Unknown QtTextInteractionFlag numeric value: " ++ HoppyP.show n'
newtype QtTextInteractionFlags = QtTextInteractionFlags { fromQtTextInteractionFlags :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtTextInteractionFlags a where
toQtTextInteractionFlags :: a -> QtTextInteractionFlags
instance IsQtTextInteractionFlags (HoppyFC.CInt) where
toQtTextInteractionFlags = QtTextInteractionFlags
instance IsQtTextInteractionFlags (HoppyP.Int) where
toQtTextInteractionFlags = QtTextInteractionFlags . HoppyFHR.coerceIntegral
instance IsQtTextInteractionFlags QtTextInteractionFlags where
toQtTextInteractionFlags = HoppyP.id
instance IsQtTextInteractionFlags QtTextInteractionFlag where
toQtTextInteractionFlags = QtTextInteractionFlags . HoppyFHR.coerceIntegral . HoppyP.fromEnum
noTextInteraction = QtTextInteractionFlags (0)
textSelectableByMouse = QtTextInteractionFlags (1)
textSelectableByKeyboard = QtTextInteractionFlags (2)
linksAccessibleByMouse = QtTextInteractionFlags (4)
linksAccessibleByKeyboard = QtTextInteractionFlags (8)
textEditable = QtTextInteractionFlags (16)
textEditorInteraction = QtTextInteractionFlags (19)
textBrowserInteraction = QtTextInteractionFlags (13)
data QtToolBarArea =
NoToolBarArea
| LeftToolBarArea
| RightToolBarArea
| TopToolBarArea
| BottomToolBarArea
| AllToolBarAreas
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtToolBarArea where
fromEnum NoToolBarArea = 0
fromEnum LeftToolBarArea = 1
fromEnum RightToolBarArea = 2
fromEnum TopToolBarArea = 4
fromEnum BottomToolBarArea = 8
fromEnum AllToolBarAreas = 15
toEnum (0) = NoToolBarArea
toEnum (1) = LeftToolBarArea
toEnum (2) = RightToolBarArea
toEnum (4) = TopToolBarArea
toEnum (8) = BottomToolBarArea
toEnum (15) = AllToolBarAreas
toEnum n' = HoppyP.error $ "Unknown QtToolBarArea numeric value: " ++ HoppyP.show n'
newtype QtToolBarAreas = QtToolBarAreas { fromQtToolBarAreas :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtToolBarAreas a where
toQtToolBarAreas :: a -> QtToolBarAreas
instance IsQtToolBarAreas (HoppyFC.CInt) where
toQtToolBarAreas = QtToolBarAreas
instance IsQtToolBarAreas (HoppyP.Int) where
toQtToolBarAreas = QtToolBarAreas . HoppyFHR.coerceIntegral
instance IsQtToolBarAreas QtToolBarAreas where
toQtToolBarAreas = HoppyP.id
instance IsQtToolBarAreas QtToolBarArea where
toQtToolBarAreas = QtToolBarAreas . HoppyFHR.coerceIntegral . HoppyP.fromEnum
noToolBarArea = QtToolBarAreas (0)
leftToolBarArea = QtToolBarAreas (1)
rightToolBarArea = QtToolBarAreas (2)
topToolBarArea = QtToolBarAreas (4)
bottomToolBarArea = QtToolBarAreas (8)
allToolBarAreas = QtToolBarAreas (15)
data QtToolButtonStyle =
ToolButtonIconOnly
| ToolButtonTextOnly
| ToolButtonTextBesideIcon
| ToolButtonTextUnderIcon
| ToolButtonFollowStyle
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtToolButtonStyle where
fromEnum ToolButtonIconOnly = 0
fromEnum ToolButtonTextOnly = 1
fromEnum ToolButtonTextBesideIcon = 2
fromEnum ToolButtonTextUnderIcon = 3
fromEnum ToolButtonFollowStyle = 4
toEnum (0) = ToolButtonIconOnly
toEnum (1) = ToolButtonTextOnly
toEnum (2) = ToolButtonTextBesideIcon
toEnum (3) = ToolButtonTextUnderIcon
toEnum (4) = ToolButtonFollowStyle
toEnum n' = HoppyP.error $ "Unknown QtToolButtonStyle numeric value: " ++ HoppyP.show n'
data QtTransformationMode =
FastTransformation
| SmoothTransformation
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtTransformationMode where
fromEnum FastTransformation = 0
fromEnum SmoothTransformation = 1
toEnum (0) = FastTransformation
toEnum (1) = SmoothTransformation
toEnum n' = HoppyP.error $ "Unknown QtTransformationMode numeric value: " ++ HoppyP.show n'
newtype QtWindowFlags = QtWindowFlags { fromQtWindowFlags :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtWindowFlags a where
toQtWindowFlags :: a -> QtWindowFlags
instance IsQtWindowFlags (HoppyFC.CInt) where
toQtWindowFlags = QtWindowFlags
instance IsQtWindowFlags (HoppyP.Int) where
toQtWindowFlags = QtWindowFlags . HoppyFHR.coerceIntegral
instance IsQtWindowFlags QtWindowFlags where
toQtWindowFlags = HoppyP.id
instance IsQtWindowFlags QtWindowType where
toQtWindowFlags = QtWindowFlags . HoppyFHR.coerceIntegral . HoppyP.fromEnum
widget = QtWindowFlags (0)
window = QtWindowFlags (1)
dialog = QtWindowFlags (3)
sheet = QtWindowFlags (5)
drawer = QtWindowFlags (7)
popup = QtWindowFlags (9)
tool = QtWindowFlags (11)
toolTip = QtWindowFlags (13)
splashScreen = QtWindowFlags (15)
desktop = QtWindowFlags (17)
subWindow = QtWindowFlags (19)
foreignWindow = QtWindowFlags (33)
coverWindow = QtWindowFlags (65)
data QtWindowModality =
NonModal
| WindowModal
| ApplicationModal
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtWindowModality where
fromEnum NonModal = 0
fromEnum WindowModal = 1
fromEnum ApplicationModal = 2
toEnum (0) = NonModal
toEnum (1) = WindowModal
toEnum (2) = ApplicationModal
toEnum n' = HoppyP.error $ "Unknown QtWindowModality numeric value: " ++ HoppyP.show n'
data QtWindowState =
WindowNoState
| WindowMinimized
| WindowMaximized
| WindowFullScreen
| WindowActive
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtWindowState where
fromEnum WindowNoState = 0
fromEnum WindowMinimized = 1
fromEnum WindowMaximized = 2
fromEnum WindowFullScreen = 4
fromEnum WindowActive = 8
toEnum (0) = WindowNoState
toEnum (1) = WindowMinimized
toEnum (2) = WindowMaximized
toEnum (4) = WindowFullScreen
toEnum (8) = WindowActive
toEnum n' = HoppyP.error $ "Unknown QtWindowState numeric value: " ++ HoppyP.show n'
newtype QtWindowStates = QtWindowStates { fromQtWindowStates :: HoppyFC.CInt }
deriving (HoppyDB.Bits, HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
class IsQtWindowStates a where
toQtWindowStates :: a -> QtWindowStates
instance IsQtWindowStates (HoppyFC.CInt) where
toQtWindowStates = QtWindowStates
instance IsQtWindowStates (HoppyP.Int) where
toQtWindowStates = QtWindowStates . HoppyFHR.coerceIntegral
instance IsQtWindowStates QtWindowStates where
toQtWindowStates = HoppyP.id
instance IsQtWindowStates QtWindowState where
toQtWindowStates = QtWindowStates . HoppyFHR.coerceIntegral . HoppyP.fromEnum
windowNoState = QtWindowStates (0)
windowMinimized = QtWindowStates (1)
windowMaximized = QtWindowStates (2)
windowFullScreen = QtWindowStates (4)
windowActive = QtWindowStates (8)
data QtWindowType =
Widget
| Window
| Dialog
| Sheet
| Drawer
| Popup
| Tool
| ToolTip
| SplashScreen
| Desktop
| SubWindow
| ForeignWindow
| CoverWindow
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QtWindowType where
fromEnum Widget = 0
fromEnum Window = 1
fromEnum Dialog = 3
fromEnum Sheet = 5
fromEnum Drawer = 7
fromEnum Popup = 9
fromEnum Tool = 11
fromEnum ToolTip = 13
fromEnum SplashScreen = 15
fromEnum Desktop = 17
fromEnum SubWindow = 19
fromEnum ForeignWindow = 33
fromEnum CoverWindow = 65
toEnum (0) = Widget
toEnum (1) = Window
toEnum (3) = Dialog
toEnum (5) = Sheet
toEnum (7) = Drawer
toEnum (9) = Popup
toEnum (11) = Tool
toEnum (13) = ToolTip
toEnum (15) = SplashScreen
toEnum (17) = Desktop
toEnum (19) = SubWindow
toEnum (33) = ForeignWindow
toEnum (65) = CoverWindow
toEnum n' = HoppyP.error $ "Unknown QtWindowType numeric value: " ++ HoppyP.show n'