qtah-qt5-0.3.0: src/Graphics/UI/Qtah/Generated/Widgets/QStackedLayout.hs
{-# LANGUAGE CPP, FlexibleContexts, FlexibleInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
#if !MIN_VERSION_base(4,8,0)
{-# LANGUAGE OverlappingInstances #-}
#endif
---------- 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,
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 M30
import qualified Graphics.UI.Qtah.Generated.Widgets.QLayout as M228
import qualified Graphics.UI.Qtah.Generated.Widgets.QLayoutItem as M230
import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M280
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 M280.QWidget -> HoppyP.IO (HoppyF.Ptr QStackedLayout)
foreign import ccall "genpop__QStackedLayout_newWithLayout" newWithLayout' :: HoppyF.Ptr M228.QLayout -> HoppyP.IO (HoppyF.Ptr QStackedLayout)
foreign import ccall "genpop__QStackedLayout_addWidget" addWidget' :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr M280.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 M280.QWidget)
foreign import ccall "genpop__QStackedLayout_setCurrentWidget" setCurrentWidget' :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr M280.QWidget -> HoppyP.IO ()
foreign import ccall "genpop__QStackedLayout_insertWidget" insertWidget' :: HoppyF.Ptr QStackedLayout -> HoppyFC.CInt -> HoppyF.Ptr M280.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 M280.QWidget)
foreign import ccall "gencast__QStackedLayout__QLayout" castQStackedLayoutToQLayout :: HoppyF.Ptr QStackedLayoutConst -> HoppyF.Ptr M228.QLayoutConst
foreign import ccall "gencast__QLayout__QStackedLayout" castQLayoutToQStackedLayout :: HoppyF.Ptr M228.QLayoutConst -> HoppyF.Ptr QStackedLayoutConst
foreign import ccall "gencast__QStackedLayout__QObject" castQStackedLayoutToQObject :: HoppyF.Ptr QStackedLayoutConst -> HoppyF.Ptr M30.QObjectConst
foreign import ccall "gencast__QObject__QStackedLayout" castQObjectToQStackedLayout :: HoppyF.Ptr M30.QObjectConst -> HoppyF.Ptr QStackedLayoutConst
foreign import ccall "gencast__QStackedLayout__QLayoutItem" castQStackedLayoutToQLayoutItem :: HoppyF.Ptr QStackedLayoutConst -> HoppyF.Ptr M230.QLayoutItemConst
foreign import ccall "gencast__QLayoutItem__QStackedLayout" castQLayoutItemToQStackedLayout :: HoppyF.Ptr M230.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
#if MIN_VERSION_base(4,8,0)
instance {-# OVERLAPPABLE #-} QStackedLayoutConstPtr a => QStackedLayoutValue a where
#else
instance QStackedLayoutConstPtr a => QStackedLayoutValue a where
#endif
withQStackedLayoutPtr = HoppyP.flip ($) . toQStackedLayoutConst
class (M228.QLayoutConstPtr this) => QStackedLayoutConstPtr this where
toQStackedLayoutConst :: this -> QStackedLayoutConst
count :: (QStackedLayoutValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
count arg'1 =
withQStackedLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(count' arg'1')
currentIndex :: (QStackedLayoutValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
currentIndex arg'1 =
withQStackedLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(currentIndex' arg'1')
currentWidget :: (QStackedLayoutValue arg'1) => arg'1 -> HoppyP.IO M280.QWidget
currentWidget arg'1 =
withQStackedLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap M280.QWidget
(currentWidget' arg'1')
stackingMode :: (QStackedLayoutValue arg'1) => arg'1 -> HoppyP.IO QStackedLayoutStackingMode
stackingMode arg'1 =
withQStackedLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap (HoppyP.toEnum . HoppyFHR.coerceIntegral)
(stackingMode' arg'1')
widget :: (QStackedLayoutValue arg'1) => arg'1 -> HoppyP.Int -> HoppyP.IO M280.QWidget
widget arg'1 arg'2 =
withQStackedLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
let arg'2' = HoppyFHR.coerceIntegral arg'2 in
HoppyP.fmap M280.QWidget
(widget' arg'1' arg'2')
class (QStackedLayoutConstPtr this, M228.QLayoutPtr this) => QStackedLayoutPtr this where
toQStackedLayout :: this -> QStackedLayout
addWidget :: (QStackedLayoutPtr arg'1, M280.QWidgetPtr arg'2) => arg'1 -> arg'2 -> HoppyP.IO HoppyP.Int
addWidget arg'1 arg'2 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
HoppyFHR.withCppPtr (M280.toQWidget arg'2) $ \arg'2' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(addWidget' arg'1' arg'2')
setCurrentIndex :: (QStackedLayoutPtr arg'1) => arg'1 -> HoppyP.Int -> HoppyP.IO ()
setCurrentIndex arg'1 arg'2 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
let arg'2' = HoppyFHR.coerceIntegral arg'2 in
(setCurrentIndex' arg'1' arg'2')
setCurrentWidget :: (QStackedLayoutPtr arg'1, M280.QWidgetPtr arg'2) => arg'1 -> arg'2 -> HoppyP.IO ()
setCurrentWidget arg'1 arg'2 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
HoppyFHR.withCppPtr (M280.toQWidget arg'2) $ \arg'2' ->
(setCurrentWidget' arg'1' arg'2')
insertWidget :: (QStackedLayoutPtr arg'1, M280.QWidgetPtr arg'3) => arg'1 -> HoppyP.Int -> arg'3 -> HoppyP.IO HoppyP.Int
insertWidget arg'1 arg'2 arg'3 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
let arg'2' = HoppyFHR.coerceIntegral arg'2 in
HoppyFHR.withCppPtr (M280.toQWidget arg'3) $ \arg'3' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(insertWidget' arg'1' arg'2' arg'3')
setStackingMode :: (QStackedLayoutPtr arg'1) => arg'1 -> QStackedLayoutStackingMode -> HoppyP.IO ()
setStackingMode arg'1 arg'2 =
HoppyFHR.withCppPtr (toQStackedLayout arg'1) $ \arg'1' ->
let arg'2' = HoppyFHR.coerceIntegral $ HoppyP.fromEnum arg'2 in
(setStackingMode' 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 M228.QLayoutConstPtr QStackedLayoutConst where
toQLayoutConst (QStackedLayoutConst ptr') = M228.QLayoutConst $ castQStackedLayoutToQLayout ptr'
toQLayoutConst (QStackedLayoutConstGc fptr' ptr') = M228.QLayoutConstGc fptr' $ castQStackedLayoutToQLayout ptr'
instance M30.QObjectConstPtr QStackedLayoutConst where
toQObjectConst (QStackedLayoutConst ptr') = M30.QObjectConst $ castQStackedLayoutToQObject ptr'
toQObjectConst (QStackedLayoutConstGc fptr' ptr') = M30.QObjectConstGc fptr' $ castQStackedLayoutToQObject ptr'
instance M230.QLayoutItemConstPtr QStackedLayoutConst where
toQLayoutItemConst (QStackedLayoutConst ptr') = M230.QLayoutItemConst $ castQStackedLayoutToQLayoutItem ptr'
toQLayoutItemConst (QStackedLayoutConstGc fptr' ptr') = M230.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 M228.QLayoutConstPtr QStackedLayout where
toQLayoutConst (QStackedLayout ptr') = M228.QLayoutConst $ castQStackedLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQLayoutConst (QStackedLayoutGc fptr' ptr') = M228.QLayoutConstGc fptr' $ castQStackedLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
instance M228.QLayoutPtr QStackedLayout where
toQLayout (QStackedLayout ptr') = M228.QLayout $ (HoppyF.castPtr :: HoppyF.Ptr M228.QLayoutConst -> HoppyF.Ptr M228.QLayout) $ castQStackedLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQLayout (QStackedLayoutGc fptr' ptr') = M228.QLayoutGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M228.QLayoutConst -> HoppyF.Ptr M228.QLayout) $ castQStackedLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
instance M30.QObjectConstPtr QStackedLayout where
toQObjectConst (QStackedLayout ptr') = M30.QObjectConst $ castQStackedLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQObjectConst (QStackedLayoutGc fptr' ptr') = M30.QObjectConstGc fptr' $ castQStackedLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
instance M30.QObjectPtr QStackedLayout where
toQObject (QStackedLayout ptr') = M30.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M30.QObjectConst -> HoppyF.Ptr M30.QObject) $ castQStackedLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQObject (QStackedLayoutGc fptr' ptr') = M30.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M30.QObjectConst -> HoppyF.Ptr M30.QObject) $ castQStackedLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
instance M230.QLayoutItemConstPtr QStackedLayout where
toQLayoutItemConst (QStackedLayout ptr') = M230.QLayoutItemConst $ castQStackedLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQLayoutItemConst (QStackedLayoutGc fptr' ptr') = M230.QLayoutItemConstGc fptr' $ castQStackedLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
instance M230.QLayoutItemPtr QStackedLayout where
toQLayoutItem (QStackedLayout ptr') = M230.QLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr M230.QLayoutItemConst -> HoppyF.Ptr M230.QLayoutItem) $ castQStackedLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
toQLayoutItem (QStackedLayoutGc fptr' ptr') = M230.QLayoutItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M230.QLayoutItemConst -> HoppyF.Ptr M230.QLayoutItem) $ castQStackedLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QStackedLayout -> HoppyF.Ptr QStackedLayoutConst) ptr'
new :: HoppyP.IO QStackedLayout
new =
HoppyP.fmap QStackedLayout
(new')
newWithParent :: (M280.QWidgetPtr arg'1) => arg'1 -> HoppyP.IO QStackedLayout
newWithParent arg'1 =
HoppyFHR.withCppPtr (M280.toQWidget arg'1) $ \arg'1' ->
HoppyP.fmap QStackedLayout
(newWithParent' arg'1')
newWithLayout :: (M228.QLayoutPtr arg'1) => arg'1 -> HoppyP.IO QStackedLayout
newWithLayout arg'1 =
HoppyFHR.withCppPtr (M228.toQLayout arg'1) $ \arg'1' ->
HoppyP.fmap QStackedLayout
(newWithLayout' arg'1')
class QStackedLayoutSuper a where
downToQStackedLayout :: a -> QStackedLayout
instance QStackedLayoutSuper M228.QLayout where
downToQStackedLayout = castQStackedLayoutToNonconst . cast' . M228.castQLayoutToConst
where
cast' (M228.QLayoutConst ptr') = QStackedLayoutConst $ castQLayoutToQStackedLayout ptr'
cast' (M228.QLayoutConstGc fptr' ptr') = QStackedLayoutConstGc fptr' $ castQLayoutToQStackedLayout ptr'
instance QStackedLayoutSuper M30.QObject where
downToQStackedLayout = castQStackedLayoutToNonconst . cast' . M30.castQObjectToConst
where
cast' (M30.QObjectConst ptr') = QStackedLayoutConst $ castQObjectToQStackedLayout ptr'
cast' (M30.QObjectConstGc fptr' ptr') = QStackedLayoutConstGc fptr' $ castQObjectToQStackedLayout ptr'
instance QStackedLayoutSuper M230.QLayoutItem where
downToQStackedLayout = castQStackedLayoutToNonconst . cast' . M230.castQLayoutItemToConst
where
cast' (M230.QLayoutItemConst ptr') = QStackedLayoutConst $ castQLayoutItemToQStackedLayout ptr'
cast' (M230.QLayoutItemConstGc fptr' ptr') = QStackedLayoutConstGc fptr' $ castQLayoutItemToQStackedLayout ptr'
class QStackedLayoutSuperConst a where
downToQStackedLayoutConst :: a -> QStackedLayoutConst
instance QStackedLayoutSuperConst M228.QLayoutConst where
downToQStackedLayoutConst = cast'
where
cast' (M228.QLayoutConst ptr') = QStackedLayoutConst $ castQLayoutToQStackedLayout ptr'
cast' (M228.QLayoutConstGc fptr' ptr') = QStackedLayoutConstGc fptr' $ castQLayoutToQStackedLayout ptr'
instance QStackedLayoutSuperConst M30.QObjectConst where
downToQStackedLayoutConst = cast'
where
cast' (M30.QObjectConst ptr') = QStackedLayoutConst $ castQObjectToQStackedLayout ptr'
cast' (M30.QObjectConstGc fptr' ptr') = QStackedLayoutConstGc fptr' $ castQObjectToQStackedLayout ptr'
instance QStackedLayoutSuperConst M230.QLayoutItemConst where
downToQStackedLayoutConst = cast'
where
cast' (M230.QLayoutItemConst ptr') = QStackedLayoutConst $ castQLayoutItemToQStackedLayout ptr'
cast' (M230.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
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QStackedLayoutStackingMode where
fromEnum StackOne = 0
fromEnum StackAll = 1
toEnum (0) = StackOne
toEnum (1) = StackAll
toEnum n' = HoppyP.error $ "Unknown QStackedLayoutStackingMode numeric value: " ++ HoppyP.show n'