{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-} ---------- GENERATED FILE, EDITS WILL BE LOST ---------- module Graphics.UI.Qtah.Generated.Widgets.QDockWidget ( castQDockWidgetToQWidget, castQWidgetToQDockWidget, castQDockWidgetToQObject, castQObjectToQDockWidget, QDockWidgetValue (..), QDockWidgetConstPtr (..), allowedAreas, isAreaAllowed, features, isFloating, titleBarWidget, toggleViewAction, widget, QDockWidgetPtr (..), setAllowedAreas, setFeatures, setFloating, setTitleBarWidget, setWidget, emitAllowedAreasChanged, emitDockLocationChanged, emitFeaturesChanged, emitTopLevelChanged, emitVisibilityChanged, QDockWidgetConst (..), castQDockWidgetToConst, QDockWidget (..), castQDockWidgetToNonconst, new, newWithParent, newWithText, newWithTextAndParent, QDockWidgetSuper (..), QDockWidgetSuperConst (..), QDockWidgetDockWidgetFeature (..), QDockWidgetDockWidgetFeatures, IsQDockWidgetDockWidgetFeatures (..), allDockWidgetFeatures, dockWidgetClosable, dockWidgetFloatable, dockWidgetMovable, dockWidgetVerticalTitleBar, noDockWidgetFeatures, ) where import Data.Bits ((.&.), (.|.)) import qualified Data.Bits as QtahDB import qualified Foreign as HoppyF 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 qualified Graphics.UI.Qtah.Generated.Core.QObject as M94 import qualified Graphics.UI.Qtah.Generated.Core.QString as M142 import qualified Graphics.UI.Qtah.Generated.Core.Types as M190 import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAction as M368 import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506 import Prelude (($), (.), (/=), (=<<), (==), (>>=)) import qualified Prelude as HoppyP import qualified Prelude as QtahP foreign import ccall "genpop__QDockWidget_new" new' :: HoppyP.IO (HoppyF.Ptr QDockWidget) foreign import ccall "genpop__QDockWidget_newWithParent" newWithParent' :: HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QDockWidget) foreign import ccall "genpop__QDockWidget_newWithText" newWithText' :: HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QDockWidget) foreign import ccall "genpop__QDockWidget_newWithTextAndParent" newWithTextAndParent' :: HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QDockWidget) foreign import ccall "genpop__QDockWidget_allowedAreas" allowedAreas' :: HoppyF.Ptr QDockWidgetConst -> HoppyP.IO HoppyFC.CInt foreign import ccall "genpop__QDockWidget_setAllowedAreas" setAllowedAreas' :: HoppyF.Ptr QDockWidget -> HoppyFC.CInt -> HoppyP.IO () foreign import ccall "genpop__QDockWidget_isAreaAllowed" isAreaAllowed' :: HoppyF.Ptr QDockWidgetConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool foreign import ccall "genpop__QDockWidget_features" features' :: HoppyF.Ptr QDockWidgetConst -> HoppyP.IO HoppyFC.CInt foreign import ccall "genpop__QDockWidget_setFeatures" setFeatures' :: HoppyF.Ptr QDockWidget -> HoppyFC.CInt -> HoppyP.IO () foreign import ccall "genpop__QDockWidget_isFloating" isFloating' :: HoppyF.Ptr QDockWidgetConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "genpop__QDockWidget_setFloating" setFloating' :: HoppyF.Ptr QDockWidget -> HoppyFC.CBool -> HoppyP.IO () foreign import ccall "genpop__QDockWidget_titleBarWidget" titleBarWidget' :: HoppyF.Ptr QDockWidgetConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget) foreign import ccall "genpop__QDockWidget_setTitleBarWidget" setTitleBarWidget' :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO () foreign import ccall "genpop__QDockWidget_toggleViewAction" toggleViewAction' :: HoppyF.Ptr QDockWidgetConst -> HoppyP.IO (HoppyF.Ptr M368.QAction) foreign import ccall "genpop__QDockWidget_widget" widget' :: HoppyF.Ptr QDockWidgetConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget) foreign import ccall "genpop__QDockWidget_setWidget" setWidget' :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO () foreign import ccall "genpop__QDockWidget_emitAllowedAreasChanged" emitAllowedAreasChanged' :: HoppyF.Ptr QDockWidget -> HoppyFC.CInt -> HoppyP.IO () foreign import ccall "genpop__QDockWidget_emitDockLocationChanged" emitDockLocationChanged' :: HoppyF.Ptr QDockWidget -> HoppyFC.CInt -> HoppyP.IO () foreign import ccall "genpop__QDockWidget_emitFeaturesChanged" emitFeaturesChanged' :: HoppyF.Ptr QDockWidget -> HoppyFC.CInt -> HoppyP.IO () foreign import ccall "genpop__QDockWidget_emitTopLevelChanged" emitTopLevelChanged' :: HoppyF.Ptr QDockWidget -> HoppyFC.CBool -> HoppyP.IO () foreign import ccall "genpop__QDockWidget_emitVisibilityChanged" emitVisibilityChanged' :: HoppyF.Ptr QDockWidget -> HoppyFC.CBool -> HoppyP.IO () foreign import ccall "gencast__QDockWidget__QWidget" castQDockWidgetToQWidget :: HoppyF.Ptr QDockWidgetConst -> HoppyF.Ptr M506.QWidgetConst foreign import ccall "gencast__QWidget__QDockWidget" castQWidgetToQDockWidget :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QDockWidgetConst foreign import ccall "gencast__QDockWidget__QObject" castQDockWidgetToQObject :: HoppyF.Ptr QDockWidgetConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__QDockWidget" castQObjectToQDockWidget :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QDockWidgetConst foreign import ccall "gendel__QDockWidget" delete'QDockWidget :: HoppyF.Ptr QDockWidgetConst -> HoppyP.IO () foreign import ccall "&gendel__QDockWidget" deletePtr'QDockWidget :: HoppyF.FunPtr (HoppyF.Ptr QDockWidgetConst -> HoppyP.IO ()) class QDockWidgetValue a where withQDockWidgetPtr :: a -> (QDockWidgetConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} QDockWidgetConstPtr a => QDockWidgetValue a where withQDockWidgetPtr = HoppyP.flip ($) . toQDockWidgetConst class (M506.QWidgetConstPtr this) => QDockWidgetConstPtr this where toQDockWidgetConst :: this -> QDockWidgetConst allowedAreas :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtDockWidgetAreas) allowedAreas arg'1 = withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( QtahP.return . QtahFlags.numToFlags ) =<< (allowedAreas' arg'1') isAreaAllowed :: (QDockWidgetValue this) => (this) {- ^ this -} -> (M190.QtDockWidgetArea) -> (HoppyP.IO HoppyP.Bool) isAreaAllowed arg'1 arg'2 = withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( HoppyP.return . HoppyFHR.fromCppEnum ) arg'2 >>= \arg'2' -> ( (HoppyP.return . (/= 0)) ) =<< (isAreaAllowed' arg'1' arg'2') features :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO QDockWidgetDockWidgetFeatures) features arg'1 = withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( QtahP.return . QtahFlags.numToFlags ) =<< (features' arg'1') isFloating :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) isFloating arg'1 = withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (isFloating' arg'1') titleBarWidget :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget) titleBarWidget arg'1 = withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> HoppyP.fmap M506.QWidget (titleBarWidget' arg'1') toggleViewAction :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction) toggleViewAction arg'1 = withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> HoppyP.fmap M368.QAction (toggleViewAction' arg'1') widget :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget) widget arg'1 = withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> HoppyP.fmap M506.QWidget (widget' arg'1') class (QDockWidgetConstPtr this, M506.QWidgetPtr this) => QDockWidgetPtr this where toQDockWidget :: this -> QDockWidget setAllowedAreas :: (QDockWidgetPtr this, M190.IsQtDockWidgetAreas arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setAllowedAreas arg'1 arg'2 = HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' -> ( QtahP.return . QtahFlags.flagsToNum . M190.toQtDockWidgetAreas ) arg'2 >>= \arg'2' -> (setAllowedAreas' arg'1' arg'2') setFeatures :: (QDockWidgetPtr this, IsQDockWidgetDockWidgetFeatures arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setFeatures arg'1 arg'2 = HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' -> ( QtahP.return . QtahFlags.flagsToNum . toQDockWidgetDockWidgetFeatures ) arg'2 >>= \arg'2' -> (setFeatures' arg'1' arg'2') setFloating :: (QDockWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ()) setFloating arg'1 arg'2 = HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' -> ( \x -> HoppyP.return $ if x then 1 else 0 ) arg'2 >>= \arg'2' -> (setFloating' arg'1' arg'2') setTitleBarWidget :: (QDockWidgetPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setTitleBarWidget arg'1 arg'2 = HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' -> HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' -> (setTitleBarWidget' arg'1' arg'2') setWidget :: (QDockWidgetPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setWidget arg'1 arg'2 = HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' -> HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' -> (setWidget' arg'1' arg'2') emitAllowedAreasChanged :: (QDockWidgetPtr this, M190.IsQtDockWidgetAreas arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) emitAllowedAreasChanged arg'1 arg'2 = HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' -> ( QtahP.return . QtahFlags.flagsToNum . M190.toQtDockWidgetAreas ) arg'2 >>= \arg'2' -> (emitAllowedAreasChanged' arg'1' arg'2') emitDockLocationChanged :: (QDockWidgetPtr this) => (this) {- ^ this -} -> (M190.QtDockWidgetArea) -> (HoppyP.IO ()) emitDockLocationChanged arg'1 arg'2 = HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' -> ( HoppyP.return . HoppyFHR.fromCppEnum ) arg'2 >>= \arg'2' -> (emitDockLocationChanged' arg'1' arg'2') emitFeaturesChanged :: (QDockWidgetPtr this, IsQDockWidgetDockWidgetFeatures arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) emitFeaturesChanged arg'1 arg'2 = HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' -> ( QtahP.return . QtahFlags.flagsToNum . toQDockWidgetDockWidgetFeatures ) arg'2 >>= \arg'2' -> (emitFeaturesChanged' arg'1' arg'2') emitTopLevelChanged :: (QDockWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ()) emitTopLevelChanged arg'1 arg'2 = HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' -> ( \x -> HoppyP.return $ if x then 1 else 0 ) arg'2 >>= \arg'2' -> (emitTopLevelChanged' arg'1' arg'2') emitVisibilityChanged :: (QDockWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ()) emitVisibilityChanged arg'1 arg'2 = HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' -> ( \x -> HoppyP.return $ if x then 1 else 0 ) arg'2 >>= \arg'2' -> (emitVisibilityChanged' arg'1' arg'2') data QDockWidgetConst = QDockWidgetConst (HoppyF.Ptr QDockWidgetConst) | QDockWidgetConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDockWidgetConst) deriving (HoppyP.Show) instance HoppyP.Eq QDockWidgetConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord QDockWidgetConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castQDockWidgetToConst :: QDockWidget -> QDockWidgetConst castQDockWidgetToConst (QDockWidget ptr') = QDockWidgetConst $ HoppyF.castPtr ptr' castQDockWidgetToConst (QDockWidgetGc fptr' ptr') = QDockWidgetConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr QDockWidgetConst where nullptr = QDockWidgetConst HoppyF.nullPtr withCppPtr (QDockWidgetConst ptr') f' = f' ptr' withCppPtr (QDockWidgetConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (QDockWidgetConst ptr') = ptr' toPtr (QDockWidgetConstGc _ ptr') = ptr' touchCppPtr (QDockWidgetConst _) = HoppyP.return () touchCppPtr (QDockWidgetConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable QDockWidgetConst where delete (QDockWidgetConst ptr') = delete'QDockWidget ptr' delete (QDockWidgetConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDockWidgetConst", " object."] toGc this'@(QDockWidgetConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDockWidgetConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDockWidget :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(QDockWidgetConstGc {}) = HoppyP.return this' instance QDockWidgetConstPtr QDockWidgetConst where toQDockWidgetConst = HoppyP.id instance M506.QWidgetConstPtr QDockWidgetConst where toQWidgetConst (QDockWidgetConst ptr') = M506.QWidgetConst $ castQDockWidgetToQWidget ptr' toQWidgetConst (QDockWidgetConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDockWidgetToQWidget ptr' instance M94.QObjectConstPtr QDockWidgetConst where toQObjectConst (QDockWidgetConst ptr') = M94.QObjectConst $ castQDockWidgetToQObject ptr' toQObjectConst (QDockWidgetConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDockWidgetToQObject ptr' data QDockWidget = QDockWidget (HoppyF.Ptr QDockWidget) | QDockWidgetGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDockWidget) deriving (HoppyP.Show) instance HoppyP.Eq QDockWidget where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord QDockWidget where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castQDockWidgetToNonconst :: QDockWidgetConst -> QDockWidget castQDockWidgetToNonconst (QDockWidgetConst ptr') = QDockWidget $ HoppyF.castPtr ptr' castQDockWidgetToNonconst (QDockWidgetConstGc fptr' ptr') = QDockWidgetGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr QDockWidget where nullptr = QDockWidget HoppyF.nullPtr withCppPtr (QDockWidget ptr') f' = f' ptr' withCppPtr (QDockWidgetGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (QDockWidget ptr') = ptr' toPtr (QDockWidgetGc _ ptr') = ptr' touchCppPtr (QDockWidget _) = HoppyP.return () touchCppPtr (QDockWidgetGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable QDockWidget where delete (QDockWidget ptr') = delete'QDockWidget $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDockWidgetConst) delete (QDockWidgetGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDockWidget", " object."] toGc this'@(QDockWidget ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDockWidgetGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDockWidget :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(QDockWidgetGc {}) = HoppyP.return this' instance QDockWidgetConstPtr QDockWidget where toQDockWidgetConst (QDockWidget ptr') = QDockWidgetConst $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr' toQDockWidgetConst (QDockWidgetGc fptr' ptr') = QDockWidgetConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr' instance QDockWidgetPtr QDockWidget where toQDockWidget = HoppyP.id instance M506.QWidgetConstPtr QDockWidget where toQWidgetConst (QDockWidget ptr') = M506.QWidgetConst $ castQDockWidgetToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr' toQWidgetConst (QDockWidgetGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDockWidgetToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr' instance M506.QWidgetPtr QDockWidget where toQWidget (QDockWidget ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDockWidgetToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr' toQWidget (QDockWidgetGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDockWidgetToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr' instance M94.QObjectConstPtr QDockWidget where toQObjectConst (QDockWidget ptr') = M94.QObjectConst $ castQDockWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr' toQObjectConst (QDockWidgetGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDockWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr' instance M94.QObjectPtr QDockWidget where toQObject (QDockWidget ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDockWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr' toQObject (QDockWidgetGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDockWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr' new :: (HoppyP.IO QDockWidget) new = HoppyP.fmap QDockWidget (new') newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QDockWidget) newWithParent arg'1 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> HoppyP.fmap QDockWidget (newWithParent' arg'1') newWithText :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QDockWidget) newWithText arg'1 = M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> HoppyP.fmap QDockWidget (newWithText' arg'1') newWithTextAndParent :: (M142.QStringValue arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QDockWidget) newWithTextAndParent arg'1 arg'2 = M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' -> HoppyP.fmap QDockWidget (newWithTextAndParent' arg'1' arg'2') class QDockWidgetSuper a where downToQDockWidget :: a -> QDockWidget instance QDockWidgetSuper M506.QWidget where downToQDockWidget = castQDockWidgetToNonconst . cast' . M506.castQWidgetToConst where cast' (M506.QWidgetConst ptr') = QDockWidgetConst $ castQWidgetToQDockWidget ptr' cast' (M506.QWidgetConstGc fptr' ptr') = QDockWidgetConstGc fptr' $ castQWidgetToQDockWidget ptr' instance QDockWidgetSuper M94.QObject where downToQDockWidget = castQDockWidgetToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = QDockWidgetConst $ castQObjectToQDockWidget ptr' cast' (M94.QObjectConstGc fptr' ptr') = QDockWidgetConstGc fptr' $ castQObjectToQDockWidget ptr' class QDockWidgetSuperConst a where downToQDockWidgetConst :: a -> QDockWidgetConst instance QDockWidgetSuperConst M506.QWidgetConst where downToQDockWidgetConst = cast' where cast' (M506.QWidgetConst ptr') = QDockWidgetConst $ castQWidgetToQDockWidget ptr' cast' (M506.QWidgetConstGc fptr' ptr') = QDockWidgetConstGc fptr' $ castQWidgetToQDockWidget ptr' instance QDockWidgetSuperConst M94.QObjectConst where downToQDockWidgetConst = cast' where cast' (M94.QObjectConst ptr') = QDockWidgetConst $ castQObjectToQDockWidget ptr' cast' (M94.QObjectConstGc fptr' ptr') = QDockWidgetConstGc fptr' $ castQObjectToQDockWidget ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDockWidget)) QDockWidget where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDockWidget)) QDockWidget where decode = HoppyP.fmap QDockWidget . HoppyF.peek data QDockWidgetDockWidgetFeature = NoDockWidgetFeatures | DockWidgetClosable | DockWidgetMovable | DockWidgetFloatable | AllDockWidgetFeatures | DockWidgetVerticalTitleBar | UnknownQDockWidgetDockWidgetFeature (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QDockWidgetDockWidgetFeature where fromCppEnum NoDockWidgetFeatures = 0 fromCppEnum DockWidgetClosable = 1 fromCppEnum DockWidgetMovable = 2 fromCppEnum DockWidgetFloatable = 4 fromCppEnum AllDockWidgetFeatures = 7 fromCppEnum DockWidgetVerticalTitleBar = 8 fromCppEnum (UnknownQDockWidgetDockWidgetFeature n) = n toCppEnum (0) = NoDockWidgetFeatures toCppEnum (1) = DockWidgetClosable toCppEnum (2) = DockWidgetMovable toCppEnum (4) = DockWidgetFloatable toCppEnum (7) = AllDockWidgetFeatures toCppEnum (8) = DockWidgetVerticalTitleBar toCppEnum n = UnknownQDockWidgetDockWidgetFeature n instance HoppyP.Eq QDockWidgetDockWidgetFeature where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QDockWidgetDockWidgetFeature where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QDockWidgetDockWidgetFeatures = QDockWidgetDockWidgetFeatures (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QDockWidgetDockWidgetFeature QDockWidgetDockWidgetFeatures where enumToFlags = QDockWidgetDockWidgetFeatures . QtahFHR.fromCppEnum flagsToEnum (QDockWidgetDockWidgetFeatures x') = QtahFHR.toCppEnum x' class IsQDockWidgetDockWidgetFeatures a where toQDockWidgetDockWidgetFeatures :: a -> QDockWidgetDockWidgetFeatures instance IsQDockWidgetDockWidgetFeatures QDockWidgetDockWidgetFeatures where toQDockWidgetDockWidgetFeatures = QtahP.id instance IsQDockWidgetDockWidgetFeatures QDockWidgetDockWidgetFeature where toQDockWidgetDockWidgetFeatures = QtahFlags.enumToFlags instance IsQDockWidgetDockWidgetFeatures (HoppyFC.CInt) where toQDockWidgetDockWidgetFeatures = QtahFlags.numToFlags allDockWidgetFeatures :: QDockWidgetDockWidgetFeatures allDockWidgetFeatures = QDockWidgetDockWidgetFeatures (7) dockWidgetClosable :: QDockWidgetDockWidgetFeatures dockWidgetClosable = QDockWidgetDockWidgetFeatures (1) dockWidgetFloatable :: QDockWidgetDockWidgetFeatures dockWidgetFloatable = QDockWidgetDockWidgetFeatures (4) dockWidgetMovable :: QDockWidgetDockWidgetFeatures dockWidgetMovable = QDockWidgetDockWidgetFeatures (2) dockWidgetVerticalTitleBar :: QDockWidgetDockWidgetFeatures dockWidgetVerticalTitleBar = QDockWidgetDockWidgetFeatures (8) noDockWidgetFeatures :: QDockWidgetDockWidgetFeatures noDockWidgetFeatures = QDockWidgetDockWidgetFeatures (0) instance QtahDB.Bits QDockWidgetDockWidgetFeatures 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