qtah-qt5-0.8.0: src/Graphics/UI/Qtah/Generated/Widgets/QHBoxLayout.hs

{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
---------- GENERATED FILE, EDITS WILL BE LOST ----------

module Graphics.UI.Qtah.Generated.Widgets.QHBoxLayout (
  castQHBoxLayoutToQBoxLayout,
  castQBoxLayoutToQHBoxLayout,
  castQHBoxLayoutToQLayout,
  castQLayoutToQHBoxLayout,
  castQHBoxLayoutToQObject,
  castQObjectToQHBoxLayout,
  castQHBoxLayoutToQLayoutItem,
  castQLayoutItemToQHBoxLayout,
  QHBoxLayoutValue (..),
  QHBoxLayoutConstPtr (..),
  QHBoxLayoutPtr (..),
  QHBoxLayoutConst (..),
  castQHBoxLayoutToConst,
  QHBoxLayout (..),
  castQHBoxLayoutToNonconst,
  new,
  newWithParent,
  QHBoxLayoutSuper (..),
  QHBoxLayoutSuperConst (..),
  ) where

import qualified Foreign as HoppyF
import qualified Foreign.Hoppy.Runtime as HoppyFHR
import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94
import qualified Graphics.UI.Qtah.Generated.Widgets.QBoxLayout as M374
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__QHBoxLayout_new" new' ::  HoppyP.IO (HoppyF.Ptr QHBoxLayout)
foreign import ccall "genpop__QHBoxLayout_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QHBoxLayout)
foreign import ccall "gencast__QHBoxLayout__QBoxLayout" castQHBoxLayoutToQBoxLayout :: HoppyF.Ptr QHBoxLayoutConst -> HoppyF.Ptr M374.QBoxLayoutConst
foreign import ccall "gencast__QBoxLayout__QHBoxLayout" castQBoxLayoutToQHBoxLayout :: HoppyF.Ptr M374.QBoxLayoutConst -> HoppyF.Ptr QHBoxLayoutConst
foreign import ccall "gencast__QHBoxLayout__QLayout" castQHBoxLayoutToQLayout :: HoppyF.Ptr QHBoxLayoutConst -> HoppyF.Ptr M432.QLayoutConst
foreign import ccall "gencast__QLayout__QHBoxLayout" castQLayoutToQHBoxLayout :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr QHBoxLayoutConst
foreign import ccall "gencast__QHBoxLayout__QObject" castQHBoxLayoutToQObject :: HoppyF.Ptr QHBoxLayoutConst -> HoppyF.Ptr M94.QObjectConst
foreign import ccall "gencast__QObject__QHBoxLayout" castQObjectToQHBoxLayout :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QHBoxLayoutConst
foreign import ccall "gencast__QHBoxLayout__QLayoutItem" castQHBoxLayoutToQLayoutItem :: HoppyF.Ptr QHBoxLayoutConst -> HoppyF.Ptr M434.QLayoutItemConst
foreign import ccall "gencast__QLayoutItem__QHBoxLayout" castQLayoutItemToQHBoxLayout :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr QHBoxLayoutConst
foreign import ccall "gendel__QHBoxLayout" delete'QHBoxLayout :: HoppyF.Ptr QHBoxLayoutConst -> HoppyP.IO ()
foreign import ccall "&gendel__QHBoxLayout" deletePtr'QHBoxLayout :: HoppyF.FunPtr (HoppyF.Ptr QHBoxLayoutConst -> HoppyP.IO ())

class QHBoxLayoutValue a where
  withQHBoxLayoutPtr :: a -> (QHBoxLayoutConst -> HoppyP.IO b) -> HoppyP.IO b

instance {-# OVERLAPPABLE #-} QHBoxLayoutConstPtr a => QHBoxLayoutValue a where
  withQHBoxLayoutPtr = HoppyP.flip ($) . toQHBoxLayoutConst

class (M374.QBoxLayoutConstPtr this) => QHBoxLayoutConstPtr this where
  toQHBoxLayoutConst :: this -> QHBoxLayoutConst

class (QHBoxLayoutConstPtr this, M374.QBoxLayoutPtr this) => QHBoxLayoutPtr this where
  toQHBoxLayout :: this -> QHBoxLayout

data QHBoxLayoutConst =
    QHBoxLayoutConst (HoppyF.Ptr QHBoxLayoutConst)
  | QHBoxLayoutConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QHBoxLayoutConst)
  deriving (HoppyP.Show)

instance HoppyP.Eq QHBoxLayoutConst where
  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y

instance HoppyP.Ord QHBoxLayoutConst where
  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)

castQHBoxLayoutToConst :: QHBoxLayout -> QHBoxLayoutConst
castQHBoxLayoutToConst (QHBoxLayout ptr') = QHBoxLayoutConst $ HoppyF.castPtr ptr'
castQHBoxLayoutToConst (QHBoxLayoutGc fptr' ptr') = QHBoxLayoutConstGc fptr' $ HoppyF.castPtr ptr'

instance HoppyFHR.CppPtr QHBoxLayoutConst where
  nullptr = QHBoxLayoutConst HoppyF.nullPtr
  
  withCppPtr (QHBoxLayoutConst ptr') f' = f' ptr'
  withCppPtr (QHBoxLayoutConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
  
  toPtr (QHBoxLayoutConst ptr') = ptr'
  toPtr (QHBoxLayoutConstGc _ ptr') = ptr'
  
  touchCppPtr (QHBoxLayoutConst _) = HoppyP.return ()
  touchCppPtr (QHBoxLayoutConstGc fptr' _) = HoppyF.touchForeignPtr fptr'

instance HoppyFHR.Deletable QHBoxLayoutConst where
  delete (QHBoxLayoutConst ptr') = delete'QHBoxLayout ptr'
  delete (QHBoxLayoutConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QHBoxLayoutConst", " object."]
  
  toGc this'@(QHBoxLayoutConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QHBoxLayoutConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QHBoxLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
  toGc this'@(QHBoxLayoutConstGc {}) = HoppyP.return this'

instance QHBoxLayoutConstPtr QHBoxLayoutConst where
  toQHBoxLayoutConst = HoppyP.id

instance M374.QBoxLayoutConstPtr QHBoxLayoutConst where
  toQBoxLayoutConst (QHBoxLayoutConst ptr') = M374.QBoxLayoutConst $ castQHBoxLayoutToQBoxLayout ptr'
  toQBoxLayoutConst (QHBoxLayoutConstGc fptr' ptr') = M374.QBoxLayoutConstGc fptr' $ castQHBoxLayoutToQBoxLayout ptr'

instance M432.QLayoutConstPtr QHBoxLayoutConst where
  toQLayoutConst (QHBoxLayoutConst ptr') = M432.QLayoutConst $ castQHBoxLayoutToQLayout ptr'
  toQLayoutConst (QHBoxLayoutConstGc fptr' ptr') = M432.QLayoutConstGc fptr' $ castQHBoxLayoutToQLayout ptr'

instance M94.QObjectConstPtr QHBoxLayoutConst where
  toQObjectConst (QHBoxLayoutConst ptr') = M94.QObjectConst $ castQHBoxLayoutToQObject ptr'
  toQObjectConst (QHBoxLayoutConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQHBoxLayoutToQObject ptr'

instance M434.QLayoutItemConstPtr QHBoxLayoutConst where
  toQLayoutItemConst (QHBoxLayoutConst ptr') = M434.QLayoutItemConst $ castQHBoxLayoutToQLayoutItem ptr'
  toQLayoutItemConst (QHBoxLayoutConstGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQHBoxLayoutToQLayoutItem ptr'

data QHBoxLayout =
    QHBoxLayout (HoppyF.Ptr QHBoxLayout)
  | QHBoxLayoutGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QHBoxLayout)
  deriving (HoppyP.Show)

instance HoppyP.Eq QHBoxLayout where
  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y

instance HoppyP.Ord QHBoxLayout where
  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)

castQHBoxLayoutToNonconst :: QHBoxLayoutConst -> QHBoxLayout
castQHBoxLayoutToNonconst (QHBoxLayoutConst ptr') = QHBoxLayout $ HoppyF.castPtr ptr'
castQHBoxLayoutToNonconst (QHBoxLayoutConstGc fptr' ptr') = QHBoxLayoutGc fptr' $ HoppyF.castPtr ptr'

instance HoppyFHR.CppPtr QHBoxLayout where
  nullptr = QHBoxLayout HoppyF.nullPtr
  
  withCppPtr (QHBoxLayout ptr') f' = f' ptr'
  withCppPtr (QHBoxLayoutGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
  
  toPtr (QHBoxLayout ptr') = ptr'
  toPtr (QHBoxLayoutGc _ ptr') = ptr'
  
  touchCppPtr (QHBoxLayout _) = HoppyP.return ()
  touchCppPtr (QHBoxLayoutGc fptr' _) = HoppyF.touchForeignPtr fptr'

instance HoppyFHR.Deletable QHBoxLayout where
  delete (QHBoxLayout ptr') = delete'QHBoxLayout $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QHBoxLayoutConst)
  delete (QHBoxLayoutGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QHBoxLayout", " object."]
  
  toGc this'@(QHBoxLayout ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QHBoxLayoutGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QHBoxLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
  toGc this'@(QHBoxLayoutGc {}) = HoppyP.return this'

instance QHBoxLayoutConstPtr QHBoxLayout where
  toQHBoxLayoutConst (QHBoxLayout ptr') = QHBoxLayoutConst $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'
  toQHBoxLayoutConst (QHBoxLayoutGc fptr' ptr') = QHBoxLayoutConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'

instance QHBoxLayoutPtr QHBoxLayout where
  toQHBoxLayout = HoppyP.id

instance M374.QBoxLayoutConstPtr QHBoxLayout where
  toQBoxLayoutConst (QHBoxLayout ptr') = M374.QBoxLayoutConst $ castQHBoxLayoutToQBoxLayout $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'
  toQBoxLayoutConst (QHBoxLayoutGc fptr' ptr') = M374.QBoxLayoutConstGc fptr' $ castQHBoxLayoutToQBoxLayout $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'

instance M374.QBoxLayoutPtr QHBoxLayout where
  toQBoxLayout (QHBoxLayout ptr') = M374.QBoxLayout $ (HoppyF.castPtr :: HoppyF.Ptr M374.QBoxLayoutConst -> HoppyF.Ptr M374.QBoxLayout) $ castQHBoxLayoutToQBoxLayout $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'
  toQBoxLayout (QHBoxLayoutGc fptr' ptr') = M374.QBoxLayoutGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M374.QBoxLayoutConst -> HoppyF.Ptr M374.QBoxLayout) $ castQHBoxLayoutToQBoxLayout $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'

instance M432.QLayoutConstPtr QHBoxLayout where
  toQLayoutConst (QHBoxLayout ptr') = M432.QLayoutConst $ castQHBoxLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'
  toQLayoutConst (QHBoxLayoutGc fptr' ptr') = M432.QLayoutConstGc fptr' $ castQHBoxLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'

instance M432.QLayoutPtr QHBoxLayout where
  toQLayout (QHBoxLayout ptr') = M432.QLayout $ (HoppyF.castPtr :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr M432.QLayout) $ castQHBoxLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'
  toQLayout (QHBoxLayoutGc fptr' ptr') = M432.QLayoutGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr M432.QLayout) $ castQHBoxLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'

instance M94.QObjectConstPtr QHBoxLayout where
  toQObjectConst (QHBoxLayout ptr') = M94.QObjectConst $ castQHBoxLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'
  toQObjectConst (QHBoxLayoutGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQHBoxLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'

instance M94.QObjectPtr QHBoxLayout where
  toQObject (QHBoxLayout ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQHBoxLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'
  toQObject (QHBoxLayoutGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQHBoxLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'

instance M434.QLayoutItemConstPtr QHBoxLayout where
  toQLayoutItemConst (QHBoxLayout ptr') = M434.QLayoutItemConst $ castQHBoxLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'
  toQLayoutItemConst (QHBoxLayoutGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQHBoxLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'

instance M434.QLayoutItemPtr QHBoxLayout where
  toQLayoutItem (QHBoxLayout ptr') = M434.QLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQHBoxLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'
  toQLayoutItem (QHBoxLayoutGc fptr' ptr') = M434.QLayoutItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQHBoxLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QHBoxLayout -> HoppyF.Ptr QHBoxLayoutConst) ptr'

new :: (HoppyP.IO QHBoxLayout)
new =
  HoppyP.fmap QHBoxLayout
  (new')

newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QHBoxLayout)
newWithParent arg'1 =
  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->
  HoppyP.fmap QHBoxLayout
  (newWithParent' arg'1')

class QHBoxLayoutSuper a where
  downToQHBoxLayout :: a -> QHBoxLayout

instance QHBoxLayoutSuper M374.QBoxLayout where
  downToQHBoxLayout = castQHBoxLayoutToNonconst . cast' . M374.castQBoxLayoutToConst
    where
      cast' (M374.QBoxLayoutConst ptr') = QHBoxLayoutConst $ castQBoxLayoutToQHBoxLayout ptr'
      cast' (M374.QBoxLayoutConstGc fptr' ptr') = QHBoxLayoutConstGc fptr' $ castQBoxLayoutToQHBoxLayout ptr'
instance QHBoxLayoutSuper M432.QLayout where
  downToQHBoxLayout = castQHBoxLayoutToNonconst . cast' . M432.castQLayoutToConst
    where
      cast' (M432.QLayoutConst ptr') = QHBoxLayoutConst $ castQLayoutToQHBoxLayout ptr'
      cast' (M432.QLayoutConstGc fptr' ptr') = QHBoxLayoutConstGc fptr' $ castQLayoutToQHBoxLayout ptr'
instance QHBoxLayoutSuper M94.QObject where
  downToQHBoxLayout = castQHBoxLayoutToNonconst . cast' . M94.castQObjectToConst
    where
      cast' (M94.QObjectConst ptr') = QHBoxLayoutConst $ castQObjectToQHBoxLayout ptr'
      cast' (M94.QObjectConstGc fptr' ptr') = QHBoxLayoutConstGc fptr' $ castQObjectToQHBoxLayout ptr'
instance QHBoxLayoutSuper M434.QLayoutItem where
  downToQHBoxLayout = castQHBoxLayoutToNonconst . cast' . M434.castQLayoutItemToConst
    where
      cast' (M434.QLayoutItemConst ptr') = QHBoxLayoutConst $ castQLayoutItemToQHBoxLayout ptr'
      cast' (M434.QLayoutItemConstGc fptr' ptr') = QHBoxLayoutConstGc fptr' $ castQLayoutItemToQHBoxLayout ptr'

class QHBoxLayoutSuperConst a where
  downToQHBoxLayoutConst :: a -> QHBoxLayoutConst

instance QHBoxLayoutSuperConst M374.QBoxLayoutConst where
  downToQHBoxLayoutConst = cast'
    where
      cast' (M374.QBoxLayoutConst ptr') = QHBoxLayoutConst $ castQBoxLayoutToQHBoxLayout ptr'
      cast' (M374.QBoxLayoutConstGc fptr' ptr') = QHBoxLayoutConstGc fptr' $ castQBoxLayoutToQHBoxLayout ptr'
instance QHBoxLayoutSuperConst M432.QLayoutConst where
  downToQHBoxLayoutConst = cast'
    where
      cast' (M432.QLayoutConst ptr') = QHBoxLayoutConst $ castQLayoutToQHBoxLayout ptr'
      cast' (M432.QLayoutConstGc fptr' ptr') = QHBoxLayoutConstGc fptr' $ castQLayoutToQHBoxLayout ptr'
instance QHBoxLayoutSuperConst M94.QObjectConst where
  downToQHBoxLayoutConst = cast'
    where
      cast' (M94.QObjectConst ptr') = QHBoxLayoutConst $ castQObjectToQHBoxLayout ptr'
      cast' (M94.QObjectConstGc fptr' ptr') = QHBoxLayoutConstGc fptr' $ castQObjectToQHBoxLayout ptr'
instance QHBoxLayoutSuperConst M434.QLayoutItemConst where
  downToQHBoxLayoutConst = cast'
    where
      cast' (M434.QLayoutItemConst ptr') = QHBoxLayoutConst $ castQLayoutItemToQHBoxLayout ptr'
      cast' (M434.QLayoutItemConstGc fptr' ptr') = QHBoxLayoutConstGc fptr' $ castQLayoutItemToQHBoxLayout ptr'

instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QHBoxLayout)) QHBoxLayout where
  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'

instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QHBoxLayout)) QHBoxLayout where
  decode = HoppyP.fmap QHBoxLayout . HoppyF.peek