qtah-qt5-0.8.0: src/Graphics/UI/Qtah/Generated/Widgets/QStackedLayout.hs
{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
---------- GENERATED FILE, EDITS WILL BE LOST ----------
module Graphics.UI.Qtah.Generated.Widgets.QStackedLayout (
castQStackedLayoutToQLayout,
castQLayoutToQStackedLayout,
castQStackedLayoutToQObject,
castQObjectToQStackedLayout,
castQStackedLayoutToQLayoutItem,
castQLayoutItemToQStackedLayout,
QStackedLayoutValue (..),
QStackedLayoutConstPtr (..),
count,
currentIndex,
currentWidget,
stackingMode,
widget,
QStackedLayoutPtr (..),
addWidget,
setCurrentIndex,
setCurrentWidget,
insertWidget,
setStackingMode,
emitCurrentChanged,
emitWidgetRemoved,
QStackedLayoutConst (..),
castQStackedLayoutToConst,
QStackedLayout (..),
castQStackedLayoutToNonconst,
new,
newWithParent,
newWithLayout,
QStackedLayoutSuper (..),
QStackedLayoutSuperConst (..),
QStackedLayoutStackingMode (..),
) where
import qualified Foreign as HoppyF
import qualified Foreign.C as HoppyFC
import qualified Foreign.Hoppy.Runtime as HoppyFHR
import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94
import qualified Graphics.UI.Qtah.Generated.Widgets.QLayout as M432
import qualified Graphics.UI.Qtah.Generated.Widgets.QLayoutItem as M434
import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506
import Prelude (($), (.), (=<<), (==), (>>=))
import qualified Prelude as HoppyP
foreign import ccall "genpop__QStackedLayout_new" new' :: HoppyP.IO (HoppyF.Ptr QStackedLayout)
foreign import ccall "genpop__QStackedLayout_newWithParent" newWithParent' :: HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QStackedLayout)
foreign import ccall "genpop__QStackedLayout_newWithLayout" newWithLayout' :: HoppyF.Ptr M432.QLayout -> HoppyP.IO (HoppyF.Ptr QStackedLayout)
foreign import ccall "genpop__QStackedLayout_addWidget" addWidget' :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QStackedLayout_count" count' :: HoppyF.Ptr QStackedLayoutConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QStackedLayout_currentIndex" currentIndex' :: HoppyF.Ptr QStackedLayoutConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QStackedLayout_setCurrentIndex" setCurrentIndex' :: HoppyF.Ptr QStackedLayout -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QStackedLayout_currentWidget" currentWidget' :: HoppyF.Ptr QStackedLayoutConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)
foreign import ccall "genpop__QStackedLayout_setCurrentWidget" setCurrentWidget' :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()
foreign import ccall "genpop__QStackedLayout_insertWidget" insertWidget' :: HoppyF.Ptr QStackedLayout -> HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QStackedLayout_stackingMode" stackingMode' :: HoppyF.Ptr QStackedLayoutConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QStackedLayout_setStackingMode" setStackingMode' :: HoppyF.Ptr QStackedLayout -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QStackedLayout_widget" widget' :: HoppyF.Ptr QStackedLayoutConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M506.QWidget)
foreign import ccall "genpop__QStackedLayout_emitCurrentChanged" emitCurrentChanged' :: HoppyF.Ptr QStackedLayout -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QStackedLayout_emitWidgetRemoved" emitWidgetRemoved' :: HoppyF.Ptr QStackedLayout -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "gencast__QStackedLayout__QLayout" castQStackedLayoutToQLayout :: HoppyF.Ptr QStackedLayoutConst -> HoppyF.Ptr M432.QLayoutConst
foreign import ccall "gencast__QLayout__QStackedLayout" castQLayoutToQStackedLayout :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr QStackedLayoutConst
foreign import ccall "gencast__QStackedLayout__QObject" castQStackedLayoutToQObject :: HoppyF.Ptr QStackedLayoutConst -> HoppyF.Ptr M94.QObjectConst
foreign import ccall "gencast__QObject__QStackedLayout" castQObjectToQStackedLayout :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QStackedLayoutConst
foreign import ccall "gencast__QStackedLayout__QLayoutItem" castQStackedLayoutToQLayoutItem :: HoppyF.Ptr QStackedLayoutConst -> HoppyF.Ptr M434.QLayoutItemConst
foreign import ccall "gencast__QLayoutItem__QStackedLayout" castQLayoutItemToQStackedLayout :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr QStackedLayoutConst
foreign import ccall "gendel__QStackedLayout" delete'QStackedLayout :: HoppyF.Ptr QStackedLayoutConst -> HoppyP.IO ()
foreign import ccall "&gendel__QStackedLayout" deletePtr'QStackedLayout :: HoppyF.FunPtr (HoppyF.Ptr QStackedLayoutConst -> HoppyP.IO ())
class QStackedLayoutValue a where
withQStackedLayoutPtr :: a -> (QStackedLayoutConst -> HoppyP.IO b) -> HoppyP.IO b
instance {-# OVERLAPPABLE #-} QStackedLayoutConstPtr a => QStackedLayoutValue a where
withQStackedLayoutPtr = HoppyP.flip ($) . toQStackedLayoutConst
class (M432.QLayoutConstPtr this) => QStackedLayoutConstPtr this where
toQStackedLayoutConst :: this -> QStackedLayoutConst
count :: (QStackedLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
count arg'1 =
withQStackedLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
HoppyP.return . HoppyFHR.coerceIntegral
) =<<
(count' arg'1')
currentIndex :: (QStackedLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
currentIndex arg'1 =
withQStackedLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
HoppyP.return . HoppyFHR.coerceIntegral
) =<<
(currentIndex' arg'1')
currentWidget :: (QStackedLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)
currentWidget arg'1 =
withQStackedLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap M506.QWidget
(currentWidget' arg'1')
stackingMode :: (QStackedLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO QStackedLayoutStackingMode)
stackingMode arg'1 =
withQStackedLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
HoppyP.return . HoppyFHR.toCppEnum
) =<<
(stackingMode' arg'1')
widget :: (QStackedLayoutValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M506.QWidget)
widget arg'1 arg'2 =
withQStackedLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
HoppyP.return . HoppyFHR.coerceIntegral
) arg'2 >>= \arg'2' ->
HoppyP.fmap M506.QWidget
(widget' arg'1' arg'2')
class (QStackedLayoutConstPtr this, M432.QLayoutPtr this) => QStackedLayoutPtr this where
toQStackedLayout :: this -> QStackedLayout
addWidget :: (QStackedLayoutPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)
addWidget arg'1 arg'2 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->
(
HoppyP.return . HoppyFHR.coerceIntegral
) =<<
(addWidget' arg'1' arg'2')
setCurrentIndex :: (QStackedLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())
setCurrentIndex arg'1 arg'2 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
(
HoppyP.return . HoppyFHR.coerceIntegral
) arg'2 >>= \arg'2' ->
(setCurrentIndex' arg'1' arg'2')
setCurrentWidget :: (QStackedLayoutPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setCurrentWidget arg'1 arg'2 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->
(setCurrentWidget' arg'1' arg'2')
insertWidget :: (QStackedLayoutPtr this, M506.QWidgetPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Int)
insertWidget arg'1 arg'2 arg'3 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
(
HoppyP.return . HoppyFHR.coerceIntegral
) arg'2 >>= \arg'2' ->
HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->
(
HoppyP.return . HoppyFHR.coerceIntegral
) =<<
(insertWidget' arg'1' arg'2' arg'3')
setStackingMode :: (QStackedLayoutPtr this) => (this) {- ^ this -} -> (QStackedLayoutStackingMode) -> (HoppyP.IO ())
setStackingMode arg'1 arg'2 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
(
HoppyP.return . HoppyFHR.fromCppEnum
) arg'2 >>= \arg'2' ->
(setStackingMode' arg'1' arg'2')
emitCurrentChanged :: (QStackedLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())
emitCurrentChanged arg'1 arg'2 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
(
HoppyP.return . HoppyFHR.coerceIntegral
) arg'2 >>= \arg'2' ->
(emitCurrentChanged' arg'1' arg'2')
emitWidgetRemoved :: (QStackedLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())
emitWidgetRemoved arg'1 arg'2 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
(
HoppyP.return . HoppyFHR.coerceIntegral
) arg'2 >>= \arg'2' ->
(emitWidgetRemoved' arg'1' arg'2')
data QStackedLayoutConst =
QStackedLayoutConst (HoppyF.Ptr QStackedLayoutConst)
| QStackedLayoutConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStackedLayoutConst)
deriving (HoppyP.Show)
instance HoppyP.Eq QStackedLayoutConst where
x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y
instance HoppyP.Ord QStackedLayoutConst where
compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)
castQStackedLayoutToConst :: QStackedLayout -> QStackedLayoutConst
castQStackedLayoutToConst (QStackedLayout ptr') = QStackedLayoutConst $ HoppyF.castPtr ptr'
castQStackedLayoutToConst (QStackedLayoutGc fptr' ptr') = QStackedLayoutConstGc fptr' $ HoppyF.castPtr ptr'
instance HoppyFHR.CppPtr QStackedLayoutConst where
nullptr = QStackedLayoutConst HoppyF.nullPtr
withCppPtr (QStackedLayoutConst ptr') f' = f' ptr'
withCppPtr (QStackedLayoutConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
toPtr (QStackedLayoutConst ptr') = ptr'
toPtr (QStackedLayoutConstGc _ ptr') = ptr'
touchCppPtr (QStackedLayoutConst _) = HoppyP.return ()
touchCppPtr (QStackedLayoutConstGc fptr' _) = HoppyF.touchForeignPtr fptr'
instance HoppyFHR.Deletable QStackedLayoutConst where
delete (QStackedLayoutConst ptr') = delete'QStackedLayout ptr'
delete (QStackedLayoutConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStackedLayoutConst", " object."]
toGc this'@(QStackedLayoutConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStackedLayoutConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStackedLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
toGc this'@(QStackedLayoutConstGc {}) = HoppyP.return this'
instance QStackedLayoutConstPtr QStackedLayoutConst where
toQStackedLayoutConst = HoppyP.id
instance M432.QLayoutConstPtr QStackedLayoutConst where
toQLayoutConst (QStackedLayoutConst ptr') = M432.QLayoutConst $ castQStackedLayoutToQLayout ptr'
toQLayoutConst (QStackedLayoutConstGc fptr' ptr') = M432.QLayoutConstGc fptr' $ castQStackedLayoutToQLayout ptr'
instance M94.QObjectConstPtr QStackedLayoutConst where
toQObjectConst (QStackedLayoutConst ptr') = M94.QObjectConst $ castQStackedLayoutToQObject ptr'
toQObjectConst (QStackedLayoutConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQStackedLayoutToQObject ptr'
instance M434.QLayoutItemConstPtr QStackedLayoutConst where
toQLayoutItemConst (QStackedLayoutConst ptr') = M434.QLayoutItemConst $ castQStackedLayoutToQLayoutItem ptr'
toQLayoutItemConst (QStackedLayoutConstGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQStackedLayoutToQLayoutItem ptr'
data QStackedLayout =
QStackedLayout (HoppyF.Ptr QStackedLayout)
| QStackedLayoutGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStackedLayout)
deriving (HoppyP.Show)
instance HoppyP.Eq QStackedLayout where
x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y
instance HoppyP.Ord QStackedLayout where
compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)
castQStackedLayoutToNonconst :: QStackedLayoutConst -> QStackedLayout
castQStackedLayoutToNonconst (QStackedLayoutConst ptr') = QStackedLayout $ HoppyF.castPtr ptr'
castQStackedLayoutToNonconst (QStackedLayoutConstGc fptr' ptr') = QStackedLayoutGc fptr' $ HoppyF.castPtr ptr'
instance HoppyFHR.CppPtr QStackedLayout where
nullptr = QStackedLayout HoppyF.nullPtr
withCppPtr (QStackedLayout ptr') f' = f' ptr'
withCppPtr (QStackedLayoutGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
toPtr (QStackedLayout ptr') = ptr'
toPtr (QStackedLayoutGc _ ptr') = ptr'
touchCppPtr (QStackedLayout _) = HoppyP.return ()
touchCppPtr (QStackedLayoutGc fptr' _) = HoppyF.touchForeignPtr fptr'
instance HoppyFHR.Deletable QStackedLayout where
delete (QStackedLayout ptr') = delete'QStackedLayout $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QStackedLayoutConst)
delete (QStackedLayoutGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStackedLayout", " object."]
toGc this'@(QStackedLayout ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStackedLayoutGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStackedLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
toGc this'@(QStackedLayoutGc {}) = HoppyP.return this'
instance QStackedLayoutConstPtr QStackedLayout where
toQStackedLayoutConst (QStackedLayout ptr') = QStackedLayoutConst $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQStackedLayoutConst (QStackedLayoutGc fptr' ptr') = QStackedLayoutConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
instance QStackedLayoutPtr QStackedLayout where
toQStackedLayout = HoppyP.id
instance M432.QLayoutConstPtr QStackedLayout where
toQLayoutConst (QStackedLayout ptr') = M432.QLayoutConst $ castQStackedLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQLayoutConst (QStackedLayoutGc fptr' ptr') = M432.QLayoutConstGc fptr' $ castQStackedLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
instance M432.QLayoutPtr QStackedLayout where
toQLayout (QStackedLayout ptr') = M432.QLayout $ (HoppyF.castPtr :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr M432.QLayout) $ castQStackedLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQLayout (QStackedLayoutGc fptr' ptr') = M432.QLayoutGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr M432.QLayout) $ castQStackedLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
instance M94.QObjectConstPtr QStackedLayout where
toQObjectConst (QStackedLayout ptr') = M94.QObjectConst $ castQStackedLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQObjectConst (QStackedLayoutGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQStackedLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
instance M94.QObjectPtr QStackedLayout where
toQObject (QStackedLayout ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQStackedLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQObject (QStackedLayoutGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQStackedLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
instance M434.QLayoutItemConstPtr QStackedLayout where
toQLayoutItemConst (QStackedLayout ptr') = M434.QLayoutItemConst $ castQStackedLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQLayoutItemConst (QStackedLayoutGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQStackedLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
instance M434.QLayoutItemPtr QStackedLayout where
toQLayoutItem (QStackedLayout ptr') = M434.QLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQStackedLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQLayoutItem (QStackedLayoutGc fptr' ptr') = M434.QLayoutItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQStackedLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
new :: (HoppyP.IO QStackedLayout)
new =
HoppyP.fmap QStackedLayout
(new')
newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QStackedLayout)
newWithParent arg'1 =
HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->
HoppyP.fmap QStackedLayout
(newWithParent' arg'1')
newWithLayout :: (M432.QLayoutPtr arg'1) => (arg'1) -> (HoppyP.IO QStackedLayout)
newWithLayout arg'1 =
HoppyFHR.withCppPtr (M432.toQLayout arg'1) $ \arg'1' ->
HoppyP.fmap QStackedLayout
(newWithLayout' arg'1')
class QStackedLayoutSuper a where
downToQStackedLayout :: a -> QStackedLayout
instance QStackedLayoutSuper M432.QLayout where
downToQStackedLayout = castQStackedLayoutToNonconst . cast' . M432.castQLayoutToConst
where
cast' (M432.QLayoutConst ptr') = QStackedLayoutConst $ castQLayoutToQStackedLayout ptr'
cast' (M432.QLayoutConstGc fptr' ptr') = QStackedLayoutConstGc fptr' $ castQLayoutToQStackedLayout ptr'
instance QStackedLayoutSuper M94.QObject where
downToQStackedLayout = castQStackedLayoutToNonconst . cast' . M94.castQObjectToConst
where
cast' (M94.QObjectConst ptr') = QStackedLayoutConst $ castQObjectToQStackedLayout ptr'
cast' (M94.QObjectConstGc fptr' ptr') = QStackedLayoutConstGc fptr' $ castQObjectToQStackedLayout ptr'
instance QStackedLayoutSuper M434.QLayoutItem where
downToQStackedLayout = castQStackedLayoutToNonconst . cast' . M434.castQLayoutItemToConst
where
cast' (M434.QLayoutItemConst ptr') = QStackedLayoutConst $ castQLayoutItemToQStackedLayout ptr'
cast' (M434.QLayoutItemConstGc fptr' ptr') = QStackedLayoutConstGc fptr' $ castQLayoutItemToQStackedLayout ptr'
class QStackedLayoutSuperConst a where
downToQStackedLayoutConst :: a -> QStackedLayoutConst
instance QStackedLayoutSuperConst M432.QLayoutConst where
downToQStackedLayoutConst = cast'
where
cast' (M432.QLayoutConst ptr') = QStackedLayoutConst $ castQLayoutToQStackedLayout ptr'
cast' (M432.QLayoutConstGc fptr' ptr') = QStackedLayoutConstGc fptr' $ castQLayoutToQStackedLayout ptr'
instance QStackedLayoutSuperConst M94.QObjectConst where
downToQStackedLayoutConst = cast'
where
cast' (M94.QObjectConst ptr') = QStackedLayoutConst $ castQObjectToQStackedLayout ptr'
cast' (M94.QObjectConstGc fptr' ptr') = QStackedLayoutConstGc fptr' $ castQObjectToQStackedLayout ptr'
instance QStackedLayoutSuperConst M434.QLayoutItemConst where
downToQStackedLayoutConst = cast'
where
cast' (M434.QLayoutItemConst ptr') = QStackedLayoutConst $ castQLayoutItemToQStackedLayout ptr'
cast' (M434.QLayoutItemConstGc fptr' ptr') = QStackedLayoutConstGc fptr' $ castQLayoutItemToQStackedLayout ptr'
instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QStackedLayout)) QStackedLayout where
assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'
instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QStackedLayout)) QStackedLayout where
decode = HoppyP.fmap QStackedLayout . HoppyF.peek
data QStackedLayoutStackingMode =
StackOne
| StackAll
| UnknownQStackedLayoutStackingMode (HoppyFC.CInt)
deriving (HoppyP.Show)
instance HoppyFHR.CppEnum (HoppyFC.CInt) QStackedLayoutStackingMode where
fromCppEnum StackOne = 0
fromCppEnum StackAll = 1
fromCppEnum (UnknownQStackedLayoutStackingMode n) = n
toCppEnum (0) = StackOne
toCppEnum (1) = StackAll
toCppEnum n = UnknownQStackedLayoutStackingMode n
instance HoppyP.Eq QStackedLayoutStackingMode where
x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y
instance HoppyP.Ord QStackedLayoutStackingMode where
compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)