QSpacerItem.hs

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

module Graphics.UI.Qtah.Generated.Widgets.QSpacerItem (
  castQSpacerItemToQLayoutItem,
  castQLayoutItemToQSpacerItem,
  QSpacerItemValue (..),
  QSpacerItemConstPtr (..),
  sizePolicy,
  QSpacerItemPtr (..),
  changeSize,
  changeSizeWithOptions,
  QSpacerItemConst (..),
  castQSpacerItemToConst,
  QSpacerItem (..),
  castQSpacerItemToNonconst,
  new,
  newWithOptions,
  QSpacerItemSuper (..),
  QSpacerItemSuperConst (..),
  ) 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.Widgets.QLayoutItem as M434
import qualified Graphics.UI.Qtah.Generated.Widgets.QSizePolicy as M468
import Prelude (($), (.), (=<<), (==), (>>=))
import qualified Prelude as HoppyP

foreign import ccall "genpop__QSpacerItem_new" new' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QSpacerItem)
foreign import ccall "genpop__QSpacerItem_newWithOptions" newWithOptions' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QSpacerItem)
foreign import ccall "genpop__QSpacerItem_changeSize" changeSize' ::  HoppyF.Ptr QSpacerItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QSpacerItem_changeSizeWithOptions" changeSizeWithOptions' ::  HoppyF.Ptr QSpacerItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QSpacerItem_sizePolicy" sizePolicy' ::  HoppyF.Ptr QSpacerItemConst -> HoppyP.IO (HoppyF.Ptr M468.QSizePolicyConst)
foreign import ccall "gencast__QSpacerItem__QLayoutItem" castQSpacerItemToQLayoutItem :: HoppyF.Ptr QSpacerItemConst -> HoppyF.Ptr M434.QLayoutItemConst
foreign import ccall "gencast__QLayoutItem__QSpacerItem" castQLayoutItemToQSpacerItem :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr QSpacerItemConst
foreign import ccall "gendel__QSpacerItem" delete'QSpacerItem :: HoppyF.Ptr QSpacerItemConst -> HoppyP.IO ()
foreign import ccall "&gendel__QSpacerItem" deletePtr'QSpacerItem :: HoppyF.FunPtr (HoppyF.Ptr QSpacerItemConst -> HoppyP.IO ())

class QSpacerItemValue a where
  withQSpacerItemPtr :: a -> (QSpacerItemConst -> HoppyP.IO b) -> HoppyP.IO b

instance {-# OVERLAPPABLE #-} QSpacerItemConstPtr a => QSpacerItemValue a where
  withQSpacerItemPtr = HoppyP.flip ($) . toQSpacerItemConst

class (M434.QLayoutItemConstPtr this) => QSpacerItemConstPtr this where
  toQSpacerItemConst :: this -> QSpacerItemConst

sizePolicy :: (QSpacerItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M468.QSizePolicy)
sizePolicy arg'1 =
  withQSpacerItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (HoppyFHR.decodeAndDelete . M468.QSizePolicyConst) =<<
  (sizePolicy' arg'1')

class (QSpacerItemConstPtr this, M434.QLayoutItemPtr this) => QSpacerItemPtr this where
  toQSpacerItem :: this -> QSpacerItem

changeSize :: (QSpacerItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())
changeSize arg'1 arg'2 arg'3 =
  HoppyFHR.withCppPtr (toQSpacerItem arg'1) $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'2 >>= \arg'2' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'3 >>= \arg'3' ->
  (changeSize' arg'1' arg'2' arg'3')

changeSizeWithOptions :: (QSpacerItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (M468.QSizePolicyPolicy) -> (M468.QSizePolicyPolicy) -> (HoppyP.IO ())
changeSizeWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 =
  HoppyFHR.withCppPtr (toQSpacerItem arg'1) $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'2 >>= \arg'2' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'3 >>= \arg'3' ->
  (
    HoppyP.return . HoppyFHR.fromCppEnum
  ) arg'4 >>= \arg'4' ->
  (
    HoppyP.return . HoppyFHR.fromCppEnum
  ) arg'5 >>= \arg'5' ->
  (changeSizeWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5')

data QSpacerItemConst =
    QSpacerItemConst (HoppyF.Ptr QSpacerItemConst)
  | QSpacerItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSpacerItemConst)
  deriving (HoppyP.Show)

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

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

castQSpacerItemToConst :: QSpacerItem -> QSpacerItemConst
castQSpacerItemToConst (QSpacerItem ptr') = QSpacerItemConst $ HoppyF.castPtr ptr'
castQSpacerItemToConst (QSpacerItemGc fptr' ptr') = QSpacerItemConstGc fptr' $ HoppyF.castPtr ptr'

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

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

instance QSpacerItemConstPtr QSpacerItemConst where
  toQSpacerItemConst = HoppyP.id

instance M434.QLayoutItemConstPtr QSpacerItemConst where
  toQLayoutItemConst (QSpacerItemConst ptr') = M434.QLayoutItemConst $ castQSpacerItemToQLayoutItem ptr'
  toQLayoutItemConst (QSpacerItemConstGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQSpacerItemToQLayoutItem ptr'

data QSpacerItem =
    QSpacerItem (HoppyF.Ptr QSpacerItem)
  | QSpacerItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSpacerItem)
  deriving (HoppyP.Show)

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

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

castQSpacerItemToNonconst :: QSpacerItemConst -> QSpacerItem
castQSpacerItemToNonconst (QSpacerItemConst ptr') = QSpacerItem $ HoppyF.castPtr ptr'
castQSpacerItemToNonconst (QSpacerItemConstGc fptr' ptr') = QSpacerItemGc fptr' $ HoppyF.castPtr ptr'

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

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

instance QSpacerItemConstPtr QSpacerItem where
  toQSpacerItemConst (QSpacerItem ptr') = QSpacerItemConst $ (HoppyF.castPtr :: HoppyF.Ptr QSpacerItem -> HoppyF.Ptr QSpacerItemConst) ptr'
  toQSpacerItemConst (QSpacerItemGc fptr' ptr') = QSpacerItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QSpacerItem -> HoppyF.Ptr QSpacerItemConst) ptr'

instance QSpacerItemPtr QSpacerItem where
  toQSpacerItem = HoppyP.id

instance M434.QLayoutItemConstPtr QSpacerItem where
  toQLayoutItemConst (QSpacerItem ptr') = M434.QLayoutItemConst $ castQSpacerItemToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QSpacerItem -> HoppyF.Ptr QSpacerItemConst) ptr'
  toQLayoutItemConst (QSpacerItemGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQSpacerItemToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QSpacerItem -> HoppyF.Ptr QSpacerItemConst) ptr'

instance M434.QLayoutItemPtr QSpacerItem where
  toQLayoutItem (QSpacerItem ptr') = M434.QLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQSpacerItemToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QSpacerItem -> HoppyF.Ptr QSpacerItemConst) ptr'
  toQLayoutItem (QSpacerItemGc fptr' ptr') = M434.QLayoutItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQSpacerItemToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QSpacerItem -> HoppyF.Ptr QSpacerItemConst) ptr'

new :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QSpacerItem)
new arg'1 arg'2 =
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'1 >>= \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'2 >>= \arg'2' ->
  HoppyP.fmap QSpacerItem
  (new' arg'1' arg'2')

newWithOptions :: (HoppyP.Int) -> (HoppyP.Int) -> (M468.QSizePolicyPolicy) -> (M468.QSizePolicyPolicy) -> (HoppyP.IO QSpacerItem)
newWithOptions arg'1 arg'2 arg'3 arg'4 =
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'1 >>= \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'2 >>= \arg'2' ->
  (
    HoppyP.return . HoppyFHR.fromCppEnum
  ) arg'3 >>= \arg'3' ->
  (
    HoppyP.return . HoppyFHR.fromCppEnum
  ) arg'4 >>= \arg'4' ->
  HoppyP.fmap QSpacerItem
  (newWithOptions' arg'1' arg'2' arg'3' arg'4')

class QSpacerItemSuper a where
  downToQSpacerItem :: a -> QSpacerItem

instance QSpacerItemSuper M434.QLayoutItem where
  downToQSpacerItem = castQSpacerItemToNonconst . cast' . M434.castQLayoutItemToConst
    where
      cast' (M434.QLayoutItemConst ptr') = QSpacerItemConst $ castQLayoutItemToQSpacerItem ptr'
      cast' (M434.QLayoutItemConstGc fptr' ptr') = QSpacerItemConstGc fptr' $ castQLayoutItemToQSpacerItem ptr'

class QSpacerItemSuperConst a where
  downToQSpacerItemConst :: a -> QSpacerItemConst

instance QSpacerItemSuperConst M434.QLayoutItemConst where
  downToQSpacerItemConst = cast'
    where
      cast' (M434.QLayoutItemConst ptr') = QSpacerItemConst $ castQLayoutItemToQSpacerItem ptr'
      cast' (M434.QLayoutItemConstGc fptr' ptr') = QSpacerItemConstGc fptr' $ castQLayoutItemToQSpacerItem ptr'

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

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