QGroupBox.hs

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

module Graphics.UI.Qtah.Generated.Widgets.QGroupBox (
  castQGroupBoxToQWidget,
  castQWidgetToQGroupBox,
  castQGroupBoxToQObject,
  castQObjectToQGroupBox,
  QGroupBoxValue (..),
  QGroupBoxConstPtr (..),
  alignment,
  isCheckable,
  isChecked,
  isFlat,
  title,
  QGroupBoxPtr (..),
  setAlignment,
  setCheckable,
  setChecked,
  setFlat,
  setTitle,
  emitClicked,
  emitToggled,
  QGroupBoxConst (..),
  castQGroupBoxToConst,
  QGroupBox (..),
  castQGroupBoxToNonconst,
  new,
  newWithParent,
  newWithTitle,
  newWithTitleAndParent,
  QGroupBoxSuper (..),
  QGroupBoxSuperConst (..),
  ) where

import qualified Foreign as HoppyF
import qualified Foreign.C as HoppyFC
import qualified Foreign.Hoppy.Runtime as HoppyFHR
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 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__QGroupBox_new" new' ::  HoppyP.IO (HoppyF.Ptr QGroupBox)
foreign import ccall "genpop__QGroupBox_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QGroupBox)
foreign import ccall "genpop__QGroupBox_newWithTitle" newWithTitle' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QGroupBox)
foreign import ccall "genpop__QGroupBox_newWithTitleAndParent" newWithTitleAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QGroupBox)
foreign import ccall "genpop__QGroupBox_alignment" alignment' ::  HoppyF.Ptr QGroupBoxConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QGroupBox_setAlignment" setAlignment' ::  HoppyF.Ptr QGroupBox -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QGroupBox_isCheckable" isCheckable' ::  HoppyF.Ptr QGroupBoxConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QGroupBox_setCheckable" setCheckable' ::  HoppyF.Ptr QGroupBox -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QGroupBox_isChecked" isChecked' ::  HoppyF.Ptr QGroupBoxConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QGroupBox_setChecked" setChecked' ::  HoppyF.Ptr QGroupBox -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QGroupBox_isFlat" isFlat' ::  HoppyF.Ptr QGroupBoxConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QGroupBox_setFlat" setFlat' ::  HoppyF.Ptr QGroupBox -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QGroupBox_title" title' ::  HoppyF.Ptr QGroupBoxConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)
foreign import ccall "genpop__QGroupBox_setTitle" setTitle' ::  HoppyF.Ptr QGroupBox -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()
foreign import ccall "genpop__QGroupBox_emitClicked" emitClicked' ::  HoppyF.Ptr QGroupBox -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QGroupBox_emitToggled" emitToggled' ::  HoppyF.Ptr QGroupBox -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "gencast__QGroupBox__QWidget" castQGroupBoxToQWidget :: HoppyF.Ptr QGroupBoxConst -> HoppyF.Ptr M506.QWidgetConst
foreign import ccall "gencast__QWidget__QGroupBox" castQWidgetToQGroupBox :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QGroupBoxConst
foreign import ccall "gencast__QGroupBox__QObject" castQGroupBoxToQObject :: HoppyF.Ptr QGroupBoxConst -> HoppyF.Ptr M94.QObjectConst
foreign import ccall "gencast__QObject__QGroupBox" castQObjectToQGroupBox :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QGroupBoxConst
foreign import ccall "gendel__QGroupBox" delete'QGroupBox :: HoppyF.Ptr QGroupBoxConst -> HoppyP.IO ()
foreign import ccall "&gendel__QGroupBox" deletePtr'QGroupBox :: HoppyF.FunPtr (HoppyF.Ptr QGroupBoxConst -> HoppyP.IO ())

class QGroupBoxValue a where
  withQGroupBoxPtr :: a -> (QGroupBoxConst -> HoppyP.IO b) -> HoppyP.IO b

instance {-# OVERLAPPABLE #-} QGroupBoxConstPtr a => QGroupBoxValue a where
  withQGroupBoxPtr = HoppyP.flip ($) . toQGroupBoxConst

class (M506.QWidgetConstPtr this) => QGroupBoxConstPtr this where
  toQGroupBoxConst :: this -> QGroupBoxConst

alignment :: (QGroupBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtAlignment)
alignment arg'1 =
  withQGroupBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    QtahP.return . QtahFlags.numToFlags
  ) =<<
  (alignment' arg'1')

isCheckable :: (QGroupBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
isCheckable arg'1 =
  withQGroupBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (isCheckable' arg'1')

isChecked :: (QGroupBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
isChecked arg'1 =
  withQGroupBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (isChecked' arg'1')

isFlat :: (QGroupBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
isFlat arg'1 =
  withQGroupBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (isFlat' arg'1')

title :: (QGroupBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)
title arg'1 =
  withQGroupBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<
  (title' arg'1')

class (QGroupBoxConstPtr this, M506.QWidgetPtr this) => QGroupBoxPtr this where
  toQGroupBox :: this -> QGroupBox

setAlignment :: (QGroupBoxPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setAlignment arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQGroupBox arg'1) $ \arg'1' ->
  (
    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment
  ) arg'2 >>= \arg'2' ->
  (setAlignment' arg'1' arg'2')

setCheckable :: (QGroupBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
setCheckable arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQGroupBox arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (setCheckable' arg'1' arg'2')

setChecked :: (QGroupBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
setChecked arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQGroupBox arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (setChecked' arg'1' arg'2')

setFlat :: (QGroupBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
setFlat arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQGroupBox arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (setFlat' arg'1' arg'2')

setTitle :: (QGroupBoxPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setTitle arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQGroupBox arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (setTitle' arg'1' arg'2')

emitClicked :: (QGroupBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
emitClicked arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQGroupBox arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (emitClicked' arg'1' arg'2')

emitToggled :: (QGroupBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
emitToggled arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQGroupBox arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (emitToggled' arg'1' arg'2')

data QGroupBoxConst =
    QGroupBoxConst (HoppyF.Ptr QGroupBoxConst)
  | QGroupBoxConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGroupBoxConst)
  deriving (HoppyP.Show)

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

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

castQGroupBoxToConst :: QGroupBox -> QGroupBoxConst
castQGroupBoxToConst (QGroupBox ptr') = QGroupBoxConst $ HoppyF.castPtr ptr'
castQGroupBoxToConst (QGroupBoxGc fptr' ptr') = QGroupBoxConstGc fptr' $ HoppyF.castPtr ptr'

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

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

instance QGroupBoxConstPtr QGroupBoxConst where
  toQGroupBoxConst = HoppyP.id

instance M506.QWidgetConstPtr QGroupBoxConst where
  toQWidgetConst (QGroupBoxConst ptr') = M506.QWidgetConst $ castQGroupBoxToQWidget ptr'
  toQWidgetConst (QGroupBoxConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQGroupBoxToQWidget ptr'

instance M94.QObjectConstPtr QGroupBoxConst where
  toQObjectConst (QGroupBoxConst ptr') = M94.QObjectConst $ castQGroupBoxToQObject ptr'
  toQObjectConst (QGroupBoxConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQGroupBoxToQObject ptr'

data QGroupBox =
    QGroupBox (HoppyF.Ptr QGroupBox)
  | QGroupBoxGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGroupBox)
  deriving (HoppyP.Show)

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

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

castQGroupBoxToNonconst :: QGroupBoxConst -> QGroupBox
castQGroupBoxToNonconst (QGroupBoxConst ptr') = QGroupBox $ HoppyF.castPtr ptr'
castQGroupBoxToNonconst (QGroupBoxConstGc fptr' ptr') = QGroupBoxGc fptr' $ HoppyF.castPtr ptr'

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

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

instance QGroupBoxConstPtr QGroupBox where
  toQGroupBoxConst (QGroupBox ptr') = QGroupBoxConst $ (HoppyF.castPtr :: HoppyF.Ptr QGroupBox -> HoppyF.Ptr QGroupBoxConst) ptr'
  toQGroupBoxConst (QGroupBoxGc fptr' ptr') = QGroupBoxConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGroupBox -> HoppyF.Ptr QGroupBoxConst) ptr'

instance QGroupBoxPtr QGroupBox where
  toQGroupBox = HoppyP.id

instance M506.QWidgetConstPtr QGroupBox where
  toQWidgetConst (QGroupBox ptr') = M506.QWidgetConst $ castQGroupBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QGroupBox -> HoppyF.Ptr QGroupBoxConst) ptr'
  toQWidgetConst (QGroupBoxGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQGroupBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QGroupBox -> HoppyF.Ptr QGroupBoxConst) ptr'

instance M506.QWidgetPtr QGroupBox where
  toQWidget (QGroupBox ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQGroupBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QGroupBox -> HoppyF.Ptr QGroupBoxConst) ptr'
  toQWidget (QGroupBoxGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQGroupBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QGroupBox -> HoppyF.Ptr QGroupBoxConst) ptr'

instance M94.QObjectConstPtr QGroupBox where
  toQObjectConst (QGroupBox ptr') = M94.QObjectConst $ castQGroupBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGroupBox -> HoppyF.Ptr QGroupBoxConst) ptr'
  toQObjectConst (QGroupBoxGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQGroupBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGroupBox -> HoppyF.Ptr QGroupBoxConst) ptr'

instance M94.QObjectPtr QGroupBox where
  toQObject (QGroupBox ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQGroupBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGroupBox -> HoppyF.Ptr QGroupBoxConst) ptr'
  toQObject (QGroupBoxGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQGroupBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGroupBox -> HoppyF.Ptr QGroupBoxConst) ptr'

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

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

newWithTitle :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QGroupBox)
newWithTitle arg'1 =
  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  HoppyP.fmap QGroupBox
  (newWithTitle' arg'1')

newWithTitleAndParent :: (M142.QStringValue arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QGroupBox)
newWithTitleAndParent arg'1 arg'2 =
  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->
  HoppyP.fmap QGroupBox
  (newWithTitleAndParent' arg'1' arg'2')

class QGroupBoxSuper a where
  downToQGroupBox :: a -> QGroupBox

instance QGroupBoxSuper M506.QWidget where
  downToQGroupBox = castQGroupBoxToNonconst . cast' . M506.castQWidgetToConst
    where
      cast' (M506.QWidgetConst ptr') = QGroupBoxConst $ castQWidgetToQGroupBox ptr'
      cast' (M506.QWidgetConstGc fptr' ptr') = QGroupBoxConstGc fptr' $ castQWidgetToQGroupBox ptr'
instance QGroupBoxSuper M94.QObject where
  downToQGroupBox = castQGroupBoxToNonconst . cast' . M94.castQObjectToConst
    where
      cast' (M94.QObjectConst ptr') = QGroupBoxConst $ castQObjectToQGroupBox ptr'
      cast' (M94.QObjectConstGc fptr' ptr') = QGroupBoxConstGc fptr' $ castQObjectToQGroupBox ptr'

class QGroupBoxSuperConst a where
  downToQGroupBoxConst :: a -> QGroupBoxConst

instance QGroupBoxSuperConst M506.QWidgetConst where
  downToQGroupBoxConst = cast'
    where
      cast' (M506.QWidgetConst ptr') = QGroupBoxConst $ castQWidgetToQGroupBox ptr'
      cast' (M506.QWidgetConstGc fptr' ptr') = QGroupBoxConstGc fptr' $ castQWidgetToQGroupBox ptr'
instance QGroupBoxSuperConst M94.QObjectConst where
  downToQGroupBoxConst = cast'
    where
      cast' (M94.QObjectConst ptr') = QGroupBoxConst $ castQObjectToQGroupBox ptr'
      cast' (M94.QObjectConstGc fptr' ptr') = QGroupBoxConstGc fptr' $ castQObjectToQGroupBox ptr'

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

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