{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-} ---------- GENERATED FILE, EDITS WILL BE LOST ---------- module Graphics.UI.Qtah.Generated.Core.Types ( QtAlignment, IsQtAlignment (..), alignAbsolute, alignBottom, alignHCenter, alignJustify, alignLeft, alignRight, alignTop, alignVCenter, QtAlignmentFlag (..), QtAnchorPoint (..), QtApplicationAttribute (..), QtApplicationState (..), QtApplicationStates, IsQtApplicationStates (..), applicationActive, applicationHidden, applicationInactive, applicationSuspended, QtArrowType (..), QtAspectRatioMode (..), QtAxis (..), QtBGMode (..), QtBrushStyle (..), QtCaseSensitivity (..), QtCheckState (..), QtChecksumType (..), QtClipOperation (..), QtConnectionType (..), QtContextMenuPolicy (..), QtCoordinateSystem (..), QtCorner (..), QtCursorMoveStyle (..), QtCursorShape (..), QtDateFormat (..), QtDayOfWeek (..), QtDockWidgetArea (..), QtDockWidgetAreas, IsQtDockWidgetAreas (..), allDockWidgetAreas, bottomDockWidgetArea, leftDockWidgetArea, noDockWidgetArea, rightDockWidgetArea, topDockWidgetArea, QtDropAction (..), QtDropActions, IsQtDropActions (..), actionMask, copyAction, ignoreAction, linkAction, moveAction, targetMoveAction, QtEdge (..), QtEdges, IsQtEdges (..), bottomEdge, leftEdge, rightEdge, topEdge, QtEnterKeyType (..), QtEventPriority (..), QtFillRule (..), QtFindChildOption (..), QtFindChildOptions, IsQtFindChildOptions (..), findChildrenRecursively, findDirectChildrenOnly, QtFocusPolicy (..), QtFocusReason (..), QtGestureFlag (..), QtGestureFlags, IsQtGestureFlags (..), dontStartGestureOnChildren, ignoredGesturesPropagateToParent, receivePartialGestures, QtGestureState (..), QtGestureStates, IsQtGestureStates (..), gestureCanceled, gestureFinished, gestureStarted, gestureUpdated, noGesture, QtGestureType (..), QtGlobalColor (..), QtHitTestAccuracy (..), QtImageConversionFlag (..), QtImageConversionFlags, IsQtImageConversionFlags (..), autoColor, avoidDither, colorOnly, diffuseAlphaDither, diffuseDither, monoOnly, noFormatConversion, noOpaqueDetection, orderedAlphaDither, orderedDither, preferDither, thresholdAlphaDither, thresholdDither, QtInputMethodHint (..), QtInputMethodHints, IsQtInputMethodHints (..), imhDate, imhDialableCharactersOnly, imhDigitsOnly, imhEmailCharactersOnly, imhExclusiveInputMask, imhFormattedNumbersOnly, imhHiddenText, imhLatinOnly, imhLowercaseOnly, imhMultiLine, imhNoAutoUppercase, imhNoPredictiveText, imhNone, imhPreferLatin, imhPreferLowercase, imhPreferNumbers, imhPreferUppercase, imhSensitiveData, imhTime, imhUppercaseOnly, imhUrlCharactersOnly, QtInputMethodQueries, IsQtInputMethodQueries (..), imAbsolutePosition, imAnchorPosition, imAnchorRectangle, imCurrentSelection, imCursorPosition, imCursorRectangle, imEnabled, imEnterKeyType, imFont, imHints, imInputItemClipRectangle, imMaximumTextLength, imMicroFocus, imPlatformData, imPreferredLanguage, imSurroundingText, imTextAfterCursor, imTextBeforeCursor, QtInputMethodQuery (..), QtItemDataRole (..), QtItemFlag (..), QtItemFlags, IsQtItemFlags (..), itemIsAutoTristate, itemIsDragEnabled, itemIsDropEnabled, itemIsEditable, itemIsEnabled, itemIsSelectable, itemIsUserCheckable, itemIsUserTristate, itemNeverHasChildren, noItemFlags, QtItemSelectionMode (..), QtItemSelectionOperation (..), QtKey (..), QtKeyboardModifier (..), QtKeyboardModifiers, IsQtKeyboardModifiers (..), altModifier, controlModifier, groupSwitchModifier, keypadModifier, metaModifier, noModifier, shiftModifier, QtLayoutDirection (..), QtMaskMode (..), QtMatchFlag (..), QtMatchFlags, IsQtMatchFlags (..), matchCaseSensitive, matchContains, matchEndsWith, matchExactly, matchFixedString, matchRecursive, matchRegExp, matchStartsWith, matchWildcard, matchWrap, QtMouseButton (..), QtMouseButtons, IsQtMouseButtons (..), allButtons, backButton, extraButton1, extraButton10, extraButton11, extraButton12, extraButton13, extraButton14, extraButton15, extraButton16, extraButton17, extraButton18, extraButton19, extraButton2, extraButton20, extraButton21, extraButton22, extraButton23, extraButton24, extraButton3, extraButton4, extraButton5, extraButton6, extraButton7, extraButton8, extraButton9, forwardButton, leftButton, midButton, middleButton, noButton, rightButton, taskButton, xButton1, xButton2, QtMouseEventFlag (..), QtMouseEventFlags, IsQtMouseEventFlags (..), mouseEventCreatedDoubleClick, QtMouseEventSource (..), QtMsgType (..), QtNativeGestureType (..), QtNavigationMode (..), QtOrientation (..), QtOrientations, IsQtOrientations (..), horizontal, vertical, QtPenCapStyle (..), QtPenJoinStyle (..), QtPenStyle (..), QtScreenOrientation (..), QtScreenOrientations, IsQtScreenOrientations (..), invertedLandscapeOrientation, invertedPortraitOrientation, landscapeOrientation, portraitOrientation, primaryOrientation, QtScrollBarPolicy (..), QtScrollPhase (..), QtShortcutContext (..), QtSizeHint (..), QtSizeMode (..), QtSortOrder (..), QtTabFocusBehavior (..), QtTextElideMode (..), QtTextFlag (..), QtTextFormat (..), QtTextInteractionFlag (..), QtTextInteractionFlags, IsQtTextInteractionFlags (..), linksAccessibleByKeyboard, linksAccessibleByMouse, noTextInteraction, textBrowserInteraction, textEditable, textEditorInteraction, textSelectableByKeyboard, textSelectableByMouse, QtTileRule (..), QtTimeSpec (..), QtTimerType (..), QtToolBarArea (..), QtToolBarAreas, IsQtToolBarAreas (..), allToolBarAreas, bottomToolBarArea, leftToolBarArea, noToolBarArea, rightToolBarArea, topToolBarArea, QtToolButtonStyle (..), QtTouchPointState (..), QtTouchPointStates, IsQtTouchPointStates (..), touchPointMoved, touchPointPressed, touchPointReleased, touchPointStationary, QtTransformationMode (..), QtUIEffect (..), QtWhiteSpaceMode (..), QtWidgetAttribute (..), QtWindowFlags, IsQtWindowFlags (..), coverWindow, desktop, dialog, drawer, foreignWindow, popup, sheet, splashScreen, subWindow, tool, toolTip, widget, window, QtWindowFrameSection (..), QtWindowModality (..), QtWindowState (..), QtWindowStates, IsQtWindowStates (..), windowActive, windowFullScreen, windowMaximized, windowMinimized, windowNoState, QtWindowType (..), ) where import Data.Bits ((.&.), (.|.)) import qualified Data.Bits as QtahDB import qualified Foreign.C as HoppyFC import qualified Foreign.Hoppy.Runtime as HoppyFHR import qualified Foreign.Hoppy.Runtime as QtahFHR import qualified Graphics.UI.Qtah.Flags as QtahFlags import Prelude (($), (.), (==)) import qualified Prelude as HoppyP import qualified Prelude as QtahP newtype QtAlignment = QtAlignment (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtAlignmentFlag QtAlignment where enumToFlags = QtAlignment . QtahFHR.fromCppEnum flagsToEnum (QtAlignment x') = QtahFHR.toCppEnum x' class IsQtAlignment a where toQtAlignment :: a -> QtAlignment instance IsQtAlignment QtAlignment where toQtAlignment = QtahP.id instance IsQtAlignment QtAlignmentFlag where toQtAlignment = QtahFlags.enumToFlags instance IsQtAlignment (HoppyFC.CInt) where toQtAlignment = QtahFlags.numToFlags alignAbsolute :: QtAlignment alignAbsolute = QtAlignment (16) alignBottom :: QtAlignment alignBottom = QtAlignment (64) alignHCenter :: QtAlignment alignHCenter = QtAlignment (4) alignJustify :: QtAlignment alignJustify = QtAlignment (8) alignLeft :: QtAlignment alignLeft = QtAlignment (1) alignRight :: QtAlignment alignRight = QtAlignment (2) alignTop :: QtAlignment alignTop = QtAlignment (32) alignVCenter :: QtAlignment alignVCenter = QtAlignment (128) instance QtahDB.Bits QtAlignment where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtAlignmentFlag = AlignLeft | AlignRight | AlignHCenter | AlignJustify | AlignTop | AlignBottom | AlignVCenter | AlignAbsolute | UnknownQtAlignmentFlag (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtAlignmentFlag where fromCppEnum AlignLeft = 1 fromCppEnum AlignRight = 2 fromCppEnum AlignHCenter = 4 fromCppEnum AlignJustify = 8 fromCppEnum AlignTop = 32 fromCppEnum AlignBottom = 64 fromCppEnum AlignVCenter = 128 fromCppEnum AlignAbsolute = 16 fromCppEnum (UnknownQtAlignmentFlag n) = n toCppEnum (1) = AlignLeft toCppEnum (2) = AlignRight toCppEnum (4) = AlignHCenter toCppEnum (8) = AlignJustify toCppEnum (16) = AlignAbsolute toCppEnum (32) = AlignTop toCppEnum (64) = AlignBottom toCppEnum (128) = AlignVCenter toCppEnum n = UnknownQtAlignmentFlag n instance HoppyP.Eq QtAlignmentFlag where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtAlignmentFlag where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtAnchorPoint = AnchorLeft | AnchorHorizontalCenter | AnchorRight | AnchorTop | AnchorVerticalCenter | AnchorBottom | UnknownQtAnchorPoint (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtAnchorPoint where fromCppEnum AnchorLeft = 0 fromCppEnum AnchorHorizontalCenter = 1 fromCppEnum AnchorRight = 2 fromCppEnum AnchorTop = 3 fromCppEnum AnchorVerticalCenter = 4 fromCppEnum AnchorBottom = 5 fromCppEnum (UnknownQtAnchorPoint n) = n toCppEnum (0) = AnchorLeft toCppEnum (1) = AnchorHorizontalCenter toCppEnum (2) = AnchorRight toCppEnum (3) = AnchorTop toCppEnum (4) = AnchorVerticalCenter toCppEnum (5) = AnchorBottom toCppEnum n = UnknownQtAnchorPoint n instance HoppyP.Eq QtAnchorPoint where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtAnchorPoint where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtApplicationAttribute = AaDontShowIconsInMenus | AaDontShowShortcutsInContextMenus | AaNativeWindows | AaDontCreateNativeWidgetSiblings | AaPluginApplication | AaDontUseNativeMenuBar | AaMacDontSwapCtrlAndMeta | AaUse96Dpi | AaSynthesizeTouchForUnhandledMouseEvents | AaSynthesizeMouseForUnhandledTouchEvents | AaUseHighDpiPixmaps | AaForceRasterWidgets | AaUseDesktopOpenGl | AaUseOpenGles | AaUseSoftwareOpenGl | AaShareOpenGlContexts | AaSetPalette | AaEnableHighDpiScaling | AaDisableHighDpiScaling | AaUseStyleSheetPropagationInWidgetStyles | AaDontUseNativeDialogs | AaSynthesizeMouseForUnhandledTabletEvents | AaCompressHighFrequencyEvents | AaCompressTabletEvents | AaDontCheckOpenGlContextThreadAffinity | AaDisableShaderDiskCache | AaDisableWindowContextHelpButton | UnknownQtApplicationAttribute (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtApplicationAttribute where fromCppEnum AaDontShowIconsInMenus = 2 fromCppEnum AaDontShowShortcutsInContextMenus = 28 fromCppEnum AaNativeWindows = 3 fromCppEnum AaDontCreateNativeWidgetSiblings = 4 fromCppEnum AaPluginApplication = 5 fromCppEnum AaDontUseNativeMenuBar = 6 fromCppEnum AaMacDontSwapCtrlAndMeta = 7 fromCppEnum AaUse96Dpi = 8 fromCppEnum AaSynthesizeTouchForUnhandledMouseEvents = 11 fromCppEnum AaSynthesizeMouseForUnhandledTouchEvents = 12 fromCppEnum AaUseHighDpiPixmaps = 13 fromCppEnum AaForceRasterWidgets = 14 fromCppEnum AaUseDesktopOpenGl = 15 fromCppEnum AaUseOpenGles = 16 fromCppEnum AaUseSoftwareOpenGl = 17 fromCppEnum AaShareOpenGlContexts = 18 fromCppEnum AaSetPalette = 19 fromCppEnum AaEnableHighDpiScaling = 20 fromCppEnum AaDisableHighDpiScaling = 21 fromCppEnum AaUseStyleSheetPropagationInWidgetStyles = 22 fromCppEnum AaDontUseNativeDialogs = 23 fromCppEnum AaSynthesizeMouseForUnhandledTabletEvents = 24 fromCppEnum AaCompressHighFrequencyEvents = 25 fromCppEnum AaCompressTabletEvents = 29 fromCppEnum AaDontCheckOpenGlContextThreadAffinity = 26 fromCppEnum AaDisableShaderDiskCache = 27 fromCppEnum AaDisableWindowContextHelpButton = 30 fromCppEnum (UnknownQtApplicationAttribute n) = n toCppEnum (2) = AaDontShowIconsInMenus toCppEnum (3) = AaNativeWindows toCppEnum (4) = AaDontCreateNativeWidgetSiblings toCppEnum (5) = AaPluginApplication toCppEnum (6) = AaDontUseNativeMenuBar toCppEnum (7) = AaMacDontSwapCtrlAndMeta toCppEnum (8) = AaUse96Dpi toCppEnum (11) = AaSynthesizeTouchForUnhandledMouseEvents toCppEnum (12) = AaSynthesizeMouseForUnhandledTouchEvents toCppEnum (13) = AaUseHighDpiPixmaps toCppEnum (14) = AaForceRasterWidgets toCppEnum (15) = AaUseDesktopOpenGl toCppEnum (16) = AaUseOpenGles toCppEnum (17) = AaUseSoftwareOpenGl toCppEnum (18) = AaShareOpenGlContexts toCppEnum (19) = AaSetPalette toCppEnum (20) = AaEnableHighDpiScaling toCppEnum (21) = AaDisableHighDpiScaling toCppEnum (22) = AaUseStyleSheetPropagationInWidgetStyles toCppEnum (23) = AaDontUseNativeDialogs toCppEnum (24) = AaSynthesizeMouseForUnhandledTabletEvents toCppEnum (25) = AaCompressHighFrequencyEvents toCppEnum (26) = AaDontCheckOpenGlContextThreadAffinity toCppEnum (27) = AaDisableShaderDiskCache toCppEnum (28) = AaDontShowShortcutsInContextMenus toCppEnum (29) = AaCompressTabletEvents toCppEnum (30) = AaDisableWindowContextHelpButton toCppEnum n = UnknownQtApplicationAttribute n instance HoppyP.Eq QtApplicationAttribute where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtApplicationAttribute where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtApplicationState = ApplicationSuspended | ApplicationHidden | ApplicationInactive | ApplicationActive | UnknownQtApplicationState (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtApplicationState where fromCppEnum ApplicationSuspended = 0 fromCppEnum ApplicationHidden = 1 fromCppEnum ApplicationInactive = 2 fromCppEnum ApplicationActive = 4 fromCppEnum (UnknownQtApplicationState n) = n toCppEnum (0) = ApplicationSuspended toCppEnum (1) = ApplicationHidden toCppEnum (2) = ApplicationInactive toCppEnum (4) = ApplicationActive toCppEnum n = UnknownQtApplicationState n instance HoppyP.Eq QtApplicationState where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtApplicationState where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtApplicationStates = QtApplicationStates (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtApplicationState QtApplicationStates where enumToFlags = QtApplicationStates . QtahFHR.fromCppEnum flagsToEnum (QtApplicationStates x') = QtahFHR.toCppEnum x' class IsQtApplicationStates a where toQtApplicationStates :: a -> QtApplicationStates instance IsQtApplicationStates QtApplicationStates where toQtApplicationStates = QtahP.id instance IsQtApplicationStates QtApplicationState where toQtApplicationStates = QtahFlags.enumToFlags instance IsQtApplicationStates (HoppyFC.CInt) where toQtApplicationStates = QtahFlags.numToFlags applicationActive :: QtApplicationStates applicationActive = QtApplicationStates (4) applicationHidden :: QtApplicationStates applicationHidden = QtApplicationStates (1) applicationInactive :: QtApplicationStates applicationInactive = QtApplicationStates (2) applicationSuspended :: QtApplicationStates applicationSuspended = QtApplicationStates (0) instance QtahDB.Bits QtApplicationStates where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtArrowType = NoArrow | UpArrow | DownArrow | LeftArrow | RightArrow | UnknownQtArrowType (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtArrowType where fromCppEnum NoArrow = 0 fromCppEnum UpArrow = 1 fromCppEnum DownArrow = 2 fromCppEnum LeftArrow = 3 fromCppEnum RightArrow = 4 fromCppEnum (UnknownQtArrowType n) = n toCppEnum (0) = NoArrow toCppEnum (1) = UpArrow toCppEnum (2) = DownArrow toCppEnum (3) = LeftArrow toCppEnum (4) = RightArrow toCppEnum n = UnknownQtArrowType n instance HoppyP.Eq QtArrowType where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtArrowType where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtAspectRatioMode = IgnoreAspectRatio | KeepAspectRatio | KeepAspectRatioByExpanding | UnknownQtAspectRatioMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtAspectRatioMode where fromCppEnum IgnoreAspectRatio = 0 fromCppEnum KeepAspectRatio = 1 fromCppEnum KeepAspectRatioByExpanding = 2 fromCppEnum (UnknownQtAspectRatioMode n) = n toCppEnum (0) = IgnoreAspectRatio toCppEnum (1) = KeepAspectRatio toCppEnum (2) = KeepAspectRatioByExpanding toCppEnum n = UnknownQtAspectRatioMode n instance HoppyP.Eq QtAspectRatioMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtAspectRatioMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtAxis = XAxis | YAxis | ZAxis | UnknownQtAxis (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtAxis where fromCppEnum XAxis = 0 fromCppEnum YAxis = 1 fromCppEnum ZAxis = 2 fromCppEnum (UnknownQtAxis n) = n toCppEnum (0) = XAxis toCppEnum (1) = YAxis toCppEnum (2) = ZAxis toCppEnum n = UnknownQtAxis n instance HoppyP.Eq QtAxis where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtAxis where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtBGMode = TransparentMode | OpaqueMode | UnknownQtBgMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtBGMode where fromCppEnum TransparentMode = 0 fromCppEnum OpaqueMode = 1 fromCppEnum (UnknownQtBgMode n) = n toCppEnum (0) = TransparentMode toCppEnum (1) = OpaqueMode toCppEnum n = UnknownQtBgMode n instance HoppyP.Eq QtBGMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtBGMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtBrushStyle = NoBrush | SolidPattern | Dense1Pattern | Dense2Pattern | Dense3Pattern | Dense4Pattern | Dense5Pattern | Dense6Pattern | Dense7Pattern | HorPattern | VerPattern | CrossPattern | BDiagPattern | FDiagPattern | DiagCrossPattern | LinearGradientPattern | RadialGradientPattern | ConicalGradientPattern | TexturePattern | UnknownQtBrushStyle (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtBrushStyle where fromCppEnum NoBrush = 0 fromCppEnum SolidPattern = 1 fromCppEnum Dense1Pattern = 2 fromCppEnum Dense2Pattern = 3 fromCppEnum Dense3Pattern = 4 fromCppEnum Dense4Pattern = 5 fromCppEnum Dense5Pattern = 6 fromCppEnum Dense6Pattern = 7 fromCppEnum Dense7Pattern = 8 fromCppEnum HorPattern = 9 fromCppEnum VerPattern = 10 fromCppEnum CrossPattern = 11 fromCppEnum BDiagPattern = 12 fromCppEnum FDiagPattern = 13 fromCppEnum DiagCrossPattern = 14 fromCppEnum LinearGradientPattern = 15 fromCppEnum RadialGradientPattern = 16 fromCppEnum ConicalGradientPattern = 17 fromCppEnum TexturePattern = 24 fromCppEnum (UnknownQtBrushStyle n) = n toCppEnum (0) = NoBrush toCppEnum (1) = SolidPattern toCppEnum (2) = Dense1Pattern toCppEnum (3) = Dense2Pattern toCppEnum (4) = Dense3Pattern toCppEnum (5) = Dense4Pattern toCppEnum (6) = Dense5Pattern toCppEnum (7) = Dense6Pattern toCppEnum (8) = Dense7Pattern toCppEnum (9) = HorPattern toCppEnum (10) = VerPattern toCppEnum (11) = CrossPattern toCppEnum (12) = BDiagPattern toCppEnum (13) = FDiagPattern toCppEnum (14) = DiagCrossPattern toCppEnum (15) = LinearGradientPattern toCppEnum (16) = RadialGradientPattern toCppEnum (17) = ConicalGradientPattern toCppEnum (24) = TexturePattern toCppEnum n = UnknownQtBrushStyle n instance HoppyP.Eq QtBrushStyle where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtBrushStyle where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtCaseSensitivity = CaseInsensitive | CaseSensitive | UnknownQtCaseSensitivity (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCaseSensitivity where fromCppEnum CaseInsensitive = 0 fromCppEnum CaseSensitive = 1 fromCppEnum (UnknownQtCaseSensitivity n) = n toCppEnum (0) = CaseInsensitive toCppEnum (1) = CaseSensitive toCppEnum n = UnknownQtCaseSensitivity n instance HoppyP.Eq QtCaseSensitivity where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtCaseSensitivity where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtCheckState = Unchecked | PartiallyChecked | Checked | UnknownQtCheckState (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCheckState where fromCppEnum Unchecked = 0 fromCppEnum PartiallyChecked = 1 fromCppEnum Checked = 2 fromCppEnum (UnknownQtCheckState n) = n toCppEnum (0) = Unchecked toCppEnum (1) = PartiallyChecked toCppEnum (2) = Checked toCppEnum n = UnknownQtCheckState n instance HoppyP.Eq QtCheckState where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtCheckState where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtChecksumType = ChecksumIso3309 | ChecksumItuV41 | UnknownQtChecksumType (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtChecksumType where fromCppEnum ChecksumIso3309 = 0 fromCppEnum ChecksumItuV41 = 1 fromCppEnum (UnknownQtChecksumType n) = n toCppEnum (0) = ChecksumIso3309 toCppEnum (1) = ChecksumItuV41 toCppEnum n = UnknownQtChecksumType n instance HoppyP.Eq QtChecksumType where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtChecksumType where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtClipOperation = NoClip | ReplaceClip | IntersectClip | UnknownQtClipOperation (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtClipOperation where fromCppEnum NoClip = 0 fromCppEnum ReplaceClip = 1 fromCppEnum IntersectClip = 2 fromCppEnum (UnknownQtClipOperation n) = n toCppEnum (0) = NoClip toCppEnum (1) = ReplaceClip toCppEnum (2) = IntersectClip toCppEnum n = UnknownQtClipOperation n instance HoppyP.Eq QtClipOperation where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtClipOperation where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtConnectionType = AutoConnection | DirectConnection | QueuedConnection | BlockingQueuedConnection | UniqueConnection | UnknownQtConnectionType (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtConnectionType where fromCppEnum AutoConnection = 0 fromCppEnum DirectConnection = 1 fromCppEnum QueuedConnection = 2 fromCppEnum BlockingQueuedConnection = 3 fromCppEnum UniqueConnection = 128 fromCppEnum (UnknownQtConnectionType n) = n toCppEnum (0) = AutoConnection toCppEnum (1) = DirectConnection toCppEnum (2) = QueuedConnection toCppEnum (3) = BlockingQueuedConnection toCppEnum (128) = UniqueConnection toCppEnum n = UnknownQtConnectionType n instance HoppyP.Eq QtConnectionType where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtConnectionType where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtContextMenuPolicy = NoContextMenu | PreventContextMenu | DefaultContextMenu | ActionsContextMenu | CustomContextMenu | UnknownQtContextMenuPolicy (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtContextMenuPolicy where fromCppEnum NoContextMenu = 0 fromCppEnum PreventContextMenu = 4 fromCppEnum DefaultContextMenu = 1 fromCppEnum ActionsContextMenu = 2 fromCppEnum CustomContextMenu = 3 fromCppEnum (UnknownQtContextMenuPolicy n) = n toCppEnum (0) = NoContextMenu toCppEnum (1) = DefaultContextMenu toCppEnum (2) = ActionsContextMenu toCppEnum (3) = CustomContextMenu toCppEnum (4) = PreventContextMenu toCppEnum n = UnknownQtContextMenuPolicy n instance HoppyP.Eq QtContextMenuPolicy where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtContextMenuPolicy where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtCoordinateSystem = DeviceCoordinates | LogicalCoordinates | UnknownQtCoordinateSystem (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCoordinateSystem where fromCppEnum DeviceCoordinates = 0 fromCppEnum LogicalCoordinates = 1 fromCppEnum (UnknownQtCoordinateSystem n) = n toCppEnum (0) = DeviceCoordinates toCppEnum (1) = LogicalCoordinates toCppEnum n = UnknownQtCoordinateSystem n instance HoppyP.Eq QtCoordinateSystem where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtCoordinateSystem where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtCorner = TopLeftCorner | TopRightCorner | BottomLeftCorner | BottomRightCorner | UnknownQtCorner (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCorner where fromCppEnum TopLeftCorner = 0 fromCppEnum TopRightCorner = 1 fromCppEnum BottomLeftCorner = 2 fromCppEnum BottomRightCorner = 3 fromCppEnum (UnknownQtCorner n) = n toCppEnum (0) = TopLeftCorner toCppEnum (1) = TopRightCorner toCppEnum (2) = BottomLeftCorner toCppEnum (3) = BottomRightCorner toCppEnum n = UnknownQtCorner n instance HoppyP.Eq QtCorner where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtCorner where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtCursorMoveStyle = LogicalMoveStyle | VisualMoveStyle | UnknownQtCursorMoveStyle (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCursorMoveStyle where fromCppEnum LogicalMoveStyle = 0 fromCppEnum VisualMoveStyle = 1 fromCppEnum (UnknownQtCursorMoveStyle n) = n toCppEnum (0) = LogicalMoveStyle toCppEnum (1) = VisualMoveStyle toCppEnum n = UnknownQtCursorMoveStyle n instance HoppyP.Eq QtCursorMoveStyle where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtCursorMoveStyle where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) 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 | UnknownQtCursorShape (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCursorShape where fromCppEnum ArrowCursor = 0 fromCppEnum UpArrowCursor = 1 fromCppEnum CrossCursor = 2 fromCppEnum WaitCursor = 3 fromCppEnum IBeamCursor = 4 fromCppEnum SizeVerCursor = 5 fromCppEnum SizeHorCursor = 6 fromCppEnum SizeBDiagCursor = 7 fromCppEnum SizeFDiagCursor = 8 fromCppEnum SizeAllCursor = 9 fromCppEnum BlankCursor = 10 fromCppEnum SplitVCursor = 11 fromCppEnum SplitHCursor = 12 fromCppEnum PointingHandCursor = 13 fromCppEnum ForbiddenCursor = 14 fromCppEnum WhatsThisCursor = 15 fromCppEnum BusyCursor = 16 fromCppEnum OpenHandCursor = 17 fromCppEnum ClosedHandCursor = 18 fromCppEnum DragCopyCursor = 19 fromCppEnum DragMoveCursor = 20 fromCppEnum DragLinkCursor = 21 fromCppEnum BitmapCursor = 24 fromCppEnum (UnknownQtCursorShape n) = n toCppEnum (0) = ArrowCursor toCppEnum (1) = UpArrowCursor toCppEnum (2) = CrossCursor toCppEnum (3) = WaitCursor toCppEnum (4) = IBeamCursor toCppEnum (5) = SizeVerCursor toCppEnum (6) = SizeHorCursor toCppEnum (7) = SizeBDiagCursor toCppEnum (8) = SizeFDiagCursor toCppEnum (9) = SizeAllCursor toCppEnum (10) = BlankCursor toCppEnum (11) = SplitVCursor toCppEnum (12) = SplitHCursor toCppEnum (13) = PointingHandCursor toCppEnum (14) = ForbiddenCursor toCppEnum (15) = WhatsThisCursor toCppEnum (16) = BusyCursor toCppEnum (17) = OpenHandCursor toCppEnum (18) = ClosedHandCursor toCppEnum (19) = DragCopyCursor toCppEnum (20) = DragMoveCursor toCppEnum (21) = DragLinkCursor toCppEnum (24) = BitmapCursor toCppEnum n = UnknownQtCursorShape n instance HoppyP.Eq QtCursorShape where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtCursorShape where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtDateFormat = TextDate | IsoDate | IsoDateWithMs | SystemLocaleShortDate | SystemLocaleLongDate | DefaultLocaleShortDate | DefaultLocaleLongDate | SystemLocaleDate | LocaleDate | Rfc2822Date | UnknownQtDateFormat (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtDateFormat where fromCppEnum TextDate = 0 fromCppEnum IsoDate = 1 fromCppEnum IsoDateWithMs = 9 fromCppEnum SystemLocaleShortDate = 4 fromCppEnum SystemLocaleLongDate = 5 fromCppEnum DefaultLocaleShortDate = 6 fromCppEnum DefaultLocaleLongDate = 7 fromCppEnum SystemLocaleDate = 2 fromCppEnum LocaleDate = 3 fromCppEnum Rfc2822Date = 8 fromCppEnum (UnknownQtDateFormat n) = n toCppEnum (0) = TextDate toCppEnum (1) = IsoDate toCppEnum (2) = SystemLocaleDate toCppEnum (3) = LocaleDate toCppEnum (4) = SystemLocaleShortDate toCppEnum (5) = SystemLocaleLongDate toCppEnum (6) = DefaultLocaleShortDate toCppEnum (7) = DefaultLocaleLongDate toCppEnum (8) = Rfc2822Date toCppEnum (9) = IsoDateWithMs toCppEnum n = UnknownQtDateFormat n instance HoppyP.Eq QtDateFormat where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtDateFormat where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtDayOfWeek = Monday | Tuesday | Wednesday | Thursday | Friday | Saturday | Sunday | UnknownQtDayOfWeek (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtDayOfWeek where fromCppEnum Monday = 1 fromCppEnum Tuesday = 2 fromCppEnum Wednesday = 3 fromCppEnum Thursday = 4 fromCppEnum Friday = 5 fromCppEnum Saturday = 6 fromCppEnum Sunday = 7 fromCppEnum (UnknownQtDayOfWeek n) = n toCppEnum (1) = Monday toCppEnum (2) = Tuesday toCppEnum (3) = Wednesday toCppEnum (4) = Thursday toCppEnum (5) = Friday toCppEnum (6) = Saturday toCppEnum (7) = Sunday toCppEnum n = UnknownQtDayOfWeek n instance HoppyP.Eq QtDayOfWeek where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtDayOfWeek where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtDockWidgetArea = NoDockWidgetArea | LeftDockWidgetArea | RightDockWidgetArea | TopDockWidgetArea | BottomDockWidgetArea | AllDockWidgetAreas | UnknownQtDockWidgetArea (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtDockWidgetArea where fromCppEnum NoDockWidgetArea = 0 fromCppEnum LeftDockWidgetArea = 1 fromCppEnum RightDockWidgetArea = 2 fromCppEnum TopDockWidgetArea = 4 fromCppEnum BottomDockWidgetArea = 8 fromCppEnum AllDockWidgetAreas = 15 fromCppEnum (UnknownQtDockWidgetArea n) = n toCppEnum (0) = NoDockWidgetArea toCppEnum (1) = LeftDockWidgetArea toCppEnum (2) = RightDockWidgetArea toCppEnum (4) = TopDockWidgetArea toCppEnum (8) = BottomDockWidgetArea toCppEnum (15) = AllDockWidgetAreas toCppEnum n = UnknownQtDockWidgetArea n instance HoppyP.Eq QtDockWidgetArea where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtDockWidgetArea where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtDockWidgetAreas = QtDockWidgetAreas (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtDockWidgetArea QtDockWidgetAreas where enumToFlags = QtDockWidgetAreas . QtahFHR.fromCppEnum flagsToEnum (QtDockWidgetAreas x') = QtahFHR.toCppEnum x' class IsQtDockWidgetAreas a where toQtDockWidgetAreas :: a -> QtDockWidgetAreas instance IsQtDockWidgetAreas QtDockWidgetAreas where toQtDockWidgetAreas = QtahP.id instance IsQtDockWidgetAreas QtDockWidgetArea where toQtDockWidgetAreas = QtahFlags.enumToFlags instance IsQtDockWidgetAreas (HoppyFC.CInt) where toQtDockWidgetAreas = QtahFlags.numToFlags allDockWidgetAreas :: QtDockWidgetAreas allDockWidgetAreas = QtDockWidgetAreas (15) bottomDockWidgetArea :: QtDockWidgetAreas bottomDockWidgetArea = QtDockWidgetAreas (8) leftDockWidgetArea :: QtDockWidgetAreas leftDockWidgetArea = QtDockWidgetAreas (1) noDockWidgetArea :: QtDockWidgetAreas noDockWidgetArea = QtDockWidgetAreas (0) rightDockWidgetArea :: QtDockWidgetAreas rightDockWidgetArea = QtDockWidgetAreas (2) topDockWidgetArea :: QtDockWidgetAreas topDockWidgetArea = QtDockWidgetAreas (4) instance QtahDB.Bits QtDockWidgetAreas where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtDropAction = IgnoreAction | CopyAction | MoveAction | LinkAction | ActionMask | TargetMoveAction | UnknownQtDropAction (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtDropAction where fromCppEnum IgnoreAction = 0 fromCppEnum CopyAction = 1 fromCppEnum MoveAction = 2 fromCppEnum LinkAction = 4 fromCppEnum ActionMask = 255 fromCppEnum TargetMoveAction = 32770 fromCppEnum (UnknownQtDropAction n) = n toCppEnum (0) = IgnoreAction toCppEnum (1) = CopyAction toCppEnum (2) = MoveAction toCppEnum (4) = LinkAction toCppEnum (255) = ActionMask toCppEnum (32770) = TargetMoveAction toCppEnum n = UnknownQtDropAction n instance HoppyP.Eq QtDropAction where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtDropAction where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtDropActions = QtDropActions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtDropAction QtDropActions where enumToFlags = QtDropActions . QtahFHR.fromCppEnum flagsToEnum (QtDropActions x') = QtahFHR.toCppEnum x' class IsQtDropActions a where toQtDropActions :: a -> QtDropActions instance IsQtDropActions QtDropActions where toQtDropActions = QtahP.id instance IsQtDropActions QtDropAction where toQtDropActions = QtahFlags.enumToFlags instance IsQtDropActions (HoppyFC.CInt) where toQtDropActions = QtahFlags.numToFlags actionMask :: QtDropActions actionMask = QtDropActions (255) copyAction :: QtDropActions copyAction = QtDropActions (1) ignoreAction :: QtDropActions ignoreAction = QtDropActions (0) linkAction :: QtDropActions linkAction = QtDropActions (4) moveAction :: QtDropActions moveAction = QtDropActions (2) targetMoveAction :: QtDropActions targetMoveAction = QtDropActions (32770) instance QtahDB.Bits QtDropActions where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtEdge = TopEdge | LeftEdge | RightEdge | BottomEdge | UnknownQtEdge (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtEdge where fromCppEnum TopEdge = 1 fromCppEnum LeftEdge = 2 fromCppEnum RightEdge = 4 fromCppEnum BottomEdge = 8 fromCppEnum (UnknownQtEdge n) = n toCppEnum (1) = TopEdge toCppEnum (2) = LeftEdge toCppEnum (4) = RightEdge toCppEnum (8) = BottomEdge toCppEnum n = UnknownQtEdge n instance HoppyP.Eq QtEdge where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtEdge where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtEdges = QtEdges (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtEdge QtEdges where enumToFlags = QtEdges . QtahFHR.fromCppEnum flagsToEnum (QtEdges x') = QtahFHR.toCppEnum x' class IsQtEdges a where toQtEdges :: a -> QtEdges instance IsQtEdges QtEdges where toQtEdges = QtahP.id instance IsQtEdges QtEdge where toQtEdges = QtahFlags.enumToFlags instance IsQtEdges (HoppyFC.CInt) where toQtEdges = QtahFlags.numToFlags bottomEdge :: QtEdges bottomEdge = QtEdges (8) leftEdge :: QtEdges leftEdge = QtEdges (2) rightEdge :: QtEdges rightEdge = QtEdges (4) topEdge :: QtEdges topEdge = QtEdges (1) instance QtahDB.Bits QtEdges where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtEnterKeyType = EnterKeyDefault | EnterKeyReturn | EnterKeyDone | EnterKeyGo | EnterKeySend | EnterKeySearch | EnterKeyNext | EnterKeyPrevious | UnknownQtEnterKeyType (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtEnterKeyType where fromCppEnum EnterKeyDefault = 0 fromCppEnum EnterKeyReturn = 1 fromCppEnum EnterKeyDone = 2 fromCppEnum EnterKeyGo = 3 fromCppEnum EnterKeySend = 4 fromCppEnum EnterKeySearch = 5 fromCppEnum EnterKeyNext = 6 fromCppEnum EnterKeyPrevious = 7 fromCppEnum (UnknownQtEnterKeyType n) = n toCppEnum (0) = EnterKeyDefault toCppEnum (1) = EnterKeyReturn toCppEnum (2) = EnterKeyDone toCppEnum (3) = EnterKeyGo toCppEnum (4) = EnterKeySend toCppEnum (5) = EnterKeySearch toCppEnum (6) = EnterKeyNext toCppEnum (7) = EnterKeyPrevious toCppEnum n = UnknownQtEnterKeyType n instance HoppyP.Eq QtEnterKeyType where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtEnterKeyType where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtEventPriority = HighEventPriority | NormalEventPriority | LowEventPriority | UnknownQtEventPriority (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtEventPriority where fromCppEnum HighEventPriority = 1 fromCppEnum NormalEventPriority = 0 fromCppEnum LowEventPriority = -1 fromCppEnum (UnknownQtEventPriority n) = n toCppEnum (-1) = LowEventPriority toCppEnum (0) = NormalEventPriority toCppEnum (1) = HighEventPriority toCppEnum n = UnknownQtEventPriority n instance HoppyP.Eq QtEventPriority where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtEventPriority where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtFillRule = OddEvenFill | WindingFill | UnknownQtFillRule (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtFillRule where fromCppEnum OddEvenFill = 0 fromCppEnum WindingFill = 1 fromCppEnum (UnknownQtFillRule n) = n toCppEnum (0) = OddEvenFill toCppEnum (1) = WindingFill toCppEnum n = UnknownQtFillRule n instance HoppyP.Eq QtFillRule where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtFillRule where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtFindChildOption = FindDirectChildrenOnly | FindChildrenRecursively | UnknownQtFindChildOption (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtFindChildOption where fromCppEnum FindDirectChildrenOnly = 0 fromCppEnum FindChildrenRecursively = 1 fromCppEnum (UnknownQtFindChildOption n) = n toCppEnum (0) = FindDirectChildrenOnly toCppEnum (1) = FindChildrenRecursively toCppEnum n = UnknownQtFindChildOption n instance HoppyP.Eq QtFindChildOption where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtFindChildOption where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtFindChildOptions = QtFindChildOptions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtFindChildOption QtFindChildOptions where enumToFlags = QtFindChildOptions . QtahFHR.fromCppEnum flagsToEnum (QtFindChildOptions x') = QtahFHR.toCppEnum x' class IsQtFindChildOptions a where toQtFindChildOptions :: a -> QtFindChildOptions instance IsQtFindChildOptions QtFindChildOptions where toQtFindChildOptions = QtahP.id instance IsQtFindChildOptions QtFindChildOption where toQtFindChildOptions = QtahFlags.enumToFlags instance IsQtFindChildOptions (HoppyFC.CInt) where toQtFindChildOptions = QtahFlags.numToFlags findChildrenRecursively :: QtFindChildOptions findChildrenRecursively = QtFindChildOptions (1) findDirectChildrenOnly :: QtFindChildOptions findDirectChildrenOnly = QtFindChildOptions (0) instance QtahDB.Bits QtFindChildOptions where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtFocusPolicy = TabFocus | ClickFocus | StrongFocus | WheelFocus | NoFocus | UnknownQtFocusPolicy (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtFocusPolicy where fromCppEnum TabFocus = 1 fromCppEnum ClickFocus = 2 fromCppEnum StrongFocus = 11 fromCppEnum WheelFocus = 15 fromCppEnum NoFocus = 0 fromCppEnum (UnknownQtFocusPolicy n) = n toCppEnum (0) = NoFocus toCppEnum (1) = TabFocus toCppEnum (2) = ClickFocus toCppEnum (11) = StrongFocus toCppEnum (15) = WheelFocus toCppEnum n = UnknownQtFocusPolicy n instance HoppyP.Eq QtFocusPolicy where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtFocusPolicy where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtFocusReason = MouseFocusReason | TabFocusReason | BacktabFocusReason | ActiveWindowFocusReason | PopupFocusReason | ShortcutFocusReason | MenuBarFocusReason | OtherFocusReason | UnknownQtFocusReason (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtFocusReason where fromCppEnum MouseFocusReason = 0 fromCppEnum TabFocusReason = 1 fromCppEnum BacktabFocusReason = 2 fromCppEnum ActiveWindowFocusReason = 3 fromCppEnum PopupFocusReason = 4 fromCppEnum ShortcutFocusReason = 5 fromCppEnum MenuBarFocusReason = 6 fromCppEnum OtherFocusReason = 7 fromCppEnum (UnknownQtFocusReason n) = n toCppEnum (0) = MouseFocusReason toCppEnum (1) = TabFocusReason toCppEnum (2) = BacktabFocusReason toCppEnum (3) = ActiveWindowFocusReason toCppEnum (4) = PopupFocusReason toCppEnum (5) = ShortcutFocusReason toCppEnum (6) = MenuBarFocusReason toCppEnum (7) = OtherFocusReason toCppEnum n = UnknownQtFocusReason n instance HoppyP.Eq QtFocusReason where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtFocusReason where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtGestureFlag = DontStartGestureOnChildren | ReceivePartialGestures | IgnoredGesturesPropagateToParent | UnknownQtGestureFlag (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtGestureFlag where fromCppEnum DontStartGestureOnChildren = 1 fromCppEnum ReceivePartialGestures = 2 fromCppEnum IgnoredGesturesPropagateToParent = 4 fromCppEnum (UnknownQtGestureFlag n) = n toCppEnum (1) = DontStartGestureOnChildren toCppEnum (2) = ReceivePartialGestures toCppEnum (4) = IgnoredGesturesPropagateToParent toCppEnum n = UnknownQtGestureFlag n instance HoppyP.Eq QtGestureFlag where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtGestureFlag where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtGestureFlags = QtGestureFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtGestureFlag QtGestureFlags where enumToFlags = QtGestureFlags . QtahFHR.fromCppEnum flagsToEnum (QtGestureFlags x') = QtahFHR.toCppEnum x' class IsQtGestureFlags a where toQtGestureFlags :: a -> QtGestureFlags instance IsQtGestureFlags QtGestureFlags where toQtGestureFlags = QtahP.id instance IsQtGestureFlags QtGestureFlag where toQtGestureFlags = QtahFlags.enumToFlags instance IsQtGestureFlags (HoppyFC.CInt) where toQtGestureFlags = QtahFlags.numToFlags dontStartGestureOnChildren :: QtGestureFlags dontStartGestureOnChildren = QtGestureFlags (1) ignoredGesturesPropagateToParent :: QtGestureFlags ignoredGesturesPropagateToParent = QtGestureFlags (4) receivePartialGestures :: QtGestureFlags receivePartialGestures = QtGestureFlags (2) instance QtahDB.Bits QtGestureFlags where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtGestureState = NoGesture | GestureStarted | GestureUpdated | GestureFinished | GestureCanceled | UnknownQtGestureState (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtGestureState where fromCppEnum NoGesture = 0 fromCppEnum GestureStarted = 1 fromCppEnum GestureUpdated = 2 fromCppEnum GestureFinished = 3 fromCppEnum GestureCanceled = 4 fromCppEnum (UnknownQtGestureState n) = n toCppEnum (0) = NoGesture toCppEnum (1) = GestureStarted toCppEnum (2) = GestureUpdated toCppEnum (3) = GestureFinished toCppEnum (4) = GestureCanceled toCppEnum n = UnknownQtGestureState n instance HoppyP.Eq QtGestureState where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtGestureState where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtGestureStates = QtGestureStates (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtGestureState QtGestureStates where enumToFlags = QtGestureStates . QtahFHR.fromCppEnum flagsToEnum (QtGestureStates x') = QtahFHR.toCppEnum x' class IsQtGestureStates a where toQtGestureStates :: a -> QtGestureStates instance IsQtGestureStates QtGestureStates where toQtGestureStates = QtahP.id instance IsQtGestureStates QtGestureState where toQtGestureStates = QtahFlags.enumToFlags instance IsQtGestureStates (HoppyFC.CInt) where toQtGestureStates = QtahFlags.numToFlags gestureCanceled :: QtGestureStates gestureCanceled = QtGestureStates (4) gestureFinished :: QtGestureStates gestureFinished = QtGestureStates (3) gestureStarted :: QtGestureStates gestureStarted = QtGestureStates (1) gestureUpdated :: QtGestureStates gestureUpdated = QtGestureStates (2) noGesture :: QtGestureStates noGesture = QtGestureStates (0) instance QtahDB.Bits QtGestureStates where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtGestureType = TapGesture | TapAndHoldGesture | PanGesture | PinchGesture | SwipeGesture | CustomGesture | UnknownQtGestureType (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtGestureType where fromCppEnum TapGesture = 1 fromCppEnum TapAndHoldGesture = 2 fromCppEnum PanGesture = 3 fromCppEnum PinchGesture = 4 fromCppEnum SwipeGesture = 5 fromCppEnum CustomGesture = 256 fromCppEnum (UnknownQtGestureType n) = n toCppEnum (1) = TapGesture toCppEnum (2) = TapAndHoldGesture toCppEnum (3) = PanGesture toCppEnum (4) = PinchGesture toCppEnum (5) = SwipeGesture toCppEnum (256) = CustomGesture toCppEnum n = UnknownQtGestureType n instance HoppyP.Eq QtGestureType where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtGestureType where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtGlobalColor = White | Black | Red | DarkRed | Green | DarkGreen | Blue | DarkBlue | Cyan | DarkCyan | Magenta | DarkMagenta | Yellow | DarkYellow | Gray | DarkGray | LightGray | Transparent | Color0 | Color1 | UnknownQtGlobalColor (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtGlobalColor where fromCppEnum White = 3 fromCppEnum Black = 2 fromCppEnum Red = 7 fromCppEnum DarkRed = 13 fromCppEnum Green = 8 fromCppEnum DarkGreen = 14 fromCppEnum Blue = 9 fromCppEnum DarkBlue = 15 fromCppEnum Cyan = 10 fromCppEnum DarkCyan = 16 fromCppEnum Magenta = 11 fromCppEnum DarkMagenta = 17 fromCppEnum Yellow = 12 fromCppEnum DarkYellow = 18 fromCppEnum Gray = 5 fromCppEnum DarkGray = 4 fromCppEnum LightGray = 6 fromCppEnum Transparent = 19 fromCppEnum Color0 = 0 fromCppEnum Color1 = 1 fromCppEnum (UnknownQtGlobalColor n) = n toCppEnum (0) = Color0 toCppEnum (1) = Color1 toCppEnum (2) = Black toCppEnum (3) = White toCppEnum (4) = DarkGray toCppEnum (5) = Gray toCppEnum (6) = LightGray toCppEnum (7) = Red toCppEnum (8) = Green toCppEnum (9) = Blue toCppEnum (10) = Cyan toCppEnum (11) = Magenta toCppEnum (12) = Yellow toCppEnum (13) = DarkRed toCppEnum (14) = DarkGreen toCppEnum (15) = DarkBlue toCppEnum (16) = DarkCyan toCppEnum (17) = DarkMagenta toCppEnum (18) = DarkYellow toCppEnum (19) = Transparent toCppEnum n = UnknownQtGlobalColor n instance HoppyP.Eq QtGlobalColor where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtGlobalColor where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtHitTestAccuracy = ExactHit | FuzzyHit | UnknownQtHitTestAccuracy (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtHitTestAccuracy where fromCppEnum ExactHit = 0 fromCppEnum FuzzyHit = 1 fromCppEnum (UnknownQtHitTestAccuracy n) = n toCppEnum (0) = ExactHit toCppEnum (1) = FuzzyHit toCppEnum n = UnknownQtHitTestAccuracy n instance HoppyP.Eq QtHitTestAccuracy where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtHitTestAccuracy where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtImageConversionFlag = AutoColor | ColorOnly | MonoOnly | DiffuseDither | OrderedDither | ThresholdDither | ThresholdAlphaDither | OrderedAlphaDither | DiffuseAlphaDither | PreferDither | AvoidDither | NoOpaqueDetection | NoFormatConversion | UnknownQtImageConversionFlag (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtImageConversionFlag where fromCppEnum AutoColor = 0 fromCppEnum ColorOnly = 3 fromCppEnum MonoOnly = 2 fromCppEnum DiffuseDither = 0 fromCppEnum OrderedDither = 16 fromCppEnum ThresholdDither = 32 fromCppEnum ThresholdAlphaDither = 0 fromCppEnum OrderedAlphaDither = 4 fromCppEnum DiffuseAlphaDither = 8 fromCppEnum PreferDither = 64 fromCppEnum AvoidDither = 128 fromCppEnum NoOpaqueDetection = 256 fromCppEnum NoFormatConversion = 512 fromCppEnum (UnknownQtImageConversionFlag n) = n toCppEnum (0) = ThresholdAlphaDither toCppEnum (2) = MonoOnly toCppEnum (3) = ColorOnly toCppEnum (4) = OrderedAlphaDither toCppEnum (8) = DiffuseAlphaDither toCppEnum (16) = OrderedDither toCppEnum (32) = ThresholdDither toCppEnum (64) = PreferDither toCppEnum (128) = AvoidDither toCppEnum (256) = NoOpaqueDetection toCppEnum (512) = NoFormatConversion toCppEnum n = UnknownQtImageConversionFlag n instance HoppyP.Eq QtImageConversionFlag where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtImageConversionFlag where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtImageConversionFlags = QtImageConversionFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtImageConversionFlag QtImageConversionFlags where enumToFlags = QtImageConversionFlags . QtahFHR.fromCppEnum flagsToEnum (QtImageConversionFlags x') = QtahFHR.toCppEnum x' class IsQtImageConversionFlags a where toQtImageConversionFlags :: a -> QtImageConversionFlags instance IsQtImageConversionFlags QtImageConversionFlags where toQtImageConversionFlags = QtahP.id instance IsQtImageConversionFlags QtImageConversionFlag where toQtImageConversionFlags = QtahFlags.enumToFlags instance IsQtImageConversionFlags (HoppyFC.CInt) where toQtImageConversionFlags = QtahFlags.numToFlags autoColor :: QtImageConversionFlags autoColor = QtImageConversionFlags (0) avoidDither :: QtImageConversionFlags avoidDither = QtImageConversionFlags (128) colorOnly :: QtImageConversionFlags colorOnly = QtImageConversionFlags (3) diffuseAlphaDither :: QtImageConversionFlags diffuseAlphaDither = QtImageConversionFlags (8) diffuseDither :: QtImageConversionFlags diffuseDither = QtImageConversionFlags (0) monoOnly :: QtImageConversionFlags monoOnly = QtImageConversionFlags (2) noFormatConversion :: QtImageConversionFlags noFormatConversion = QtImageConversionFlags (512) noOpaqueDetection :: QtImageConversionFlags noOpaqueDetection = QtImageConversionFlags (256) orderedAlphaDither :: QtImageConversionFlags orderedAlphaDither = QtImageConversionFlags (4) orderedDither :: QtImageConversionFlags orderedDither = QtImageConversionFlags (16) preferDither :: QtImageConversionFlags preferDither = QtImageConversionFlags (64) thresholdAlphaDither :: QtImageConversionFlags thresholdAlphaDither = QtImageConversionFlags (0) thresholdDither :: QtImageConversionFlags thresholdDither = QtImageConversionFlags (32) instance QtahDB.Bits QtImageConversionFlags where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtInputMethodHint = ImhNone | ImhHiddenText | ImhSensitiveData | ImhNoAutoUppercase | ImhPreferNumbers | ImhPreferUppercase | ImhPreferLowercase | ImhNoPredictiveText | ImhDate | ImhTime | ImhPreferLatin | ImhMultiLine | ImhDigitsOnly | ImhFormattedNumbersOnly | ImhUppercaseOnly | ImhLowercaseOnly | ImhDialableCharactersOnly | ImhEmailCharactersOnly | ImhUrlCharactersOnly | ImhLatinOnly | ImhExclusiveInputMask | UnknownQtInputMethodHint (HoppyFC.CUInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CUInt) QtInputMethodHint where fromCppEnum ImhNone = 0 fromCppEnum ImhHiddenText = 1 fromCppEnum ImhSensitiveData = 2 fromCppEnum ImhNoAutoUppercase = 4 fromCppEnum ImhPreferNumbers = 8 fromCppEnum ImhPreferUppercase = 16 fromCppEnum ImhPreferLowercase = 32 fromCppEnum ImhNoPredictiveText = 64 fromCppEnum ImhDate = 128 fromCppEnum ImhTime = 256 fromCppEnum ImhPreferLatin = 512 fromCppEnum ImhMultiLine = 1024 fromCppEnum ImhDigitsOnly = 65536 fromCppEnum ImhFormattedNumbersOnly = 131072 fromCppEnum ImhUppercaseOnly = 262144 fromCppEnum ImhLowercaseOnly = 524288 fromCppEnum ImhDialableCharactersOnly = 1048576 fromCppEnum ImhEmailCharactersOnly = 2097152 fromCppEnum ImhUrlCharactersOnly = 4194304 fromCppEnum ImhLatinOnly = 8388608 fromCppEnum ImhExclusiveInputMask = 4294901760 fromCppEnum (UnknownQtInputMethodHint n) = n toCppEnum (0) = ImhNone toCppEnum (1) = ImhHiddenText toCppEnum (2) = ImhSensitiveData toCppEnum (4) = ImhNoAutoUppercase toCppEnum (8) = ImhPreferNumbers toCppEnum (16) = ImhPreferUppercase toCppEnum (32) = ImhPreferLowercase toCppEnum (64) = ImhNoPredictiveText toCppEnum (128) = ImhDate toCppEnum (256) = ImhTime toCppEnum (512) = ImhPreferLatin toCppEnum (1024) = ImhMultiLine toCppEnum (65536) = ImhDigitsOnly toCppEnum (131072) = ImhFormattedNumbersOnly toCppEnum (262144) = ImhUppercaseOnly toCppEnum (524288) = ImhLowercaseOnly toCppEnum (1048576) = ImhDialableCharactersOnly toCppEnum (2097152) = ImhEmailCharactersOnly toCppEnum (4194304) = ImhUrlCharactersOnly toCppEnum (8388608) = ImhLatinOnly toCppEnum (4294901760) = ImhExclusiveInputMask toCppEnum n = UnknownQtInputMethodHint n instance HoppyP.Eq QtInputMethodHint where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtInputMethodHint where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtInputMethodHints = QtInputMethodHints (HoppyFC.CUInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CUInt) QtInputMethodHint QtInputMethodHints where enumToFlags = QtInputMethodHints . QtahFHR.fromCppEnum flagsToEnum (QtInputMethodHints x') = QtahFHR.toCppEnum x' class IsQtInputMethodHints a where toQtInputMethodHints :: a -> QtInputMethodHints instance IsQtInputMethodHints QtInputMethodHints where toQtInputMethodHints = QtahP.id instance IsQtInputMethodHints QtInputMethodHint where toQtInputMethodHints = QtahFlags.enumToFlags instance IsQtInputMethodHints (HoppyFC.CUInt) where toQtInputMethodHints = QtahFlags.numToFlags imhDate :: QtInputMethodHints imhDate = QtInputMethodHints (128) imhDialableCharactersOnly :: QtInputMethodHints imhDialableCharactersOnly = QtInputMethodHints (1048576) imhDigitsOnly :: QtInputMethodHints imhDigitsOnly = QtInputMethodHints (65536) imhEmailCharactersOnly :: QtInputMethodHints imhEmailCharactersOnly = QtInputMethodHints (2097152) imhExclusiveInputMask :: QtInputMethodHints imhExclusiveInputMask = QtInputMethodHints (4294901760) imhFormattedNumbersOnly :: QtInputMethodHints imhFormattedNumbersOnly = QtInputMethodHints (131072) imhHiddenText :: QtInputMethodHints imhHiddenText = QtInputMethodHints (1) imhLatinOnly :: QtInputMethodHints imhLatinOnly = QtInputMethodHints (8388608) imhLowercaseOnly :: QtInputMethodHints imhLowercaseOnly = QtInputMethodHints (524288) imhMultiLine :: QtInputMethodHints imhMultiLine = QtInputMethodHints (1024) imhNoAutoUppercase :: QtInputMethodHints imhNoAutoUppercase = QtInputMethodHints (4) imhNoPredictiveText :: QtInputMethodHints imhNoPredictiveText = QtInputMethodHints (64) imhNone :: QtInputMethodHints imhNone = QtInputMethodHints (0) imhPreferLatin :: QtInputMethodHints imhPreferLatin = QtInputMethodHints (512) imhPreferLowercase :: QtInputMethodHints imhPreferLowercase = QtInputMethodHints (32) imhPreferNumbers :: QtInputMethodHints imhPreferNumbers = QtInputMethodHints (8) imhPreferUppercase :: QtInputMethodHints imhPreferUppercase = QtInputMethodHints (16) imhSensitiveData :: QtInputMethodHints imhSensitiveData = QtInputMethodHints (2) imhTime :: QtInputMethodHints imhTime = QtInputMethodHints (256) imhUppercaseOnly :: QtInputMethodHints imhUppercaseOnly = QtInputMethodHints (262144) imhUrlCharactersOnly :: QtInputMethodHints imhUrlCharactersOnly = QtInputMethodHints (4194304) instance QtahDB.Bits QtInputMethodHints where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum newtype QtInputMethodQueries = QtInputMethodQueries (HoppyFC.CUInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CUInt) QtInputMethodQuery QtInputMethodQueries where enumToFlags = QtInputMethodQueries . QtahFHR.fromCppEnum flagsToEnum (QtInputMethodQueries x') = QtahFHR.toCppEnum x' class IsQtInputMethodQueries a where toQtInputMethodQueries :: a -> QtInputMethodQueries instance IsQtInputMethodQueries QtInputMethodQueries where toQtInputMethodQueries = QtahP.id instance IsQtInputMethodQueries QtInputMethodQuery where toQtInputMethodQueries = QtahFlags.enumToFlags instance IsQtInputMethodQueries (HoppyFC.CUInt) where toQtInputMethodQueries = QtahFlags.numToFlags imAbsolutePosition :: QtInputMethodQueries imAbsolutePosition = QtInputMethodQueries (1024) imAnchorPosition :: QtInputMethodQueries imAnchorPosition = QtInputMethodQueries (128) imAnchorRectangle :: QtInputMethodQueries imAnchorRectangle = QtInputMethodQueries (16384) imCurrentSelection :: QtInputMethodQueries imCurrentSelection = QtInputMethodQueries (32) imCursorPosition :: QtInputMethodQueries imCursorPosition = QtInputMethodQueries (8) imCursorRectangle :: QtInputMethodQueries imCursorRectangle = QtInputMethodQueries (2) imEnabled :: QtInputMethodQueries imEnabled = QtInputMethodQueries (1) imEnterKeyType :: QtInputMethodQueries imEnterKeyType = QtInputMethodQueries (8192) imFont :: QtInputMethodQueries imFont = QtInputMethodQueries (4) imHints :: QtInputMethodQueries imHints = QtInputMethodQueries (256) imInputItemClipRectangle :: QtInputMethodQueries imInputItemClipRectangle = QtInputMethodQueries (32768) imMaximumTextLength :: QtInputMethodQueries imMaximumTextLength = QtInputMethodQueries (64) imMicroFocus :: QtInputMethodQueries imMicroFocus = QtInputMethodQueries (2) imPlatformData :: QtInputMethodQueries imPlatformData = QtInputMethodQueries (2147483648) imPreferredLanguage :: QtInputMethodQueries imPreferredLanguage = QtInputMethodQueries (512) imSurroundingText :: QtInputMethodQueries imSurroundingText = QtInputMethodQueries (16) imTextAfterCursor :: QtInputMethodQueries imTextAfterCursor = QtInputMethodQueries (4096) imTextBeforeCursor :: QtInputMethodQueries imTextBeforeCursor = QtInputMethodQueries (2048) instance QtahDB.Bits QtInputMethodQueries where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtInputMethodQuery = ImEnabled | ImMicroFocus | ImCursorRectangle | ImFont | ImCursorPosition | ImSurroundingText | ImCurrentSelection | ImMaximumTextLength | ImAnchorPosition | ImHints | ImPreferredLanguage | ImPlatformData | ImAbsolutePosition | ImTextBeforeCursor | ImTextAfterCursor | ImEnterKeyType | ImAnchorRectangle | ImInputItemClipRectangle | UnknownQtInputMethodQuery (HoppyFC.CUInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CUInt) QtInputMethodQuery where fromCppEnum ImEnabled = 1 fromCppEnum ImMicroFocus = 2 fromCppEnum ImCursorRectangle = 2 fromCppEnum ImFont = 4 fromCppEnum ImCursorPosition = 8 fromCppEnum ImSurroundingText = 16 fromCppEnum ImCurrentSelection = 32 fromCppEnum ImMaximumTextLength = 64 fromCppEnum ImAnchorPosition = 128 fromCppEnum ImHints = 256 fromCppEnum ImPreferredLanguage = 512 fromCppEnum ImPlatformData = 2147483648 fromCppEnum ImAbsolutePosition = 1024 fromCppEnum ImTextBeforeCursor = 2048 fromCppEnum ImTextAfterCursor = 4096 fromCppEnum ImEnterKeyType = 8192 fromCppEnum ImAnchorRectangle = 16384 fromCppEnum ImInputItemClipRectangle = 32768 fromCppEnum (UnknownQtInputMethodQuery n) = n toCppEnum (1) = ImEnabled toCppEnum (2) = ImCursorRectangle toCppEnum (4) = ImFont toCppEnum (8) = ImCursorPosition toCppEnum (16) = ImSurroundingText toCppEnum (32) = ImCurrentSelection toCppEnum (64) = ImMaximumTextLength toCppEnum (128) = ImAnchorPosition toCppEnum (256) = ImHints toCppEnum (512) = ImPreferredLanguage toCppEnum (1024) = ImAbsolutePosition toCppEnum (2048) = ImTextBeforeCursor toCppEnum (4096) = ImTextAfterCursor toCppEnum (8192) = ImEnterKeyType toCppEnum (16384) = ImAnchorRectangle toCppEnum (32768) = ImInputItemClipRectangle toCppEnum (2147483648) = ImPlatformData toCppEnum n = UnknownQtInputMethodQuery n instance HoppyP.Eq QtInputMethodQuery where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtInputMethodQuery where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtItemDataRole = DisplayRole | DecorationRole | EditRole | ToolTipRole | StatusTipRole | WhatsThisRole | SizeHintRole | FontRole | TextAlignmentRole | BackgroundRole | ForegroundRole | CheckStateRole | InitialSortOrderRole | AccessibleTextRole | AccessibleDescriptionRole | UserRole | UnknownQtItemDataRole (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtItemDataRole where fromCppEnum DisplayRole = 0 fromCppEnum DecorationRole = 1 fromCppEnum EditRole = 2 fromCppEnum ToolTipRole = 3 fromCppEnum StatusTipRole = 4 fromCppEnum WhatsThisRole = 5 fromCppEnum SizeHintRole = 13 fromCppEnum FontRole = 6 fromCppEnum TextAlignmentRole = 7 fromCppEnum BackgroundRole = 8 fromCppEnum ForegroundRole = 9 fromCppEnum CheckStateRole = 10 fromCppEnum InitialSortOrderRole = 14 fromCppEnum AccessibleTextRole = 11 fromCppEnum AccessibleDescriptionRole = 12 fromCppEnum UserRole = 256 fromCppEnum (UnknownQtItemDataRole n) = n toCppEnum (0) = DisplayRole toCppEnum (1) = DecorationRole toCppEnum (2) = EditRole toCppEnum (3) = ToolTipRole toCppEnum (4) = StatusTipRole toCppEnum (5) = WhatsThisRole toCppEnum (6) = FontRole toCppEnum (7) = TextAlignmentRole toCppEnum (8) = BackgroundRole toCppEnum (9) = ForegroundRole toCppEnum (10) = CheckStateRole toCppEnum (11) = AccessibleTextRole toCppEnum (12) = AccessibleDescriptionRole toCppEnum (13) = SizeHintRole toCppEnum (14) = InitialSortOrderRole toCppEnum (256) = UserRole toCppEnum n = UnknownQtItemDataRole n instance HoppyP.Eq QtItemDataRole where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtItemDataRole where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtItemFlag = NoItemFlags | ItemIsSelectable | ItemIsEditable | ItemIsDragEnabled | ItemIsDropEnabled | ItemIsUserCheckable | ItemIsEnabled | ItemIsAutoTristate | ItemNeverHasChildren | ItemIsUserTristate | UnknownQtItemFlag (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtItemFlag where fromCppEnum NoItemFlags = 0 fromCppEnum ItemIsSelectable = 1 fromCppEnum ItemIsEditable = 2 fromCppEnum ItemIsDragEnabled = 4 fromCppEnum ItemIsDropEnabled = 8 fromCppEnum ItemIsUserCheckable = 16 fromCppEnum ItemIsEnabled = 32 fromCppEnum ItemIsAutoTristate = 64 fromCppEnum ItemNeverHasChildren = 128 fromCppEnum ItemIsUserTristate = 256 fromCppEnum (UnknownQtItemFlag n) = n toCppEnum (0) = NoItemFlags toCppEnum (1) = ItemIsSelectable toCppEnum (2) = ItemIsEditable toCppEnum (4) = ItemIsDragEnabled toCppEnum (8) = ItemIsDropEnabled toCppEnum (16) = ItemIsUserCheckable toCppEnum (32) = ItemIsEnabled toCppEnum (64) = ItemIsAutoTristate toCppEnum (128) = ItemNeverHasChildren toCppEnum (256) = ItemIsUserTristate toCppEnum n = UnknownQtItemFlag n instance HoppyP.Eq QtItemFlag where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtItemFlag where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtItemFlags = QtItemFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtItemFlag QtItemFlags where enumToFlags = QtItemFlags . QtahFHR.fromCppEnum flagsToEnum (QtItemFlags x') = QtahFHR.toCppEnum x' class IsQtItemFlags a where toQtItemFlags :: a -> QtItemFlags instance IsQtItemFlags QtItemFlags where toQtItemFlags = QtahP.id instance IsQtItemFlags QtItemFlag where toQtItemFlags = QtahFlags.enumToFlags instance IsQtItemFlags (HoppyFC.CInt) where toQtItemFlags = QtahFlags.numToFlags itemIsAutoTristate :: QtItemFlags itemIsAutoTristate = QtItemFlags (64) itemIsDragEnabled :: QtItemFlags itemIsDragEnabled = QtItemFlags (4) itemIsDropEnabled :: QtItemFlags itemIsDropEnabled = QtItemFlags (8) itemIsEditable :: QtItemFlags itemIsEditable = QtItemFlags (2) itemIsEnabled :: QtItemFlags itemIsEnabled = QtItemFlags (32) itemIsSelectable :: QtItemFlags itemIsSelectable = QtItemFlags (1) itemIsUserCheckable :: QtItemFlags itemIsUserCheckable = QtItemFlags (16) itemIsUserTristate :: QtItemFlags itemIsUserTristate = QtItemFlags (256) itemNeverHasChildren :: QtItemFlags itemNeverHasChildren = QtItemFlags (128) noItemFlags :: QtItemFlags noItemFlags = QtItemFlags (0) instance QtahDB.Bits QtItemFlags where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtItemSelectionMode = ContainsItemShape | IntersectsItemShape | ContainsItemBoundingRect | IntersectsItemBoundingRect | UnknownQtItemSelectionMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtItemSelectionMode where fromCppEnum ContainsItemShape = 0 fromCppEnum IntersectsItemShape = 1 fromCppEnum ContainsItemBoundingRect = 2 fromCppEnum IntersectsItemBoundingRect = 3 fromCppEnum (UnknownQtItemSelectionMode n) = n toCppEnum (0) = ContainsItemShape toCppEnum (1) = IntersectsItemShape toCppEnum (2) = ContainsItemBoundingRect toCppEnum (3) = IntersectsItemBoundingRect toCppEnum n = UnknownQtItemSelectionMode n instance HoppyP.Eq QtItemSelectionMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtItemSelectionMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtItemSelectionOperation = ReplaceSelection | AddToSelection | UnknownQtItemSelectionOperation (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtItemSelectionOperation where fromCppEnum ReplaceSelection = 0 fromCppEnum AddToSelection = 1 fromCppEnum (UnknownQtItemSelectionOperation n) = n toCppEnum (0) = ReplaceSelection toCppEnum (1) = AddToSelection toCppEnum n = UnknownQtItemSelectionOperation n instance HoppyP.Eq QtItemSelectionOperation where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtItemSelectionOperation where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) 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 | KeyAny | 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 | KeyNobreakspace | KeyExclamdown | KeyCent | KeySterling | KeyCurrency | KeyYen | KeyBrokenbar | KeySection | KeyDiaeresis | KeyCopyright | KeyOrdfeminine | KeyGuillemotleft | KeyNotsign | KeyHyphen | KeyRegistered | KeyMacron | KeyDegree | KeyPlusminus | KeyTwosuperior | KeyThreesuperior | KeyAcute | KeyMu | KeyParagraph | KeyPeriodcentered | KeyCedilla | KeyOnesuperior | KeyMasculine | KeyGuillemotright | KeyOnequarter | KeyOnehalf | KeyThreequarters | KeyQuestiondown | KeyAgrave | KeyAacute | KeyAcircumflex | KeyAtilde | KeyAdiaeresis | KeyAring | KeyAe | KeyCcedilla | KeyEgrave | KeyEacute | KeyEcircumflex | KeyEdiaeresis | KeyIgrave | KeyIacute | KeyIcircumflex | KeyIdiaeresis | KeyEth | KeyNtilde | KeyOgrave | KeyOacute | KeyOcircumflex | KeyOtilde | KeyOdiaeresis | KeyMultiply | KeyOoblique | KeyUgrave | KeyUacute | KeyUcircumflex | KeyUdiaeresis | KeyYacute | KeyThorn | KeySsharp | KeyDivision | KeyYdiaeresis | KeyMultiKey | KeyCodeinput | KeySingleCandidate | KeyMultipleCandidate | KeyPreviousCandidate | KeyModeSwitch | KeyKanji | KeyMuhenkan | KeyHenkan | KeyRomaji | KeyHiragana | KeyKatakana | KeyHiraganaKatakana | KeyZenkaku | KeyHankaku | KeyZenkakuHankaku | KeyTouroku | KeyMassyo | KeyKanaLock | KeyKanaShift | KeyEisuShift | KeyEisuToggle | KeyHangul | KeyHangulStart | KeyHangulEnd | KeyHangulHanja | KeyHangulJamo | KeyHangulRomaja | KeyHangulJeonja | KeyHangulBanja | KeyHangulPreHanja | KeyHangulPostHanja | KeyHangulSpecial | KeyDeadGrave | KeyDeadAcute | KeyDeadCircumflex | KeyDeadTilde | KeyDeadMacron | KeyDeadBreve | KeyDeadAbovedot | KeyDeadDiaeresis | KeyDeadAbovering | KeyDeadDoubleacute | KeyDeadCaron | KeyDeadCedilla | KeyDeadOgonek | KeyDeadIota | KeyDeadVoicedSound | KeyDeadSemivoicedSound | KeyDeadBelowdot | KeyDeadHook | KeyDeadHorn | KeyDeadStroke | KeyDeadAbovecomma | KeyDeadAbovereversedcomma | KeyDeadDoublegrave | KeyDeadBelowring | KeyDeadBelowmacron | KeyDeadBelowtilde | KeyDeadBelowbreve | KeyDeadBelowdiaeresis | KeyDeadInvertedbreve | KeyDeadBelowcomma | KeyDeadCurrency | KeyDeadALower | KeyDeadAUpper | KeyDeadELower | KeyDeadEUpper | KeyDeadILower | KeyDeadIUpper | KeyDeadOLower | KeyDeadOUpper | KeyDeadULower | KeyDeadUUpper | KeyDeadSmallSchwa | KeyDeadCapitalSchwa | KeyDeadGreek | KeyDeadLowline | KeyDeadAboveverticalline | KeyDeadBelowverticalline | KeyDeadLongsolidusoverlay | KeyBack | KeyForward | KeyStop | KeyRefresh | KeyVolumeDown | KeyVolumeMute | KeyVolumeUp | KeyBassBoost | KeyBassUp | KeyBassDown | KeyTrebleUp | KeyTrebleDown | KeyMediaPlay | KeyMediaStop | KeyMediaPrevious | KeyMediaNext | KeyMediaRecord | KeyMediaPause | KeyMediaTogglePlayPause | KeyHomePage | KeyFavorites | KeySearch | KeyStandby | KeyOpenUrl | KeyLaunchMail | KeyLaunchMedia | KeyLaunch0 | KeyLaunch1 | KeyLaunch2 | KeyLaunch3 | KeyLaunch4 | KeyLaunch5 | KeyLaunch6 | KeyLaunch7 | KeyLaunch8 | KeyLaunch9 | KeyLaunchA | KeyLaunchB | KeyLaunchC | KeyLaunchD | KeyLaunchE | KeyLaunchF | KeyLaunchG | KeyLaunchH | UnknownQtKey (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtKey where fromCppEnum KeyEscape = 16777216 fromCppEnum KeyTab = 16777217 fromCppEnum KeyBacktab = 16777218 fromCppEnum KeyBackspace = 16777219 fromCppEnum KeyReturn = 16777220 fromCppEnum KeyEnter = 16777221 fromCppEnum KeyInsert = 16777222 fromCppEnum KeyDelete = 16777223 fromCppEnum KeyPause = 16777224 fromCppEnum KeyPrint = 16777225 fromCppEnum KeySysReq = 16777226 fromCppEnum KeyClear = 16777227 fromCppEnum KeyHome = 16777232 fromCppEnum KeyEnd = 16777233 fromCppEnum KeyLeft = 16777234 fromCppEnum KeyUp = 16777235 fromCppEnum KeyRight = 16777236 fromCppEnum KeyDown = 16777237 fromCppEnum KeyPageUp = 16777238 fromCppEnum KeyPageDown = 16777239 fromCppEnum KeyShift = 16777248 fromCppEnum KeyControl = 16777249 fromCppEnum KeyMeta = 16777250 fromCppEnum KeyAlt = 16777251 fromCppEnum KeyAltGr = 16781571 fromCppEnum KeyCapsLock = 16777252 fromCppEnum KeyNumLock = 16777253 fromCppEnum KeyScrollLock = 16777254 fromCppEnum KeyF1 = 16777264 fromCppEnum KeyF2 = 16777265 fromCppEnum KeyF3 = 16777266 fromCppEnum KeyF4 = 16777267 fromCppEnum KeyF5 = 16777268 fromCppEnum KeyF6 = 16777269 fromCppEnum KeyF7 = 16777270 fromCppEnum KeyF8 = 16777271 fromCppEnum KeyF9 = 16777272 fromCppEnum KeyF10 = 16777273 fromCppEnum KeyF11 = 16777274 fromCppEnum KeyF12 = 16777275 fromCppEnum KeyF13 = 16777276 fromCppEnum KeyF14 = 16777277 fromCppEnum KeyF15 = 16777278 fromCppEnum KeyF16 = 16777279 fromCppEnum KeyF17 = 16777280 fromCppEnum KeyF18 = 16777281 fromCppEnum KeyF19 = 16777282 fromCppEnum KeyF20 = 16777283 fromCppEnum KeyF21 = 16777284 fromCppEnum KeyF22 = 16777285 fromCppEnum KeyF23 = 16777286 fromCppEnum KeyF24 = 16777287 fromCppEnum KeyF25 = 16777288 fromCppEnum KeyF26 = 16777289 fromCppEnum KeyF27 = 16777290 fromCppEnum KeyF28 = 16777291 fromCppEnum KeyF29 = 16777292 fromCppEnum KeyF30 = 16777293 fromCppEnum KeyF31 = 16777294 fromCppEnum KeyF32 = 16777295 fromCppEnum KeyF33 = 16777296 fromCppEnum KeyF34 = 16777297 fromCppEnum KeyF35 = 16777298 fromCppEnum KeySuperL = 16777299 fromCppEnum KeySuperR = 16777300 fromCppEnum KeyMenu = 16777301 fromCppEnum KeyHyperL = 16777302 fromCppEnum KeyHyperR = 16777303 fromCppEnum KeyHelp = 16777304 fromCppEnum KeyDirectionL = 16777305 fromCppEnum KeyDirectionR = 16777312 fromCppEnum KeySpace = 32 fromCppEnum KeyAny = 32 fromCppEnum KeyExclam = 33 fromCppEnum KeyQuoteDbl = 34 fromCppEnum KeyNumberSign = 35 fromCppEnum KeyDollar = 36 fromCppEnum KeyPercent = 37 fromCppEnum KeyAmpersand = 38 fromCppEnum KeyApostrophe = 39 fromCppEnum KeyParenLeft = 40 fromCppEnum KeyParenRight = 41 fromCppEnum KeyAsterisk = 42 fromCppEnum KeyPlus = 43 fromCppEnum KeyComma = 44 fromCppEnum KeyMinus = 45 fromCppEnum KeyPeriod = 46 fromCppEnum KeySlash = 47 fromCppEnum Key0 = 48 fromCppEnum Key1 = 49 fromCppEnum Key2 = 50 fromCppEnum Key3 = 51 fromCppEnum Key4 = 52 fromCppEnum Key5 = 53 fromCppEnum Key6 = 54 fromCppEnum Key7 = 55 fromCppEnum Key8 = 56 fromCppEnum Key9 = 57 fromCppEnum KeyColon = 58 fromCppEnum KeySemicolon = 59 fromCppEnum KeyLess = 60 fromCppEnum KeyEqual = 61 fromCppEnum KeyGreater = 62 fromCppEnum KeyQuestion = 63 fromCppEnum KeyAt = 64 fromCppEnum KeyA = 65 fromCppEnum KeyB = 66 fromCppEnum KeyC = 67 fromCppEnum KeyD = 68 fromCppEnum KeyE = 69 fromCppEnum KeyF = 70 fromCppEnum KeyG = 71 fromCppEnum KeyH = 72 fromCppEnum KeyI = 73 fromCppEnum KeyJ = 74 fromCppEnum KeyK = 75 fromCppEnum KeyL = 76 fromCppEnum KeyM = 77 fromCppEnum KeyN = 78 fromCppEnum KeyO = 79 fromCppEnum KeyP = 80 fromCppEnum KeyQ = 81 fromCppEnum KeyR = 82 fromCppEnum KeyS = 83 fromCppEnum KeyT = 84 fromCppEnum KeyU = 85 fromCppEnum KeyV = 86 fromCppEnum KeyW = 87 fromCppEnum KeyX = 88 fromCppEnum KeyY = 89 fromCppEnum KeyZ = 90 fromCppEnum KeyBracketLeft = 91 fromCppEnum KeyBackslash = 92 fromCppEnum KeyBracketRight = 93 fromCppEnum KeyAsciiCircum = 94 fromCppEnum KeyUnderscore = 95 fromCppEnum KeyQuoteLeft = 96 fromCppEnum KeyBraceLeft = 123 fromCppEnum KeyBar = 124 fromCppEnum KeyBraceRight = 125 fromCppEnum KeyAsciiTilde = 126 fromCppEnum KeyNobreakspace = 160 fromCppEnum KeyExclamdown = 161 fromCppEnum KeyCent = 162 fromCppEnum KeySterling = 163 fromCppEnum KeyCurrency = 164 fromCppEnum KeyYen = 165 fromCppEnum KeyBrokenbar = 166 fromCppEnum KeySection = 167 fromCppEnum KeyDiaeresis = 168 fromCppEnum KeyCopyright = 169 fromCppEnum KeyOrdfeminine = 170 fromCppEnum KeyGuillemotleft = 171 fromCppEnum KeyNotsign = 172 fromCppEnum KeyHyphen = 173 fromCppEnum KeyRegistered = 174 fromCppEnum KeyMacron = 175 fromCppEnum KeyDegree = 176 fromCppEnum KeyPlusminus = 177 fromCppEnum KeyTwosuperior = 178 fromCppEnum KeyThreesuperior = 179 fromCppEnum KeyAcute = 180 fromCppEnum KeyMu = 181 fromCppEnum KeyParagraph = 182 fromCppEnum KeyPeriodcentered = 183 fromCppEnum KeyCedilla = 184 fromCppEnum KeyOnesuperior = 185 fromCppEnum KeyMasculine = 186 fromCppEnum KeyGuillemotright = 187 fromCppEnum KeyOnequarter = 188 fromCppEnum KeyOnehalf = 189 fromCppEnum KeyThreequarters = 190 fromCppEnum KeyQuestiondown = 191 fromCppEnum KeyAgrave = 192 fromCppEnum KeyAacute = 193 fromCppEnum KeyAcircumflex = 194 fromCppEnum KeyAtilde = 195 fromCppEnum KeyAdiaeresis = 196 fromCppEnum KeyAring = 197 fromCppEnum KeyAe = 198 fromCppEnum KeyCcedilla = 199 fromCppEnum KeyEgrave = 200 fromCppEnum KeyEacute = 201 fromCppEnum KeyEcircumflex = 202 fromCppEnum KeyEdiaeresis = 203 fromCppEnum KeyIgrave = 204 fromCppEnum KeyIacute = 205 fromCppEnum KeyIcircumflex = 206 fromCppEnum KeyIdiaeresis = 207 fromCppEnum KeyEth = 208 fromCppEnum KeyNtilde = 209 fromCppEnum KeyOgrave = 210 fromCppEnum KeyOacute = 211 fromCppEnum KeyOcircumflex = 212 fromCppEnum KeyOtilde = 213 fromCppEnum KeyOdiaeresis = 214 fromCppEnum KeyMultiply = 215 fromCppEnum KeyOoblique = 216 fromCppEnum KeyUgrave = 217 fromCppEnum KeyUacute = 218 fromCppEnum KeyUcircumflex = 219 fromCppEnum KeyUdiaeresis = 220 fromCppEnum KeyYacute = 221 fromCppEnum KeyThorn = 222 fromCppEnum KeySsharp = 223 fromCppEnum KeyDivision = 247 fromCppEnum KeyYdiaeresis = 255 fromCppEnum KeyMultiKey = 16781600 fromCppEnum KeyCodeinput = 16781623 fromCppEnum KeySingleCandidate = 16781628 fromCppEnum KeyMultipleCandidate = 16781629 fromCppEnum KeyPreviousCandidate = 16781630 fromCppEnum KeyModeSwitch = 16781694 fromCppEnum KeyKanji = 16781601 fromCppEnum KeyMuhenkan = 16781602 fromCppEnum KeyHenkan = 16781603 fromCppEnum KeyRomaji = 16781604 fromCppEnum KeyHiragana = 16781605 fromCppEnum KeyKatakana = 16781606 fromCppEnum KeyHiraganaKatakana = 16781607 fromCppEnum KeyZenkaku = 16781608 fromCppEnum KeyHankaku = 16781609 fromCppEnum KeyZenkakuHankaku = 16781610 fromCppEnum KeyTouroku = 16781611 fromCppEnum KeyMassyo = 16781612 fromCppEnum KeyKanaLock = 16781613 fromCppEnum KeyKanaShift = 16781614 fromCppEnum KeyEisuShift = 16781615 fromCppEnum KeyEisuToggle = 16781616 fromCppEnum KeyHangul = 16781617 fromCppEnum KeyHangulStart = 16781618 fromCppEnum KeyHangulEnd = 16781619 fromCppEnum KeyHangulHanja = 16781620 fromCppEnum KeyHangulJamo = 16781621 fromCppEnum KeyHangulRomaja = 16781622 fromCppEnum KeyHangulJeonja = 16781624 fromCppEnum KeyHangulBanja = 16781625 fromCppEnum KeyHangulPreHanja = 16781626 fromCppEnum KeyHangulPostHanja = 16781627 fromCppEnum KeyHangulSpecial = 16781631 fromCppEnum KeyDeadGrave = 16781904 fromCppEnum KeyDeadAcute = 16781905 fromCppEnum KeyDeadCircumflex = 16781906 fromCppEnum KeyDeadTilde = 16781907 fromCppEnum KeyDeadMacron = 16781908 fromCppEnum KeyDeadBreve = 16781909 fromCppEnum KeyDeadAbovedot = 16781910 fromCppEnum KeyDeadDiaeresis = 16781911 fromCppEnum KeyDeadAbovering = 16781912 fromCppEnum KeyDeadDoubleacute = 16781913 fromCppEnum KeyDeadCaron = 16781914 fromCppEnum KeyDeadCedilla = 16781915 fromCppEnum KeyDeadOgonek = 16781916 fromCppEnum KeyDeadIota = 16781917 fromCppEnum KeyDeadVoicedSound = 16781918 fromCppEnum KeyDeadSemivoicedSound = 16781919 fromCppEnum KeyDeadBelowdot = 16781920 fromCppEnum KeyDeadHook = 16781921 fromCppEnum KeyDeadHorn = 16781922 fromCppEnum KeyDeadStroke = 16781923 fromCppEnum KeyDeadAbovecomma = 16781924 fromCppEnum KeyDeadAbovereversedcomma = 16781925 fromCppEnum KeyDeadDoublegrave = 16781926 fromCppEnum KeyDeadBelowring = 16781927 fromCppEnum KeyDeadBelowmacron = 16781928 fromCppEnum KeyDeadBelowtilde = 16781930 fromCppEnum KeyDeadBelowbreve = 16781931 fromCppEnum KeyDeadBelowdiaeresis = 16781932 fromCppEnum KeyDeadInvertedbreve = 16781933 fromCppEnum KeyDeadBelowcomma = 16781934 fromCppEnum KeyDeadCurrency = 16781935 fromCppEnum KeyDeadALower = 16781952 fromCppEnum KeyDeadAUpper = 16781953 fromCppEnum KeyDeadELower = 16781954 fromCppEnum KeyDeadEUpper = 16781955 fromCppEnum KeyDeadILower = 16781956 fromCppEnum KeyDeadIUpper = 16781957 fromCppEnum KeyDeadOLower = 16781958 fromCppEnum KeyDeadOUpper = 16781959 fromCppEnum KeyDeadULower = 16781960 fromCppEnum KeyDeadUUpper = 16781961 fromCppEnum KeyDeadSmallSchwa = 16781962 fromCppEnum KeyDeadCapitalSchwa = 16781963 fromCppEnum KeyDeadGreek = 16781964 fromCppEnum KeyDeadLowline = 16781968 fromCppEnum KeyDeadAboveverticalline = 16781969 fromCppEnum KeyDeadBelowverticalline = 16781970 fromCppEnum KeyDeadLongsolidusoverlay = 16781971 fromCppEnum KeyBack = 16777313 fromCppEnum KeyForward = 16777314 fromCppEnum KeyStop = 16777315 fromCppEnum KeyRefresh = 16777316 fromCppEnum KeyVolumeDown = 16777328 fromCppEnum KeyVolumeMute = 16777329 fromCppEnum KeyVolumeUp = 16777330 fromCppEnum KeyBassBoost = 16777331 fromCppEnum KeyBassUp = 16777332 fromCppEnum KeyBassDown = 16777333 fromCppEnum KeyTrebleUp = 16777334 fromCppEnum KeyTrebleDown = 16777335 fromCppEnum KeyMediaPlay = 16777344 fromCppEnum KeyMediaStop = 16777345 fromCppEnum KeyMediaPrevious = 16777346 fromCppEnum KeyMediaNext = 16777347 fromCppEnum KeyMediaRecord = 16777348 fromCppEnum KeyMediaPause = 16777349 fromCppEnum KeyMediaTogglePlayPause = 16777350 fromCppEnum KeyHomePage = 16777360 fromCppEnum KeyFavorites = 16777361 fromCppEnum KeySearch = 16777362 fromCppEnum KeyStandby = 16777363 fromCppEnum KeyOpenUrl = 16777364 fromCppEnum KeyLaunchMail = 16777376 fromCppEnum KeyLaunchMedia = 16777377 fromCppEnum KeyLaunch0 = 16777378 fromCppEnum KeyLaunch1 = 16777379 fromCppEnum KeyLaunch2 = 16777380 fromCppEnum KeyLaunch3 = 16777381 fromCppEnum KeyLaunch4 = 16777382 fromCppEnum KeyLaunch5 = 16777383 fromCppEnum KeyLaunch6 = 16777384 fromCppEnum KeyLaunch7 = 16777385 fromCppEnum KeyLaunch8 = 16777386 fromCppEnum KeyLaunch9 = 16777387 fromCppEnum KeyLaunchA = 16777388 fromCppEnum KeyLaunchB = 16777389 fromCppEnum KeyLaunchC = 16777390 fromCppEnum KeyLaunchD = 16777391 fromCppEnum KeyLaunchE = 16777392 fromCppEnum KeyLaunchF = 16777393 fromCppEnum KeyLaunchG = 16777486 fromCppEnum KeyLaunchH = 16777487 fromCppEnum (UnknownQtKey n) = n toCppEnum (32) = KeyAny toCppEnum (33) = KeyExclam toCppEnum (34) = KeyQuoteDbl toCppEnum (35) = KeyNumberSign toCppEnum (36) = KeyDollar toCppEnum (37) = KeyPercent toCppEnum (38) = KeyAmpersand toCppEnum (39) = KeyApostrophe toCppEnum (40) = KeyParenLeft toCppEnum (41) = KeyParenRight toCppEnum (42) = KeyAsterisk toCppEnum (43) = KeyPlus toCppEnum (44) = KeyComma toCppEnum (45) = KeyMinus toCppEnum (46) = KeyPeriod toCppEnum (47) = KeySlash toCppEnum (48) = Key0 toCppEnum (49) = Key1 toCppEnum (50) = Key2 toCppEnum (51) = Key3 toCppEnum (52) = Key4 toCppEnum (53) = Key5 toCppEnum (54) = Key6 toCppEnum (55) = Key7 toCppEnum (56) = Key8 toCppEnum (57) = Key9 toCppEnum (58) = KeyColon toCppEnum (59) = KeySemicolon toCppEnum (60) = KeyLess toCppEnum (61) = KeyEqual toCppEnum (62) = KeyGreater toCppEnum (63) = KeyQuestion toCppEnum (64) = KeyAt toCppEnum (65) = KeyA toCppEnum (66) = KeyB toCppEnum (67) = KeyC toCppEnum (68) = KeyD toCppEnum (69) = KeyE toCppEnum (70) = KeyF toCppEnum (71) = KeyG toCppEnum (72) = KeyH toCppEnum (73) = KeyI toCppEnum (74) = KeyJ toCppEnum (75) = KeyK toCppEnum (76) = KeyL toCppEnum (77) = KeyM toCppEnum (78) = KeyN toCppEnum (79) = KeyO toCppEnum (80) = KeyP toCppEnum (81) = KeyQ toCppEnum (82) = KeyR toCppEnum (83) = KeyS toCppEnum (84) = KeyT toCppEnum (85) = KeyU toCppEnum (86) = KeyV toCppEnum (87) = KeyW toCppEnum (88) = KeyX toCppEnum (89) = KeyY toCppEnum (90) = KeyZ toCppEnum (91) = KeyBracketLeft toCppEnum (92) = KeyBackslash toCppEnum (93) = KeyBracketRight toCppEnum (94) = KeyAsciiCircum toCppEnum (95) = KeyUnderscore toCppEnum (96) = KeyQuoteLeft toCppEnum (123) = KeyBraceLeft toCppEnum (124) = KeyBar toCppEnum (125) = KeyBraceRight toCppEnum (126) = KeyAsciiTilde toCppEnum (160) = KeyNobreakspace toCppEnum (161) = KeyExclamdown toCppEnum (162) = KeyCent toCppEnum (163) = KeySterling toCppEnum (164) = KeyCurrency toCppEnum (165) = KeyYen toCppEnum (166) = KeyBrokenbar toCppEnum (167) = KeySection toCppEnum (168) = KeyDiaeresis toCppEnum (169) = KeyCopyright toCppEnum (170) = KeyOrdfeminine toCppEnum (171) = KeyGuillemotleft toCppEnum (172) = KeyNotsign toCppEnum (173) = KeyHyphen toCppEnum (174) = KeyRegistered toCppEnum (175) = KeyMacron toCppEnum (176) = KeyDegree toCppEnum (177) = KeyPlusminus toCppEnum (178) = KeyTwosuperior toCppEnum (179) = KeyThreesuperior toCppEnum (180) = KeyAcute toCppEnum (181) = KeyMu toCppEnum (182) = KeyParagraph toCppEnum (183) = KeyPeriodcentered toCppEnum (184) = KeyCedilla toCppEnum (185) = KeyOnesuperior toCppEnum (186) = KeyMasculine toCppEnum (187) = KeyGuillemotright toCppEnum (188) = KeyOnequarter toCppEnum (189) = KeyOnehalf toCppEnum (190) = KeyThreequarters toCppEnum (191) = KeyQuestiondown toCppEnum (192) = KeyAgrave toCppEnum (193) = KeyAacute toCppEnum (194) = KeyAcircumflex toCppEnum (195) = KeyAtilde toCppEnum (196) = KeyAdiaeresis toCppEnum (197) = KeyAring toCppEnum (198) = KeyAe toCppEnum (199) = KeyCcedilla toCppEnum (200) = KeyEgrave toCppEnum (201) = KeyEacute toCppEnum (202) = KeyEcircumflex toCppEnum (203) = KeyEdiaeresis toCppEnum (204) = KeyIgrave toCppEnum (205) = KeyIacute toCppEnum (206) = KeyIcircumflex toCppEnum (207) = KeyIdiaeresis toCppEnum (208) = KeyEth toCppEnum (209) = KeyNtilde toCppEnum (210) = KeyOgrave toCppEnum (211) = KeyOacute toCppEnum (212) = KeyOcircumflex toCppEnum (213) = KeyOtilde toCppEnum (214) = KeyOdiaeresis toCppEnum (215) = KeyMultiply toCppEnum (216) = KeyOoblique toCppEnum (217) = KeyUgrave toCppEnum (218) = KeyUacute toCppEnum (219) = KeyUcircumflex toCppEnum (220) = KeyUdiaeresis toCppEnum (221) = KeyYacute toCppEnum (222) = KeyThorn toCppEnum (223) = KeySsharp toCppEnum (247) = KeyDivision toCppEnum (255) = KeyYdiaeresis toCppEnum (16777216) = KeyEscape toCppEnum (16777217) = KeyTab toCppEnum (16777218) = KeyBacktab toCppEnum (16777219) = KeyBackspace toCppEnum (16777220) = KeyReturn toCppEnum (16777221) = KeyEnter toCppEnum (16777222) = KeyInsert toCppEnum (16777223) = KeyDelete toCppEnum (16777224) = KeyPause toCppEnum (16777225) = KeyPrint toCppEnum (16777226) = KeySysReq toCppEnum (16777227) = KeyClear toCppEnum (16777232) = KeyHome toCppEnum (16777233) = KeyEnd toCppEnum (16777234) = KeyLeft toCppEnum (16777235) = KeyUp toCppEnum (16777236) = KeyRight toCppEnum (16777237) = KeyDown toCppEnum (16777238) = KeyPageUp toCppEnum (16777239) = KeyPageDown toCppEnum (16777248) = KeyShift toCppEnum (16777249) = KeyControl toCppEnum (16777250) = KeyMeta toCppEnum (16777251) = KeyAlt toCppEnum (16777252) = KeyCapsLock toCppEnum (16777253) = KeyNumLock toCppEnum (16777254) = KeyScrollLock toCppEnum (16777264) = KeyF1 toCppEnum (16777265) = KeyF2 toCppEnum (16777266) = KeyF3 toCppEnum (16777267) = KeyF4 toCppEnum (16777268) = KeyF5 toCppEnum (16777269) = KeyF6 toCppEnum (16777270) = KeyF7 toCppEnum (16777271) = KeyF8 toCppEnum (16777272) = KeyF9 toCppEnum (16777273) = KeyF10 toCppEnum (16777274) = KeyF11 toCppEnum (16777275) = KeyF12 toCppEnum (16777276) = KeyF13 toCppEnum (16777277) = KeyF14 toCppEnum (16777278) = KeyF15 toCppEnum (16777279) = KeyF16 toCppEnum (16777280) = KeyF17 toCppEnum (16777281) = KeyF18 toCppEnum (16777282) = KeyF19 toCppEnum (16777283) = KeyF20 toCppEnum (16777284) = KeyF21 toCppEnum (16777285) = KeyF22 toCppEnum (16777286) = KeyF23 toCppEnum (16777287) = KeyF24 toCppEnum (16777288) = KeyF25 toCppEnum (16777289) = KeyF26 toCppEnum (16777290) = KeyF27 toCppEnum (16777291) = KeyF28 toCppEnum (16777292) = KeyF29 toCppEnum (16777293) = KeyF30 toCppEnum (16777294) = KeyF31 toCppEnum (16777295) = KeyF32 toCppEnum (16777296) = KeyF33 toCppEnum (16777297) = KeyF34 toCppEnum (16777298) = KeyF35 toCppEnum (16777299) = KeySuperL toCppEnum (16777300) = KeySuperR toCppEnum (16777301) = KeyMenu toCppEnum (16777302) = KeyHyperL toCppEnum (16777303) = KeyHyperR toCppEnum (16777304) = KeyHelp toCppEnum (16777305) = KeyDirectionL toCppEnum (16777312) = KeyDirectionR toCppEnum (16777313) = KeyBack toCppEnum (16777314) = KeyForward toCppEnum (16777315) = KeyStop toCppEnum (16777316) = KeyRefresh toCppEnum (16777328) = KeyVolumeDown toCppEnum (16777329) = KeyVolumeMute toCppEnum (16777330) = KeyVolumeUp toCppEnum (16777331) = KeyBassBoost toCppEnum (16777332) = KeyBassUp toCppEnum (16777333) = KeyBassDown toCppEnum (16777334) = KeyTrebleUp toCppEnum (16777335) = KeyTrebleDown toCppEnum (16777344) = KeyMediaPlay toCppEnum (16777345) = KeyMediaStop toCppEnum (16777346) = KeyMediaPrevious toCppEnum (16777347) = KeyMediaNext toCppEnum (16777348) = KeyMediaRecord toCppEnum (16777349) = KeyMediaPause toCppEnum (16777350) = KeyMediaTogglePlayPause toCppEnum (16777360) = KeyHomePage toCppEnum (16777361) = KeyFavorites toCppEnum (16777362) = KeySearch toCppEnum (16777363) = KeyStandby toCppEnum (16777364) = KeyOpenUrl toCppEnum (16777376) = KeyLaunchMail toCppEnum (16777377) = KeyLaunchMedia toCppEnum (16777378) = KeyLaunch0 toCppEnum (16777379) = KeyLaunch1 toCppEnum (16777380) = KeyLaunch2 toCppEnum (16777381) = KeyLaunch3 toCppEnum (16777382) = KeyLaunch4 toCppEnum (16777383) = KeyLaunch5 toCppEnum (16777384) = KeyLaunch6 toCppEnum (16777385) = KeyLaunch7 toCppEnum (16777386) = KeyLaunch8 toCppEnum (16777387) = KeyLaunch9 toCppEnum (16777388) = KeyLaunchA toCppEnum (16777389) = KeyLaunchB toCppEnum (16777390) = KeyLaunchC toCppEnum (16777391) = KeyLaunchD toCppEnum (16777392) = KeyLaunchE toCppEnum (16777393) = KeyLaunchF toCppEnum (16777486) = KeyLaunchG toCppEnum (16777487) = KeyLaunchH toCppEnum (16781571) = KeyAltGr toCppEnum (16781600) = KeyMultiKey toCppEnum (16781601) = KeyKanji toCppEnum (16781602) = KeyMuhenkan toCppEnum (16781603) = KeyHenkan toCppEnum (16781604) = KeyRomaji toCppEnum (16781605) = KeyHiragana toCppEnum (16781606) = KeyKatakana toCppEnum (16781607) = KeyHiraganaKatakana toCppEnum (16781608) = KeyZenkaku toCppEnum (16781609) = KeyHankaku toCppEnum (16781610) = KeyZenkakuHankaku toCppEnum (16781611) = KeyTouroku toCppEnum (16781612) = KeyMassyo toCppEnum (16781613) = KeyKanaLock toCppEnum (16781614) = KeyKanaShift toCppEnum (16781615) = KeyEisuShift toCppEnum (16781616) = KeyEisuToggle toCppEnum (16781617) = KeyHangul toCppEnum (16781618) = KeyHangulStart toCppEnum (16781619) = KeyHangulEnd toCppEnum (16781620) = KeyHangulHanja toCppEnum (16781621) = KeyHangulJamo toCppEnum (16781622) = KeyHangulRomaja toCppEnum (16781623) = KeyCodeinput toCppEnum (16781624) = KeyHangulJeonja toCppEnum (16781625) = KeyHangulBanja toCppEnum (16781626) = KeyHangulPreHanja toCppEnum (16781627) = KeyHangulPostHanja toCppEnum (16781628) = KeySingleCandidate toCppEnum (16781629) = KeyMultipleCandidate toCppEnum (16781630) = KeyPreviousCandidate toCppEnum (16781631) = KeyHangulSpecial toCppEnum (16781694) = KeyModeSwitch toCppEnum (16781904) = KeyDeadGrave toCppEnum (16781905) = KeyDeadAcute toCppEnum (16781906) = KeyDeadCircumflex toCppEnum (16781907) = KeyDeadTilde toCppEnum (16781908) = KeyDeadMacron toCppEnum (16781909) = KeyDeadBreve toCppEnum (16781910) = KeyDeadAbovedot toCppEnum (16781911) = KeyDeadDiaeresis toCppEnum (16781912) = KeyDeadAbovering toCppEnum (16781913) = KeyDeadDoubleacute toCppEnum (16781914) = KeyDeadCaron toCppEnum (16781915) = KeyDeadCedilla toCppEnum (16781916) = KeyDeadOgonek toCppEnum (16781917) = KeyDeadIota toCppEnum (16781918) = KeyDeadVoicedSound toCppEnum (16781919) = KeyDeadSemivoicedSound toCppEnum (16781920) = KeyDeadBelowdot toCppEnum (16781921) = KeyDeadHook toCppEnum (16781922) = KeyDeadHorn toCppEnum (16781923) = KeyDeadStroke toCppEnum (16781924) = KeyDeadAbovecomma toCppEnum (16781925) = KeyDeadAbovereversedcomma toCppEnum (16781926) = KeyDeadDoublegrave toCppEnum (16781927) = KeyDeadBelowring toCppEnum (16781928) = KeyDeadBelowmacron toCppEnum (16781930) = KeyDeadBelowtilde toCppEnum (16781931) = KeyDeadBelowbreve toCppEnum (16781932) = KeyDeadBelowdiaeresis toCppEnum (16781933) = KeyDeadInvertedbreve toCppEnum (16781934) = KeyDeadBelowcomma toCppEnum (16781935) = KeyDeadCurrency toCppEnum (16781952) = KeyDeadALower toCppEnum (16781953) = KeyDeadAUpper toCppEnum (16781954) = KeyDeadELower toCppEnum (16781955) = KeyDeadEUpper toCppEnum (16781956) = KeyDeadILower toCppEnum (16781957) = KeyDeadIUpper toCppEnum (16781958) = KeyDeadOLower toCppEnum (16781959) = KeyDeadOUpper toCppEnum (16781960) = KeyDeadULower toCppEnum (16781961) = KeyDeadUUpper toCppEnum (16781962) = KeyDeadSmallSchwa toCppEnum (16781963) = KeyDeadCapitalSchwa toCppEnum (16781964) = KeyDeadGreek toCppEnum (16781968) = KeyDeadLowline toCppEnum (16781969) = KeyDeadAboveverticalline toCppEnum (16781970) = KeyDeadBelowverticalline toCppEnum (16781971) = KeyDeadLongsolidusoverlay toCppEnum n = UnknownQtKey n instance HoppyP.Eq QtKey where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtKey where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtKeyboardModifier = NoModifier | ShiftModifier | ControlModifier | AltModifier | MetaModifier | KeypadModifier | GroupSwitchModifier | UnknownQtKeyboardModifier (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtKeyboardModifier where fromCppEnum NoModifier = 0 fromCppEnum ShiftModifier = 33554432 fromCppEnum ControlModifier = 67108864 fromCppEnum AltModifier = 134217728 fromCppEnum MetaModifier = 268435456 fromCppEnum KeypadModifier = 536870912 fromCppEnum GroupSwitchModifier = 1073741824 fromCppEnum (UnknownQtKeyboardModifier n) = n toCppEnum (0) = NoModifier toCppEnum (33554432) = ShiftModifier toCppEnum (67108864) = ControlModifier toCppEnum (134217728) = AltModifier toCppEnum (268435456) = MetaModifier toCppEnum (536870912) = KeypadModifier toCppEnum (1073741824) = GroupSwitchModifier toCppEnum n = UnknownQtKeyboardModifier n instance HoppyP.Eq QtKeyboardModifier where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtKeyboardModifier where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtKeyboardModifiers = QtKeyboardModifiers (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtKeyboardModifier QtKeyboardModifiers where enumToFlags = QtKeyboardModifiers . QtahFHR.fromCppEnum flagsToEnum (QtKeyboardModifiers x') = QtahFHR.toCppEnum x' class IsQtKeyboardModifiers a where toQtKeyboardModifiers :: a -> QtKeyboardModifiers instance IsQtKeyboardModifiers QtKeyboardModifiers where toQtKeyboardModifiers = QtahP.id instance IsQtKeyboardModifiers QtKeyboardModifier where toQtKeyboardModifiers = QtahFlags.enumToFlags instance IsQtKeyboardModifiers (HoppyFC.CInt) where toQtKeyboardModifiers = QtahFlags.numToFlags altModifier :: QtKeyboardModifiers altModifier = QtKeyboardModifiers (134217728) controlModifier :: QtKeyboardModifiers controlModifier = QtKeyboardModifiers (67108864) groupSwitchModifier :: QtKeyboardModifiers groupSwitchModifier = QtKeyboardModifiers (1073741824) keypadModifier :: QtKeyboardModifiers keypadModifier = QtKeyboardModifiers (536870912) metaModifier :: QtKeyboardModifiers metaModifier = QtKeyboardModifiers (268435456) noModifier :: QtKeyboardModifiers noModifier = QtKeyboardModifiers (0) shiftModifier :: QtKeyboardModifiers shiftModifier = QtKeyboardModifiers (33554432) instance QtahDB.Bits QtKeyboardModifiers where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtLayoutDirection = LeftToRight | RightToLeft | LayoutDirectionAuto | UnknownQtLayoutDirection (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtLayoutDirection where fromCppEnum LeftToRight = 0 fromCppEnum RightToLeft = 1 fromCppEnum LayoutDirectionAuto = 2 fromCppEnum (UnknownQtLayoutDirection n) = n toCppEnum (0) = LeftToRight toCppEnum (1) = RightToLeft toCppEnum (2) = LayoutDirectionAuto toCppEnum n = UnknownQtLayoutDirection n instance HoppyP.Eq QtLayoutDirection where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtLayoutDirection where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtMaskMode = MaskInColor | MaskOutColor | UnknownQtMaskMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMaskMode where fromCppEnum MaskInColor = 0 fromCppEnum MaskOutColor = 1 fromCppEnum (UnknownQtMaskMode n) = n toCppEnum (0) = MaskInColor toCppEnum (1) = MaskOutColor toCppEnum n = UnknownQtMaskMode n instance HoppyP.Eq QtMaskMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtMaskMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtMatchFlag = MatchExactly | MatchFixedString | MatchContains | MatchStartsWith | MatchEndsWith | MatchCaseSensitive | MatchRegExp | MatchWildcard | MatchWrap | MatchRecursive | UnknownQtMatchFlag (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMatchFlag where fromCppEnum MatchExactly = 0 fromCppEnum MatchFixedString = 8 fromCppEnum MatchContains = 1 fromCppEnum MatchStartsWith = 2 fromCppEnum MatchEndsWith = 3 fromCppEnum MatchCaseSensitive = 16 fromCppEnum MatchRegExp = 4 fromCppEnum MatchWildcard = 5 fromCppEnum MatchWrap = 32 fromCppEnum MatchRecursive = 64 fromCppEnum (UnknownQtMatchFlag n) = n toCppEnum (0) = MatchExactly toCppEnum (1) = MatchContains toCppEnum (2) = MatchStartsWith toCppEnum (3) = MatchEndsWith toCppEnum (4) = MatchRegExp toCppEnum (5) = MatchWildcard toCppEnum (8) = MatchFixedString toCppEnum (16) = MatchCaseSensitive toCppEnum (32) = MatchWrap toCppEnum (64) = MatchRecursive toCppEnum n = UnknownQtMatchFlag n instance HoppyP.Eq QtMatchFlag where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtMatchFlag where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtMatchFlags = QtMatchFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtMatchFlag QtMatchFlags where enumToFlags = QtMatchFlags . QtahFHR.fromCppEnum flagsToEnum (QtMatchFlags x') = QtahFHR.toCppEnum x' class IsQtMatchFlags a where toQtMatchFlags :: a -> QtMatchFlags instance IsQtMatchFlags QtMatchFlags where toQtMatchFlags = QtahP.id instance IsQtMatchFlags QtMatchFlag where toQtMatchFlags = QtahFlags.enumToFlags instance IsQtMatchFlags (HoppyFC.CInt) where toQtMatchFlags = QtahFlags.numToFlags matchCaseSensitive :: QtMatchFlags matchCaseSensitive = QtMatchFlags (16) matchContains :: QtMatchFlags matchContains = QtMatchFlags (1) matchEndsWith :: QtMatchFlags matchEndsWith = QtMatchFlags (3) matchExactly :: QtMatchFlags matchExactly = QtMatchFlags (0) matchFixedString :: QtMatchFlags matchFixedString = QtMatchFlags (8) matchRecursive :: QtMatchFlags matchRecursive = QtMatchFlags (64) matchRegExp :: QtMatchFlags matchRegExp = QtMatchFlags (4) matchStartsWith :: QtMatchFlags matchStartsWith = QtMatchFlags (2) matchWildcard :: QtMatchFlags matchWildcard = QtMatchFlags (5) matchWrap :: QtMatchFlags matchWrap = QtMatchFlags (32) instance QtahDB.Bits QtMatchFlags where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtMouseButton = NoButton | AllButtons | LeftButton | RightButton | MidButton | MiddleButton | BackButton | XButton1 | ExtraButton1 | ForwardButton | XButton2 | ExtraButton2 | TaskButton | ExtraButton3 | ExtraButton4 | ExtraButton5 | ExtraButton6 | ExtraButton7 | ExtraButton8 | ExtraButton9 | ExtraButton10 | ExtraButton11 | ExtraButton12 | ExtraButton13 | ExtraButton14 | ExtraButton15 | ExtraButton16 | ExtraButton17 | ExtraButton18 | ExtraButton19 | ExtraButton20 | ExtraButton21 | ExtraButton22 | ExtraButton23 | ExtraButton24 | UnknownQtMouseButton (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMouseButton where fromCppEnum NoButton = 0 fromCppEnum AllButtons = 134217727 fromCppEnum LeftButton = 1 fromCppEnum RightButton = 2 fromCppEnum MidButton = 4 fromCppEnum MiddleButton = 4 fromCppEnum BackButton = 8 fromCppEnum XButton1 = 8 fromCppEnum ExtraButton1 = 8 fromCppEnum ForwardButton = 16 fromCppEnum XButton2 = 16 fromCppEnum ExtraButton2 = 16 fromCppEnum TaskButton = 32 fromCppEnum ExtraButton3 = 32 fromCppEnum ExtraButton4 = 64 fromCppEnum ExtraButton5 = 128 fromCppEnum ExtraButton6 = 256 fromCppEnum ExtraButton7 = 512 fromCppEnum ExtraButton8 = 1024 fromCppEnum ExtraButton9 = 2048 fromCppEnum ExtraButton10 = 4096 fromCppEnum ExtraButton11 = 8192 fromCppEnum ExtraButton12 = 16384 fromCppEnum ExtraButton13 = 32768 fromCppEnum ExtraButton14 = 65536 fromCppEnum ExtraButton15 = 131072 fromCppEnum ExtraButton16 = 262144 fromCppEnum ExtraButton17 = 524288 fromCppEnum ExtraButton18 = 1048576 fromCppEnum ExtraButton19 = 2097152 fromCppEnum ExtraButton20 = 4194304 fromCppEnum ExtraButton21 = 8388608 fromCppEnum ExtraButton22 = 16777216 fromCppEnum ExtraButton23 = 33554432 fromCppEnum ExtraButton24 = 67108864 fromCppEnum (UnknownQtMouseButton n) = n toCppEnum (0) = NoButton toCppEnum (1) = LeftButton toCppEnum (2) = RightButton toCppEnum (4) = MiddleButton toCppEnum (8) = ExtraButton1 toCppEnum (16) = ExtraButton2 toCppEnum (32) = ExtraButton3 toCppEnum (64) = ExtraButton4 toCppEnum (128) = ExtraButton5 toCppEnum (256) = ExtraButton6 toCppEnum (512) = ExtraButton7 toCppEnum (1024) = ExtraButton8 toCppEnum (2048) = ExtraButton9 toCppEnum (4096) = ExtraButton10 toCppEnum (8192) = ExtraButton11 toCppEnum (16384) = ExtraButton12 toCppEnum (32768) = ExtraButton13 toCppEnum (65536) = ExtraButton14 toCppEnum (131072) = ExtraButton15 toCppEnum (262144) = ExtraButton16 toCppEnum (524288) = ExtraButton17 toCppEnum (1048576) = ExtraButton18 toCppEnum (2097152) = ExtraButton19 toCppEnum (4194304) = ExtraButton20 toCppEnum (8388608) = ExtraButton21 toCppEnum (16777216) = ExtraButton22 toCppEnum (33554432) = ExtraButton23 toCppEnum (67108864) = ExtraButton24 toCppEnum (134217727) = AllButtons toCppEnum n = UnknownQtMouseButton n instance HoppyP.Eq QtMouseButton where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtMouseButton where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtMouseButtons = QtMouseButtons (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtMouseButton QtMouseButtons where enumToFlags = QtMouseButtons . QtahFHR.fromCppEnum flagsToEnum (QtMouseButtons x') = QtahFHR.toCppEnum x' class IsQtMouseButtons a where toQtMouseButtons :: a -> QtMouseButtons instance IsQtMouseButtons QtMouseButtons where toQtMouseButtons = QtahP.id instance IsQtMouseButtons QtMouseButton where toQtMouseButtons = QtahFlags.enumToFlags instance IsQtMouseButtons (HoppyFC.CInt) where toQtMouseButtons = QtahFlags.numToFlags allButtons :: QtMouseButtons allButtons = QtMouseButtons (134217727) backButton :: QtMouseButtons backButton = QtMouseButtons (8) extraButton1 :: QtMouseButtons extraButton1 = QtMouseButtons (8) extraButton10 :: QtMouseButtons extraButton10 = QtMouseButtons (4096) extraButton11 :: QtMouseButtons extraButton11 = QtMouseButtons (8192) extraButton12 :: QtMouseButtons extraButton12 = QtMouseButtons (16384) extraButton13 :: QtMouseButtons extraButton13 = QtMouseButtons (32768) extraButton14 :: QtMouseButtons extraButton14 = QtMouseButtons (65536) extraButton15 :: QtMouseButtons extraButton15 = QtMouseButtons (131072) extraButton16 :: QtMouseButtons extraButton16 = QtMouseButtons (262144) extraButton17 :: QtMouseButtons extraButton17 = QtMouseButtons (524288) extraButton18 :: QtMouseButtons extraButton18 = QtMouseButtons (1048576) extraButton19 :: QtMouseButtons extraButton19 = QtMouseButtons (2097152) extraButton2 :: QtMouseButtons extraButton2 = QtMouseButtons (16) extraButton20 :: QtMouseButtons extraButton20 = QtMouseButtons (4194304) extraButton21 :: QtMouseButtons extraButton21 = QtMouseButtons (8388608) extraButton22 :: QtMouseButtons extraButton22 = QtMouseButtons (16777216) extraButton23 :: QtMouseButtons extraButton23 = QtMouseButtons (33554432) extraButton24 :: QtMouseButtons extraButton24 = QtMouseButtons (67108864) extraButton3 :: QtMouseButtons extraButton3 = QtMouseButtons (32) extraButton4 :: QtMouseButtons extraButton4 = QtMouseButtons (64) extraButton5 :: QtMouseButtons extraButton5 = QtMouseButtons (128) extraButton6 :: QtMouseButtons extraButton6 = QtMouseButtons (256) extraButton7 :: QtMouseButtons extraButton7 = QtMouseButtons (512) extraButton8 :: QtMouseButtons extraButton8 = QtMouseButtons (1024) extraButton9 :: QtMouseButtons extraButton9 = QtMouseButtons (2048) forwardButton :: QtMouseButtons forwardButton = QtMouseButtons (16) leftButton :: QtMouseButtons leftButton = QtMouseButtons (1) midButton :: QtMouseButtons midButton = QtMouseButtons (4) middleButton :: QtMouseButtons middleButton = QtMouseButtons (4) noButton :: QtMouseButtons noButton = QtMouseButtons (0) rightButton :: QtMouseButtons rightButton = QtMouseButtons (2) taskButton :: QtMouseButtons taskButton = QtMouseButtons (32) xButton1 :: QtMouseButtons xButton1 = QtMouseButtons (8) xButton2 :: QtMouseButtons xButton2 = QtMouseButtons (16) instance QtahDB.Bits QtMouseButtons where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtMouseEventFlag = MouseEventCreatedDoubleClick | UnknownQtMouseEventFlag (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMouseEventFlag where fromCppEnum MouseEventCreatedDoubleClick = 1 fromCppEnum (UnknownQtMouseEventFlag n) = n toCppEnum (1) = MouseEventCreatedDoubleClick toCppEnum n = UnknownQtMouseEventFlag n instance HoppyP.Eq QtMouseEventFlag where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtMouseEventFlag where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtMouseEventFlags = QtMouseEventFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtMouseEventFlag QtMouseEventFlags where enumToFlags = QtMouseEventFlags . QtahFHR.fromCppEnum flagsToEnum (QtMouseEventFlags x') = QtahFHR.toCppEnum x' class IsQtMouseEventFlags a where toQtMouseEventFlags :: a -> QtMouseEventFlags instance IsQtMouseEventFlags QtMouseEventFlags where toQtMouseEventFlags = QtahP.id instance IsQtMouseEventFlags QtMouseEventFlag where toQtMouseEventFlags = QtahFlags.enumToFlags instance IsQtMouseEventFlags (HoppyFC.CInt) where toQtMouseEventFlags = QtahFlags.numToFlags mouseEventCreatedDoubleClick :: QtMouseEventFlags mouseEventCreatedDoubleClick = QtMouseEventFlags (1) instance QtahDB.Bits QtMouseEventFlags where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtMouseEventSource = MouseEventNotSynthesized | MouseEventSynthesizedBySystem | MouseEventSynthesizedByQt | UnknownQtMouseEventSource (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMouseEventSource where fromCppEnum MouseEventNotSynthesized = 0 fromCppEnum MouseEventSynthesizedBySystem = 1 fromCppEnum MouseEventSynthesizedByQt = 2 fromCppEnum (UnknownQtMouseEventSource n) = n toCppEnum (0) = MouseEventNotSynthesized toCppEnum (1) = MouseEventSynthesizedBySystem toCppEnum (2) = MouseEventSynthesizedByQt toCppEnum n = UnknownQtMouseEventSource n instance HoppyP.Eq QtMouseEventSource where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtMouseEventSource where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtMsgType = QtDebugMsg | QtInfoMsg | QtWarningMsg | QtCriticalMsg | QtFatalMsg | QtSystemMsg | UnknownQtMsgType (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMsgType where fromCppEnum QtDebugMsg = 0 fromCppEnum QtInfoMsg = 4 fromCppEnum QtWarningMsg = 1 fromCppEnum QtCriticalMsg = 2 fromCppEnum QtFatalMsg = 3 fromCppEnum QtSystemMsg = 2 fromCppEnum (UnknownQtMsgType n) = n toCppEnum (0) = QtDebugMsg toCppEnum (1) = QtWarningMsg toCppEnum (2) = QtSystemMsg toCppEnum (3) = QtFatalMsg toCppEnum (4) = QtInfoMsg toCppEnum n = UnknownQtMsgType n instance HoppyP.Eq QtMsgType where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtMsgType where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtNativeGestureType = BeginNativeGesture | EndNativeGesture | PanNativeGesture | ZoomNativeGesture | SmartZoomNativeGesture | RotateNativeGesture | SwipeNativeGesture | UnknownQtNativeGestureType (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtNativeGestureType where fromCppEnum BeginNativeGesture = 0 fromCppEnum EndNativeGesture = 1 fromCppEnum PanNativeGesture = 2 fromCppEnum ZoomNativeGesture = 3 fromCppEnum SmartZoomNativeGesture = 4 fromCppEnum RotateNativeGesture = 5 fromCppEnum SwipeNativeGesture = 6 fromCppEnum (UnknownQtNativeGestureType n) = n toCppEnum (0) = BeginNativeGesture toCppEnum (1) = EndNativeGesture toCppEnum (2) = PanNativeGesture toCppEnum (3) = ZoomNativeGesture toCppEnum (4) = SmartZoomNativeGesture toCppEnum (5) = RotateNativeGesture toCppEnum (6) = SwipeNativeGesture toCppEnum n = UnknownQtNativeGestureType n instance HoppyP.Eq QtNativeGestureType where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtNativeGestureType where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtNavigationMode = NavigationModeNone | NavigationModeKeypadTabOrder | NavigationModeKeypadDirectional | NavigationModeCursorAuto | NavigationModeCursorForceVisible | UnknownQtNavigationMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtNavigationMode where fromCppEnum NavigationModeNone = 0 fromCppEnum NavigationModeKeypadTabOrder = 1 fromCppEnum NavigationModeKeypadDirectional = 2 fromCppEnum NavigationModeCursorAuto = 3 fromCppEnum NavigationModeCursorForceVisible = 4 fromCppEnum (UnknownQtNavigationMode n) = n toCppEnum (0) = NavigationModeNone toCppEnum (1) = NavigationModeKeypadTabOrder toCppEnum (2) = NavigationModeKeypadDirectional toCppEnum (3) = NavigationModeCursorAuto toCppEnum (4) = NavigationModeCursorForceVisible toCppEnum n = UnknownQtNavigationMode n instance HoppyP.Eq QtNavigationMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtNavigationMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtOrientation = Horizontal | Vertical | UnknownQtOrientation (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtOrientation where fromCppEnum Horizontal = 1 fromCppEnum Vertical = 2 fromCppEnum (UnknownQtOrientation n) = n toCppEnum (1) = Horizontal toCppEnum (2) = Vertical toCppEnum n = UnknownQtOrientation n instance HoppyP.Eq QtOrientation where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtOrientation where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtOrientations = QtOrientations (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtOrientation QtOrientations where enumToFlags = QtOrientations . QtahFHR.fromCppEnum flagsToEnum (QtOrientations x') = QtahFHR.toCppEnum x' class IsQtOrientations a where toQtOrientations :: a -> QtOrientations instance IsQtOrientations QtOrientations where toQtOrientations = QtahP.id instance IsQtOrientations QtOrientation where toQtOrientations = QtahFlags.enumToFlags instance IsQtOrientations (HoppyFC.CInt) where toQtOrientations = QtahFlags.numToFlags horizontal :: QtOrientations horizontal = QtOrientations (1) vertical :: QtOrientations vertical = QtOrientations (2) instance QtahDB.Bits QtOrientations where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtPenCapStyle = FlatCap | SquareCap | RoundCap | UnknownQtPenCapStyle (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtPenCapStyle where fromCppEnum FlatCap = 0 fromCppEnum SquareCap = 16 fromCppEnum RoundCap = 32 fromCppEnum (UnknownQtPenCapStyle n) = n toCppEnum (0) = FlatCap toCppEnum (16) = SquareCap toCppEnum (32) = RoundCap toCppEnum n = UnknownQtPenCapStyle n instance HoppyP.Eq QtPenCapStyle where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtPenCapStyle where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtPenJoinStyle = MiterJoin | BevelJoin | RoundJoin | SvgMiterJoin | UnknownQtPenJoinStyle (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtPenJoinStyle where fromCppEnum MiterJoin = 0 fromCppEnum BevelJoin = 64 fromCppEnum RoundJoin = 128 fromCppEnum SvgMiterJoin = 256 fromCppEnum (UnknownQtPenJoinStyle n) = n toCppEnum (0) = MiterJoin toCppEnum (64) = BevelJoin toCppEnum (128) = RoundJoin toCppEnum (256) = SvgMiterJoin toCppEnum n = UnknownQtPenJoinStyle n instance HoppyP.Eq QtPenJoinStyle where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtPenJoinStyle where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtPenStyle = NoPen | SolidLine | DashLine | DotLine | DashDotLine | DashDotDotLine | CustomDashLine | UnknownQtPenStyle (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtPenStyle where fromCppEnum NoPen = 0 fromCppEnum SolidLine = 1 fromCppEnum DashLine = 2 fromCppEnum DotLine = 3 fromCppEnum DashDotLine = 4 fromCppEnum DashDotDotLine = 5 fromCppEnum CustomDashLine = 6 fromCppEnum (UnknownQtPenStyle n) = n toCppEnum (0) = NoPen toCppEnum (1) = SolidLine toCppEnum (2) = DashLine toCppEnum (3) = DotLine toCppEnum (4) = DashDotLine toCppEnum (5) = DashDotDotLine toCppEnum (6) = CustomDashLine toCppEnum n = UnknownQtPenStyle n instance HoppyP.Eq QtPenStyle where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtPenStyle where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtScreenOrientation = PrimaryOrientation | PortraitOrientation | LandscapeOrientation | InvertedPortraitOrientation | InvertedLandscapeOrientation | UnknownQtScreenOrientation (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtScreenOrientation where fromCppEnum PrimaryOrientation = 0 fromCppEnum PortraitOrientation = 1 fromCppEnum LandscapeOrientation = 2 fromCppEnum InvertedPortraitOrientation = 4 fromCppEnum InvertedLandscapeOrientation = 8 fromCppEnum (UnknownQtScreenOrientation n) = n toCppEnum (0) = PrimaryOrientation toCppEnum (1) = PortraitOrientation toCppEnum (2) = LandscapeOrientation toCppEnum (4) = InvertedPortraitOrientation toCppEnum (8) = InvertedLandscapeOrientation toCppEnum n = UnknownQtScreenOrientation n instance HoppyP.Eq QtScreenOrientation where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtScreenOrientation where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtScreenOrientations = QtScreenOrientations (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtScreenOrientation QtScreenOrientations where enumToFlags = QtScreenOrientations . QtahFHR.fromCppEnum flagsToEnum (QtScreenOrientations x') = QtahFHR.toCppEnum x' class IsQtScreenOrientations a where toQtScreenOrientations :: a -> QtScreenOrientations instance IsQtScreenOrientations QtScreenOrientations where toQtScreenOrientations = QtahP.id instance IsQtScreenOrientations QtScreenOrientation where toQtScreenOrientations = QtahFlags.enumToFlags instance IsQtScreenOrientations (HoppyFC.CInt) where toQtScreenOrientations = QtahFlags.numToFlags invertedLandscapeOrientation :: QtScreenOrientations invertedLandscapeOrientation = QtScreenOrientations (8) invertedPortraitOrientation :: QtScreenOrientations invertedPortraitOrientation = QtScreenOrientations (4) landscapeOrientation :: QtScreenOrientations landscapeOrientation = QtScreenOrientations (2) portraitOrientation :: QtScreenOrientations portraitOrientation = QtScreenOrientations (1) primaryOrientation :: QtScreenOrientations primaryOrientation = QtScreenOrientations (0) instance QtahDB.Bits QtScreenOrientations where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtScrollBarPolicy = ScrollBarAsNeeded | ScrollBarAlwaysOff | ScrollBarAlwaysOn | UnknownQtScrollBarPolicy (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtScrollBarPolicy where fromCppEnum ScrollBarAsNeeded = 0 fromCppEnum ScrollBarAlwaysOff = 1 fromCppEnum ScrollBarAlwaysOn = 2 fromCppEnum (UnknownQtScrollBarPolicy n) = n toCppEnum (0) = ScrollBarAsNeeded toCppEnum (1) = ScrollBarAlwaysOff toCppEnum (2) = ScrollBarAlwaysOn toCppEnum n = UnknownQtScrollBarPolicy n instance HoppyP.Eq QtScrollBarPolicy where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtScrollBarPolicy where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtScrollPhase = ScrollBegin | ScrollUpdate | ScrollEnd | UnknownQtScrollPhase (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtScrollPhase where fromCppEnum ScrollBegin = 1 fromCppEnum ScrollUpdate = 2 fromCppEnum ScrollEnd = 3 fromCppEnum (UnknownQtScrollPhase n) = n toCppEnum (1) = ScrollBegin toCppEnum (2) = ScrollUpdate toCppEnum (3) = ScrollEnd toCppEnum n = UnknownQtScrollPhase n instance HoppyP.Eq QtScrollPhase where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtScrollPhase where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtShortcutContext = WidgetShortcut | WidgetWithChildrenShortcut | WindowShortcut | ApplicationShortcut | UnknownQtShortcutContext (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtShortcutContext where fromCppEnum WidgetShortcut = 0 fromCppEnum WidgetWithChildrenShortcut = 3 fromCppEnum WindowShortcut = 1 fromCppEnum ApplicationShortcut = 2 fromCppEnum (UnknownQtShortcutContext n) = n toCppEnum (0) = WidgetShortcut toCppEnum (1) = WindowShortcut toCppEnum (2) = ApplicationShortcut toCppEnum (3) = WidgetWithChildrenShortcut toCppEnum n = UnknownQtShortcutContext n instance HoppyP.Eq QtShortcutContext where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtShortcutContext where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtSizeHint = MinimumSize | PreferredSize | MaximumSize | MinimumDescent | UnknownQtSizeHint (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtSizeHint where fromCppEnum MinimumSize = 0 fromCppEnum PreferredSize = 1 fromCppEnum MaximumSize = 2 fromCppEnum MinimumDescent = 3 fromCppEnum (UnknownQtSizeHint n) = n toCppEnum (0) = MinimumSize toCppEnum (1) = PreferredSize toCppEnum (2) = MaximumSize toCppEnum (3) = MinimumDescent toCppEnum n = UnknownQtSizeHint n instance HoppyP.Eq QtSizeHint where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtSizeHint where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtSizeMode = AbsoluteSize | RelativeSize | UnknownQtSizeMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtSizeMode where fromCppEnum AbsoluteSize = 0 fromCppEnum RelativeSize = 1 fromCppEnum (UnknownQtSizeMode n) = n toCppEnum (0) = AbsoluteSize toCppEnum (1) = RelativeSize toCppEnum n = UnknownQtSizeMode n instance HoppyP.Eq QtSizeMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtSizeMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtSortOrder = AscendingOrder | DescendingOrder | UnknownQtSortOrder (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtSortOrder where fromCppEnum AscendingOrder = 0 fromCppEnum DescendingOrder = 1 fromCppEnum (UnknownQtSortOrder n) = n toCppEnum (0) = AscendingOrder toCppEnum (1) = DescendingOrder toCppEnum n = UnknownQtSortOrder n instance HoppyP.Eq QtSortOrder where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtSortOrder where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtTabFocusBehavior = NoTabFocus | TabFocusTextControls | TabFocusListControls | TabFocusAllControls | UnknownQtTabFocusBehavior (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTabFocusBehavior where fromCppEnum NoTabFocus = 0 fromCppEnum TabFocusTextControls = 1 fromCppEnum TabFocusListControls = 2 fromCppEnum TabFocusAllControls = 255 fromCppEnum (UnknownQtTabFocusBehavior n) = n toCppEnum (0) = NoTabFocus toCppEnum (1) = TabFocusTextControls toCppEnum (2) = TabFocusListControls toCppEnum (255) = TabFocusAllControls toCppEnum n = UnknownQtTabFocusBehavior n instance HoppyP.Eq QtTabFocusBehavior where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtTabFocusBehavior where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtTextElideMode = ElideLeft | ElideRight | ElideMiddle | ElideNone | UnknownQtTextElideMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTextElideMode where fromCppEnum ElideLeft = 0 fromCppEnum ElideRight = 1 fromCppEnum ElideMiddle = 2 fromCppEnum ElideNone = 3 fromCppEnum (UnknownQtTextElideMode n) = n toCppEnum (0) = ElideLeft toCppEnum (1) = ElideRight toCppEnum (2) = ElideMiddle toCppEnum (3) = ElideNone toCppEnum n = UnknownQtTextElideMode n instance HoppyP.Eq QtTextElideMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtTextElideMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtTextFlag = TextSingleLine | TextDontClip | TextExpandTabs | TextShowMnemonic | TextWordWrap | TextWrapAnywhere | TextHideMnemonic | TextDontPrint | TextIncludeTrailingSpaces | TextJustificationForced | UnknownQtTextFlag (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTextFlag where fromCppEnum TextSingleLine = 256 fromCppEnum TextDontClip = 512 fromCppEnum TextExpandTabs = 1024 fromCppEnum TextShowMnemonic = 2048 fromCppEnum TextWordWrap = 4096 fromCppEnum TextWrapAnywhere = 8192 fromCppEnum TextHideMnemonic = 32768 fromCppEnum TextDontPrint = 16384 fromCppEnum TextIncludeTrailingSpaces = 134217728 fromCppEnum TextJustificationForced = 65536 fromCppEnum (UnknownQtTextFlag n) = n toCppEnum (256) = TextSingleLine toCppEnum (512) = TextDontClip toCppEnum (1024) = TextExpandTabs toCppEnum (2048) = TextShowMnemonic toCppEnum (4096) = TextWordWrap toCppEnum (8192) = TextWrapAnywhere toCppEnum (16384) = TextDontPrint toCppEnum (32768) = TextHideMnemonic toCppEnum (65536) = TextJustificationForced toCppEnum (134217728) = TextIncludeTrailingSpaces toCppEnum n = UnknownQtTextFlag n instance HoppyP.Eq QtTextFlag where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtTextFlag where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtTextFormat = PlainText | RichText | AutoText | UnknownQtTextFormat (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTextFormat where fromCppEnum PlainText = 0 fromCppEnum RichText = 1 fromCppEnum AutoText = 2 fromCppEnum (UnknownQtTextFormat n) = n toCppEnum (0) = PlainText toCppEnum (1) = RichText toCppEnum (2) = AutoText toCppEnum n = UnknownQtTextFormat n instance HoppyP.Eq QtTextFormat where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtTextFormat where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtTextInteractionFlag = NoTextInteraction | TextSelectableByMouse | TextSelectableByKeyboard | LinksAccessibleByMouse | LinksAccessibleByKeyboard | TextEditable | TextEditorInteraction | TextBrowserInteraction | UnknownQtTextInteractionFlag (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTextInteractionFlag where fromCppEnum NoTextInteraction = 0 fromCppEnum TextSelectableByMouse = 1 fromCppEnum TextSelectableByKeyboard = 2 fromCppEnum LinksAccessibleByMouse = 4 fromCppEnum LinksAccessibleByKeyboard = 8 fromCppEnum TextEditable = 16 fromCppEnum TextEditorInteraction = 19 fromCppEnum TextBrowserInteraction = 13 fromCppEnum (UnknownQtTextInteractionFlag n) = n toCppEnum (0) = NoTextInteraction toCppEnum (1) = TextSelectableByMouse toCppEnum (2) = TextSelectableByKeyboard toCppEnum (4) = LinksAccessibleByMouse toCppEnum (8) = LinksAccessibleByKeyboard toCppEnum (13) = TextBrowserInteraction toCppEnum (16) = TextEditable toCppEnum (19) = TextEditorInteraction toCppEnum n = UnknownQtTextInteractionFlag n instance HoppyP.Eq QtTextInteractionFlag where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtTextInteractionFlag where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtTextInteractionFlags = QtTextInteractionFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtTextInteractionFlag QtTextInteractionFlags where enumToFlags = QtTextInteractionFlags . QtahFHR.fromCppEnum flagsToEnum (QtTextInteractionFlags x') = QtahFHR.toCppEnum x' class IsQtTextInteractionFlags a where toQtTextInteractionFlags :: a -> QtTextInteractionFlags instance IsQtTextInteractionFlags QtTextInteractionFlags where toQtTextInteractionFlags = QtahP.id instance IsQtTextInteractionFlags QtTextInteractionFlag where toQtTextInteractionFlags = QtahFlags.enumToFlags instance IsQtTextInteractionFlags (HoppyFC.CInt) where toQtTextInteractionFlags = QtahFlags.numToFlags linksAccessibleByKeyboard :: QtTextInteractionFlags linksAccessibleByKeyboard = QtTextInteractionFlags (8) linksAccessibleByMouse :: QtTextInteractionFlags linksAccessibleByMouse = QtTextInteractionFlags (4) noTextInteraction :: QtTextInteractionFlags noTextInteraction = QtTextInteractionFlags (0) textBrowserInteraction :: QtTextInteractionFlags textBrowserInteraction = QtTextInteractionFlags (13) textEditable :: QtTextInteractionFlags textEditable = QtTextInteractionFlags (16) textEditorInteraction :: QtTextInteractionFlags textEditorInteraction = QtTextInteractionFlags (19) textSelectableByKeyboard :: QtTextInteractionFlags textSelectableByKeyboard = QtTextInteractionFlags (2) textSelectableByMouse :: QtTextInteractionFlags textSelectableByMouse = QtTextInteractionFlags (1) instance QtahDB.Bits QtTextInteractionFlags where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtTileRule = StretchTile | RepeatTile | RoundTile | UnknownQtTileRule (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTileRule where fromCppEnum StretchTile = 0 fromCppEnum RepeatTile = 1 fromCppEnum RoundTile = 2 fromCppEnum (UnknownQtTileRule n) = n toCppEnum (0) = StretchTile toCppEnum (1) = RepeatTile toCppEnum (2) = RoundTile toCppEnum n = UnknownQtTileRule n instance HoppyP.Eq QtTileRule where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtTileRule where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtTimeSpec = LocalTime | Utc | OffsetFromUtc | TimeZone | UnknownQtTimeSpec (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTimeSpec where fromCppEnum LocalTime = 0 fromCppEnum Utc = 1 fromCppEnum OffsetFromUtc = 2 fromCppEnum TimeZone = 3 fromCppEnum (UnknownQtTimeSpec n) = n toCppEnum (0) = LocalTime toCppEnum (1) = Utc toCppEnum (2) = OffsetFromUtc toCppEnum (3) = TimeZone toCppEnum n = UnknownQtTimeSpec n instance HoppyP.Eq QtTimeSpec where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtTimeSpec where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtTimerType = PreciseTimer | CoarseTimer | VeryCoarseTimer | UnknownQtTimerType (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTimerType where fromCppEnum PreciseTimer = 0 fromCppEnum CoarseTimer = 1 fromCppEnum VeryCoarseTimer = 2 fromCppEnum (UnknownQtTimerType n) = n toCppEnum (0) = PreciseTimer toCppEnum (1) = CoarseTimer toCppEnum (2) = VeryCoarseTimer toCppEnum n = UnknownQtTimerType n instance HoppyP.Eq QtTimerType where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtTimerType where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtToolBarArea = NoToolBarArea | LeftToolBarArea | RightToolBarArea | TopToolBarArea | BottomToolBarArea | AllToolBarAreas | UnknownQtToolBarArea (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtToolBarArea where fromCppEnum NoToolBarArea = 0 fromCppEnum LeftToolBarArea = 1 fromCppEnum RightToolBarArea = 2 fromCppEnum TopToolBarArea = 4 fromCppEnum BottomToolBarArea = 8 fromCppEnum AllToolBarAreas = 15 fromCppEnum (UnknownQtToolBarArea n) = n toCppEnum (0) = NoToolBarArea toCppEnum (1) = LeftToolBarArea toCppEnum (2) = RightToolBarArea toCppEnum (4) = TopToolBarArea toCppEnum (8) = BottomToolBarArea toCppEnum (15) = AllToolBarAreas toCppEnum n = UnknownQtToolBarArea n instance HoppyP.Eq QtToolBarArea where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtToolBarArea where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtToolBarAreas = QtToolBarAreas (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtToolBarArea QtToolBarAreas where enumToFlags = QtToolBarAreas . QtahFHR.fromCppEnum flagsToEnum (QtToolBarAreas x') = QtahFHR.toCppEnum x' class IsQtToolBarAreas a where toQtToolBarAreas :: a -> QtToolBarAreas instance IsQtToolBarAreas QtToolBarAreas where toQtToolBarAreas = QtahP.id instance IsQtToolBarAreas QtToolBarArea where toQtToolBarAreas = QtahFlags.enumToFlags instance IsQtToolBarAreas (HoppyFC.CInt) where toQtToolBarAreas = QtahFlags.numToFlags allToolBarAreas :: QtToolBarAreas allToolBarAreas = QtToolBarAreas (15) bottomToolBarArea :: QtToolBarAreas bottomToolBarArea = QtToolBarAreas (8) leftToolBarArea :: QtToolBarAreas leftToolBarArea = QtToolBarAreas (1) noToolBarArea :: QtToolBarAreas noToolBarArea = QtToolBarAreas (0) rightToolBarArea :: QtToolBarAreas rightToolBarArea = QtToolBarAreas (2) topToolBarArea :: QtToolBarAreas topToolBarArea = QtToolBarAreas (4) instance QtahDB.Bits QtToolBarAreas where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtToolButtonStyle = ToolButtonIconOnly | ToolButtonTextOnly | ToolButtonTextBesideIcon | ToolButtonTextUnderIcon | ToolButtonFollowStyle | UnknownQtToolButtonStyle (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtToolButtonStyle where fromCppEnum ToolButtonIconOnly = 0 fromCppEnum ToolButtonTextOnly = 1 fromCppEnum ToolButtonTextBesideIcon = 2 fromCppEnum ToolButtonTextUnderIcon = 3 fromCppEnum ToolButtonFollowStyle = 4 fromCppEnum (UnknownQtToolButtonStyle n) = n toCppEnum (0) = ToolButtonIconOnly toCppEnum (1) = ToolButtonTextOnly toCppEnum (2) = ToolButtonTextBesideIcon toCppEnum (3) = ToolButtonTextUnderIcon toCppEnum (4) = ToolButtonFollowStyle toCppEnum n = UnknownQtToolButtonStyle n instance HoppyP.Eq QtToolButtonStyle where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtToolButtonStyle where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtTouchPointState = TouchPointPressed | TouchPointMoved | TouchPointStationary | TouchPointReleased | UnknownQtTouchPointState (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTouchPointState where fromCppEnum TouchPointPressed = 1 fromCppEnum TouchPointMoved = 2 fromCppEnum TouchPointStationary = 4 fromCppEnum TouchPointReleased = 8 fromCppEnum (UnknownQtTouchPointState n) = n toCppEnum (1) = TouchPointPressed toCppEnum (2) = TouchPointMoved toCppEnum (4) = TouchPointStationary toCppEnum (8) = TouchPointReleased toCppEnum n = UnknownQtTouchPointState n instance HoppyP.Eq QtTouchPointState where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtTouchPointState where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtTouchPointStates = QtTouchPointStates (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtTouchPointState QtTouchPointStates where enumToFlags = QtTouchPointStates . QtahFHR.fromCppEnum flagsToEnum (QtTouchPointStates x') = QtahFHR.toCppEnum x' class IsQtTouchPointStates a where toQtTouchPointStates :: a -> QtTouchPointStates instance IsQtTouchPointStates QtTouchPointStates where toQtTouchPointStates = QtahP.id instance IsQtTouchPointStates QtTouchPointState where toQtTouchPointStates = QtahFlags.enumToFlags instance IsQtTouchPointStates (HoppyFC.CInt) where toQtTouchPointStates = QtahFlags.numToFlags touchPointMoved :: QtTouchPointStates touchPointMoved = QtTouchPointStates (2) touchPointPressed :: QtTouchPointStates touchPointPressed = QtTouchPointStates (1) touchPointReleased :: QtTouchPointStates touchPointReleased = QtTouchPointStates (8) touchPointStationary :: QtTouchPointStates touchPointStationary = QtTouchPointStates (4) instance QtahDB.Bits QtTouchPointStates where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtTransformationMode = FastTransformation | SmoothTransformation | UnknownQtTransformationMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTransformationMode where fromCppEnum FastTransformation = 0 fromCppEnum SmoothTransformation = 1 fromCppEnum (UnknownQtTransformationMode n) = n toCppEnum (0) = FastTransformation toCppEnum (1) = SmoothTransformation toCppEnum n = UnknownQtTransformationMode n instance HoppyP.Eq QtTransformationMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtTransformationMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtUIEffect = UiAnimateMenu | UiFadeMenu | UiAnimateCombo | UiAnimateTooltip | UiFadeTooltip | UiAnimateToolBox | UnknownQtUiEffect (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtUIEffect where fromCppEnum UiAnimateMenu = 1 fromCppEnum UiFadeMenu = 2 fromCppEnum UiAnimateCombo = 3 fromCppEnum UiAnimateTooltip = 4 fromCppEnum UiFadeTooltip = 5 fromCppEnum UiAnimateToolBox = 6 fromCppEnum (UnknownQtUiEffect n) = n toCppEnum (1) = UiAnimateMenu toCppEnum (2) = UiFadeMenu toCppEnum (3) = UiAnimateCombo toCppEnum (4) = UiAnimateTooltip toCppEnum (5) = UiFadeTooltip toCppEnum (6) = UiAnimateToolBox toCppEnum n = UnknownQtUiEffect n instance HoppyP.Eq QtUIEffect where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtUIEffect where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtWhiteSpaceMode = WhiteSpaceNormal | WhiteSpacePre | WhiteSpaceNoWrap | UnknownQtWhiteSpaceMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWhiteSpaceMode where fromCppEnum WhiteSpaceNormal = 0 fromCppEnum WhiteSpacePre = 1 fromCppEnum WhiteSpaceNoWrap = 2 fromCppEnum (UnknownQtWhiteSpaceMode n) = n toCppEnum (0) = WhiteSpaceNormal toCppEnum (1) = WhiteSpacePre toCppEnum (2) = WhiteSpaceNoWrap toCppEnum n = UnknownQtWhiteSpaceMode n instance HoppyP.Eq QtWhiteSpaceMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtWhiteSpaceMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtWidgetAttribute = WaAcceptDrops | WaAlwaysShowToolTips | WaContentsPropagated | WaCustomWhatsThis | WaDeleteOnClose | WaDisabled | WaDontShowOnScreen | WaForceDisabled | WaForceUpdatesDisabled | WaGroupLeader | WaHover | WaInputMethodEnabled | WaKeyboardFocusChange | WaKeyCompression | WaLayoutOnEntireRect | WaLayoutUsesWidgetRect | WaMacNoClickThrough | WaMacOpaqueSizeGrip | WaMacShowFocusRect | WaMacNormalSize | WaMacSmallSize | WaMacMiniSize | WaMacVariableSize | WaMacBrushedMetal | WaMapped | WaMouseNoMask | WaMouseTracking | WaMoved | WaMsWindowsUseDirect3D | WaNoChildEventsForParent | WaNoChildEventsFromChildren | WaNoMouseReplay | WaNoMousePropagation | WaTransparentForMouseEvents | WaNoSystemBackground | WaOpaquePaintEvent | WaOutsideWsRange | WaPaintOnScreen | WaPaintUnclipped | WaPendingMoveEvent | WaPendingResizeEvent | WaQuitOnClose | WaResized | WaRightToLeft | WaSetCursor | WaSetFont | WaSetPalette | WaSetStyle | WaShowModal | WaStaticContents | WaStyleSheet | WaStyleSheetTarget | WaTabletTracking | WaTranslucentBackground | WaUnderMouse | WaUpdatesDisabled | WaWindowModified | WaWindowPropagation | WaMacAlwaysShowToolWindow | WaSetLocale | WaStyledBackground | WaShowWithoutActivating | WaNativeWindow | WaDontCreateNativeAncestors | WaX11NetWmWindowTypeDesktop | WaX11NetWmWindowTypeDock | WaX11NetWmWindowTypeToolBar | WaX11NetWmWindowTypeMenu | WaX11NetWmWindowTypeUtility | WaX11NetWmWindowTypeSplash | WaX11NetWmWindowTypeDialog | WaX11NetWmWindowTypeDropDownMenu | WaX11NetWmWindowTypePopupMenu | WaX11NetWmWindowTypeToolTip | WaX11NetWmWindowTypeNotification | WaX11NetWmWindowTypeCombo | WaX11NetWmWindowTypeDnd | WaMacFrameworkScaled | WaAcceptTouchEvents | WaTouchPadAcceptSingleTouchEvents | WaX11DoNotAcceptFocus | WaAlwaysStackOnTop | WaContentsMarginsRespectsSafeArea | UnknownQtWidgetAttribute (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWidgetAttribute where fromCppEnum WaAcceptDrops = 78 fromCppEnum WaAlwaysShowToolTips = 84 fromCppEnum WaContentsPropagated = 3 fromCppEnum WaCustomWhatsThis = 47 fromCppEnum WaDeleteOnClose = 55 fromCppEnum WaDisabled = 0 fromCppEnum WaDontShowOnScreen = 103 fromCppEnum WaForceDisabled = 32 fromCppEnum WaForceUpdatesDisabled = 59 fromCppEnum WaGroupLeader = 72 fromCppEnum WaHover = 74 fromCppEnum WaInputMethodEnabled = 14 fromCppEnum WaKeyboardFocusChange = 77 fromCppEnum WaKeyCompression = 33 fromCppEnum WaLayoutOnEntireRect = 48 fromCppEnum WaLayoutUsesWidgetRect = 92 fromCppEnum WaMacNoClickThrough = 12 fromCppEnum WaMacOpaqueSizeGrip = 85 fromCppEnum WaMacShowFocusRect = 88 fromCppEnum WaMacNormalSize = 89 fromCppEnum WaMacSmallSize = 90 fromCppEnum WaMacMiniSize = 91 fromCppEnum WaMacVariableSize = 102 fromCppEnum WaMacBrushedMetal = 46 fromCppEnum WaMapped = 11 fromCppEnum WaMouseNoMask = 71 fromCppEnum WaMouseTracking = 2 fromCppEnum WaMoved = 43 fromCppEnum WaMsWindowsUseDirect3D = 94 fromCppEnum WaNoChildEventsForParent = 58 fromCppEnum WaNoChildEventsFromChildren = 39 fromCppEnum WaNoMouseReplay = 54 fromCppEnum WaNoMousePropagation = 73 fromCppEnum WaTransparentForMouseEvents = 51 fromCppEnum WaNoSystemBackground = 9 fromCppEnum WaOpaquePaintEvent = 4 fromCppEnum WaOutsideWsRange = 49 fromCppEnum WaPaintOnScreen = 8 fromCppEnum WaPaintUnclipped = 52 fromCppEnum WaPendingMoveEvent = 34 fromCppEnum WaPendingResizeEvent = 35 fromCppEnum WaQuitOnClose = 76 fromCppEnum WaResized = 42 fromCppEnum WaRightToLeft = 56 fromCppEnum WaSetCursor = 38 fromCppEnum WaSetFont = 37 fromCppEnum WaSetPalette = 36 fromCppEnum WaSetStyle = 86 fromCppEnum WaShowModal = 70 fromCppEnum WaStaticContents = 5 fromCppEnum WaStyleSheet = 97 fromCppEnum WaStyleSheetTarget = 131 fromCppEnum WaTabletTracking = 129 fromCppEnum WaTranslucentBackground = 120 fromCppEnum WaUnderMouse = 1 fromCppEnum WaUpdatesDisabled = 10 fromCppEnum WaWindowModified = 41 fromCppEnum WaWindowPropagation = 80 fromCppEnum WaMacAlwaysShowToolWindow = 96 fromCppEnum WaSetLocale = 87 fromCppEnum WaStyledBackground = 93 fromCppEnum WaShowWithoutActivating = 98 fromCppEnum WaNativeWindow = 100 fromCppEnum WaDontCreateNativeAncestors = 101 fromCppEnum WaX11NetWmWindowTypeDesktop = 104 fromCppEnum WaX11NetWmWindowTypeDock = 105 fromCppEnum WaX11NetWmWindowTypeToolBar = 106 fromCppEnum WaX11NetWmWindowTypeMenu = 107 fromCppEnum WaX11NetWmWindowTypeUtility = 108 fromCppEnum WaX11NetWmWindowTypeSplash = 109 fromCppEnum WaX11NetWmWindowTypeDialog = 110 fromCppEnum WaX11NetWmWindowTypeDropDownMenu = 111 fromCppEnum WaX11NetWmWindowTypePopupMenu = 112 fromCppEnum WaX11NetWmWindowTypeToolTip = 113 fromCppEnum WaX11NetWmWindowTypeNotification = 114 fromCppEnum WaX11NetWmWindowTypeCombo = 115 fromCppEnum WaX11NetWmWindowTypeDnd = 116 fromCppEnum WaMacFrameworkScaled = 117 fromCppEnum WaAcceptTouchEvents = 121 fromCppEnum WaTouchPadAcceptSingleTouchEvents = 123 fromCppEnum WaX11DoNotAcceptFocus = 126 fromCppEnum WaAlwaysStackOnTop = 128 fromCppEnum WaContentsMarginsRespectsSafeArea = 130 fromCppEnum (UnknownQtWidgetAttribute n) = n toCppEnum (0) = WaDisabled toCppEnum (1) = WaUnderMouse toCppEnum (2) = WaMouseTracking toCppEnum (3) = WaContentsPropagated toCppEnum (4) = WaOpaquePaintEvent toCppEnum (5) = WaStaticContents toCppEnum (8) = WaPaintOnScreen toCppEnum (9) = WaNoSystemBackground toCppEnum (10) = WaUpdatesDisabled toCppEnum (11) = WaMapped toCppEnum (12) = WaMacNoClickThrough toCppEnum (14) = WaInputMethodEnabled toCppEnum (32) = WaForceDisabled toCppEnum (33) = WaKeyCompression toCppEnum (34) = WaPendingMoveEvent toCppEnum (35) = WaPendingResizeEvent toCppEnum (36) = WaSetPalette toCppEnum (37) = WaSetFont toCppEnum (38) = WaSetCursor toCppEnum (39) = WaNoChildEventsFromChildren toCppEnum (41) = WaWindowModified toCppEnum (42) = WaResized toCppEnum (43) = WaMoved toCppEnum (46) = WaMacBrushedMetal toCppEnum (47) = WaCustomWhatsThis toCppEnum (48) = WaLayoutOnEntireRect toCppEnum (49) = WaOutsideWsRange toCppEnum (51) = WaTransparentForMouseEvents toCppEnum (52) = WaPaintUnclipped toCppEnum (54) = WaNoMouseReplay toCppEnum (55) = WaDeleteOnClose toCppEnum (56) = WaRightToLeft toCppEnum (58) = WaNoChildEventsForParent toCppEnum (59) = WaForceUpdatesDisabled toCppEnum (70) = WaShowModal toCppEnum (71) = WaMouseNoMask toCppEnum (72) = WaGroupLeader toCppEnum (73) = WaNoMousePropagation toCppEnum (74) = WaHover toCppEnum (76) = WaQuitOnClose toCppEnum (77) = WaKeyboardFocusChange toCppEnum (78) = WaAcceptDrops toCppEnum (80) = WaWindowPropagation toCppEnum (84) = WaAlwaysShowToolTips toCppEnum (85) = WaMacOpaqueSizeGrip toCppEnum (86) = WaSetStyle toCppEnum (87) = WaSetLocale toCppEnum (88) = WaMacShowFocusRect toCppEnum (89) = WaMacNormalSize toCppEnum (90) = WaMacSmallSize toCppEnum (91) = WaMacMiniSize toCppEnum (92) = WaLayoutUsesWidgetRect toCppEnum (93) = WaStyledBackground toCppEnum (94) = WaMsWindowsUseDirect3D toCppEnum (96) = WaMacAlwaysShowToolWindow toCppEnum (97) = WaStyleSheet toCppEnum (98) = WaShowWithoutActivating toCppEnum (100) = WaNativeWindow toCppEnum (101) = WaDontCreateNativeAncestors toCppEnum (102) = WaMacVariableSize toCppEnum (103) = WaDontShowOnScreen toCppEnum (104) = WaX11NetWmWindowTypeDesktop toCppEnum (105) = WaX11NetWmWindowTypeDock toCppEnum (106) = WaX11NetWmWindowTypeToolBar toCppEnum (107) = WaX11NetWmWindowTypeMenu toCppEnum (108) = WaX11NetWmWindowTypeUtility toCppEnum (109) = WaX11NetWmWindowTypeSplash toCppEnum (110) = WaX11NetWmWindowTypeDialog toCppEnum (111) = WaX11NetWmWindowTypeDropDownMenu toCppEnum (112) = WaX11NetWmWindowTypePopupMenu toCppEnum (113) = WaX11NetWmWindowTypeToolTip toCppEnum (114) = WaX11NetWmWindowTypeNotification toCppEnum (115) = WaX11NetWmWindowTypeCombo toCppEnum (116) = WaX11NetWmWindowTypeDnd toCppEnum (117) = WaMacFrameworkScaled toCppEnum (120) = WaTranslucentBackground toCppEnum (121) = WaAcceptTouchEvents toCppEnum (123) = WaTouchPadAcceptSingleTouchEvents toCppEnum (126) = WaX11DoNotAcceptFocus toCppEnum (128) = WaAlwaysStackOnTop toCppEnum (129) = WaTabletTracking toCppEnum (130) = WaContentsMarginsRespectsSafeArea toCppEnum (131) = WaStyleSheetTarget toCppEnum n = UnknownQtWidgetAttribute n instance HoppyP.Eq QtWidgetAttribute where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtWidgetAttribute where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtWindowFlags = QtWindowFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtWindowType QtWindowFlags where enumToFlags = QtWindowFlags . QtahFHR.fromCppEnum flagsToEnum (QtWindowFlags x') = QtahFHR.toCppEnum x' class IsQtWindowFlags a where toQtWindowFlags :: a -> QtWindowFlags instance IsQtWindowFlags QtWindowFlags where toQtWindowFlags = QtahP.id instance IsQtWindowFlags QtWindowType where toQtWindowFlags = QtahFlags.enumToFlags instance IsQtWindowFlags (HoppyFC.CInt) where toQtWindowFlags = QtahFlags.numToFlags coverWindow :: QtWindowFlags coverWindow = QtWindowFlags (65) desktop :: QtWindowFlags desktop = QtWindowFlags (17) dialog :: QtWindowFlags dialog = QtWindowFlags (3) drawer :: QtWindowFlags drawer = QtWindowFlags (7) foreignWindow :: QtWindowFlags foreignWindow = QtWindowFlags (33) popup :: QtWindowFlags popup = QtWindowFlags (9) sheet :: QtWindowFlags sheet = QtWindowFlags (5) splashScreen :: QtWindowFlags splashScreen = QtWindowFlags (15) subWindow :: QtWindowFlags subWindow = QtWindowFlags (18) tool :: QtWindowFlags tool = QtWindowFlags (11) toolTip :: QtWindowFlags toolTip = QtWindowFlags (13) widget :: QtWindowFlags widget = QtWindowFlags (0) window :: QtWindowFlags window = QtWindowFlags (1) instance QtahDB.Bits QtWindowFlags where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtWindowFrameSection = NoSection | LeftSection | TopLeftSection | TopSection | TopRightSection | RightSection | BottomRightSection | BottomSection | BottomLeftSection | TitleBarArea | UnknownQtWindowFrameSection (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWindowFrameSection where fromCppEnum NoSection = 0 fromCppEnum LeftSection = 1 fromCppEnum TopLeftSection = 2 fromCppEnum TopSection = 3 fromCppEnum TopRightSection = 4 fromCppEnum RightSection = 5 fromCppEnum BottomRightSection = 6 fromCppEnum BottomSection = 7 fromCppEnum BottomLeftSection = 8 fromCppEnum TitleBarArea = 9 fromCppEnum (UnknownQtWindowFrameSection n) = n toCppEnum (0) = NoSection toCppEnum (1) = LeftSection toCppEnum (2) = TopLeftSection toCppEnum (3) = TopSection toCppEnum (4) = TopRightSection toCppEnum (5) = RightSection toCppEnum (6) = BottomRightSection toCppEnum (7) = BottomSection toCppEnum (8) = BottomLeftSection toCppEnum (9) = TitleBarArea toCppEnum n = UnknownQtWindowFrameSection n instance HoppyP.Eq QtWindowFrameSection where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtWindowFrameSection where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtWindowModality = NonModal | WindowModal | ApplicationModal | UnknownQtWindowModality (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWindowModality where fromCppEnum NonModal = 0 fromCppEnum WindowModal = 1 fromCppEnum ApplicationModal = 2 fromCppEnum (UnknownQtWindowModality n) = n toCppEnum (0) = NonModal toCppEnum (1) = WindowModal toCppEnum (2) = ApplicationModal toCppEnum n = UnknownQtWindowModality n instance HoppyP.Eq QtWindowModality where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtWindowModality where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QtWindowState = WindowNoState | WindowMinimized | WindowMaximized | WindowFullScreen | WindowActive | UnknownQtWindowState (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWindowState where fromCppEnum WindowNoState = 0 fromCppEnum WindowMinimized = 1 fromCppEnum WindowMaximized = 2 fromCppEnum WindowFullScreen = 4 fromCppEnum WindowActive = 8 fromCppEnum (UnknownQtWindowState n) = n toCppEnum (0) = WindowNoState toCppEnum (1) = WindowMinimized toCppEnum (2) = WindowMaximized toCppEnum (4) = WindowFullScreen toCppEnum (8) = WindowActive toCppEnum n = UnknownQtWindowState n instance HoppyP.Eq QtWindowState where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtWindowState where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QtWindowStates = QtWindowStates (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QtWindowState QtWindowStates where enumToFlags = QtWindowStates . QtahFHR.fromCppEnum flagsToEnum (QtWindowStates x') = QtahFHR.toCppEnum x' class IsQtWindowStates a where toQtWindowStates :: a -> QtWindowStates instance IsQtWindowStates QtWindowStates where toQtWindowStates = QtahP.id instance IsQtWindowStates QtWindowState where toQtWindowStates = QtahFlags.enumToFlags instance IsQtWindowStates (HoppyFC.CInt) where toQtWindowStates = QtahFlags.numToFlags windowActive :: QtWindowStates windowActive = QtWindowStates (8) windowFullScreen :: QtWindowStates windowFullScreen = QtWindowStates (4) windowMaximized :: QtWindowStates windowMaximized = QtWindowStates (2) windowMinimized :: QtWindowStates windowMinimized = QtWindowStates (1) windowNoState :: QtWindowStates windowNoState = QtWindowStates (0) instance QtahDB.Bits QtWindowStates where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QtWindowType = Widget | Window | Dialog | Sheet | Drawer | Popup | Tool | ToolTip | SplashScreen | Desktop | SubWindow | ForeignWindow | CoverWindow | UnknownQtWindowType (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWindowType where fromCppEnum Widget = 0 fromCppEnum Window = 1 fromCppEnum Dialog = 3 fromCppEnum Sheet = 5 fromCppEnum Drawer = 7 fromCppEnum Popup = 9 fromCppEnum Tool = 11 fromCppEnum ToolTip = 13 fromCppEnum SplashScreen = 15 fromCppEnum Desktop = 17 fromCppEnum SubWindow = 18 fromCppEnum ForeignWindow = 33 fromCppEnum CoverWindow = 65 fromCppEnum (UnknownQtWindowType n) = n toCppEnum (0) = Widget toCppEnum (1) = Window toCppEnum (3) = Dialog toCppEnum (5) = Sheet toCppEnum (7) = Drawer toCppEnum (9) = Popup toCppEnum (11) = Tool toCppEnum (13) = ToolTip toCppEnum (15) = SplashScreen toCppEnum (17) = Desktop toCppEnum (18) = SubWindow toCppEnum (33) = ForeignWindow toCppEnum (65) = CoverWindow toCppEnum n = UnknownQtWindowType n instance HoppyP.Eq QtWindowType where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QtWindowType where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)