QScrollArea.hs

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

module Graphics.UI.Qtah.Generated.Widgets.QScrollArea (
  castQScrollAreaToQAbstractScrollArea,
  castQAbstractScrollAreaToQScrollArea,
  castQScrollAreaToQFrame,
  castQFrameToQScrollArea,
  castQScrollAreaToQWidget,
  castQWidgetToQScrollArea,
  castQScrollAreaToQObject,
  castQObjectToQScrollArea,
  QScrollAreaValue (..),
  QScrollAreaConstPtr (..),
  alignment,
  widget,
  widgetResizable,
  QScrollAreaPtr (..),
  setAlignment,
  ensureVisible,
  ensureVisibleWithMargins,
  ensureWidgetVisible,
  ensureWidgetVisibleWithMargins,
  takeWidget,
  setWidget,
  setWidgetResizable,
  QScrollAreaConst (..),
  castQScrollAreaToConst,
  QScrollArea (..),
  castQScrollAreaToNonconst,
  new,
  newWithParent,
  QScrollAreaSuper (..),
  QScrollAreaSuperConst (..),
  ) 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.Types as M190
import qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractScrollArea as M362
import qualified Graphics.UI.Qtah.Generated.Widgets.QFrame as M400
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__QScrollArea_new" new' ::  HoppyP.IO (HoppyF.Ptr QScrollArea)
foreign import ccall "genpop__QScrollArea_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QScrollArea)
foreign import ccall "genpop__QScrollArea_alignment" alignment' ::  HoppyF.Ptr QScrollAreaConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QScrollArea_setAlignment" setAlignment' ::  HoppyF.Ptr QScrollArea -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QScrollArea_ensureVisible" ensureVisible' ::  HoppyF.Ptr QScrollArea -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QScrollArea_ensureVisibleWithMargins" ensureVisibleWithMargins' ::  HoppyF.Ptr QScrollArea -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QScrollArea_ensureWidgetVisible" ensureWidgetVisible' ::  HoppyF.Ptr QScrollArea -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()
foreign import ccall "genpop__QScrollArea_ensureWidgetVisibleWithMargins" ensureWidgetVisibleWithMargins' ::  HoppyF.Ptr QScrollArea -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QScrollArea_takeWidget" takeWidget' ::  HoppyF.Ptr QScrollArea -> HoppyP.IO (HoppyF.Ptr M506.QWidget)
foreign import ccall "genpop__QScrollArea_widget" widget' ::  HoppyF.Ptr QScrollAreaConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)
foreign import ccall "genpop__QScrollArea_setWidget" setWidget' ::  HoppyF.Ptr QScrollArea -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()
foreign import ccall "genpop__QScrollArea_widgetResizable" widgetResizable' ::  HoppyF.Ptr QScrollAreaConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QScrollArea_setWidgetResizable" setWidgetResizable' ::  HoppyF.Ptr QScrollArea -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "gencast__QScrollArea__QAbstractScrollArea" castQScrollAreaToQAbstractScrollArea :: HoppyF.Ptr QScrollAreaConst -> HoppyF.Ptr M362.QAbstractScrollAreaConst
foreign import ccall "gencast__QAbstractScrollArea__QScrollArea" castQAbstractScrollAreaToQScrollArea :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr QScrollAreaConst
foreign import ccall "gencast__QScrollArea__QFrame" castQScrollAreaToQFrame :: HoppyF.Ptr QScrollAreaConst -> HoppyF.Ptr M400.QFrameConst
foreign import ccall "gencast__QFrame__QScrollArea" castQFrameToQScrollArea :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr QScrollAreaConst
foreign import ccall "gencast__QScrollArea__QWidget" castQScrollAreaToQWidget :: HoppyF.Ptr QScrollAreaConst -> HoppyF.Ptr M506.QWidgetConst
foreign import ccall "gencast__QWidget__QScrollArea" castQWidgetToQScrollArea :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QScrollAreaConst
foreign import ccall "gencast__QScrollArea__QObject" castQScrollAreaToQObject :: HoppyF.Ptr QScrollAreaConst -> HoppyF.Ptr M94.QObjectConst
foreign import ccall "gencast__QObject__QScrollArea" castQObjectToQScrollArea :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QScrollAreaConst
foreign import ccall "gendel__QScrollArea" delete'QScrollArea :: HoppyF.Ptr QScrollAreaConst -> HoppyP.IO ()
foreign import ccall "&gendel__QScrollArea" deletePtr'QScrollArea :: HoppyF.FunPtr (HoppyF.Ptr QScrollAreaConst -> HoppyP.IO ())

class QScrollAreaValue a where
  withQScrollAreaPtr :: a -> (QScrollAreaConst -> HoppyP.IO b) -> HoppyP.IO b

instance {-# OVERLAPPABLE #-} QScrollAreaConstPtr a => QScrollAreaValue a where
  withQScrollAreaPtr = HoppyP.flip ($) . toQScrollAreaConst

class (M362.QAbstractScrollAreaConstPtr this) => QScrollAreaConstPtr this where
  toQScrollAreaConst :: this -> QScrollAreaConst

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

widget :: (QScrollAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)
widget arg'1 =
  withQScrollAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  HoppyP.fmap M506.QWidget
  (widget' arg'1')

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

class (QScrollAreaConstPtr this, M362.QAbstractScrollAreaPtr this) => QScrollAreaPtr this where
  toQScrollArea :: this -> QScrollArea

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

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

ensureVisibleWithMargins :: (QScrollAreaPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())
ensureVisibleWithMargins arg'1 arg'2 arg'3 arg'4 arg'5 =
  HoppyFHR.withCppPtr (toQScrollArea arg'1) $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'2 >>= \arg'2' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'3 >>= \arg'3' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'4 >>= \arg'4' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'5 >>= \arg'5' ->
  (ensureVisibleWithMargins' arg'1' arg'2' arg'3' arg'4' arg'5')

ensureWidgetVisible :: (QScrollAreaPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
ensureWidgetVisible arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQScrollArea arg'1) $ \arg'1' ->
  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->
  (ensureWidgetVisible' arg'1' arg'2')

ensureWidgetVisibleWithMargins :: (QScrollAreaPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())
ensureWidgetVisibleWithMargins arg'1 arg'2 arg'3 arg'4 =
  HoppyFHR.withCppPtr (toQScrollArea arg'1) $ \arg'1' ->
  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'3 >>= \arg'3' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'4 >>= \arg'4' ->
  (ensureWidgetVisibleWithMargins' arg'1' arg'2' arg'3' arg'4')

takeWidget :: (QScrollAreaPtr this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)
takeWidget arg'1 =
  HoppyFHR.withCppPtr (toQScrollArea arg'1) $ \arg'1' ->
  HoppyP.fmap M506.QWidget
  (takeWidget' arg'1')

setWidget :: (QScrollAreaPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setWidget arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQScrollArea arg'1) $ \arg'1' ->
  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->
  (setWidget' arg'1' arg'2')

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

data QScrollAreaConst =
    QScrollAreaConst (HoppyF.Ptr QScrollAreaConst)
  | QScrollAreaConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QScrollAreaConst)
  deriving (HoppyP.Show)

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

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

castQScrollAreaToConst :: QScrollArea -> QScrollAreaConst
castQScrollAreaToConst (QScrollArea ptr') = QScrollAreaConst $ HoppyF.castPtr ptr'
castQScrollAreaToConst (QScrollAreaGc fptr' ptr') = QScrollAreaConstGc fptr' $ HoppyF.castPtr ptr'

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

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

instance QScrollAreaConstPtr QScrollAreaConst where
  toQScrollAreaConst = HoppyP.id

instance M362.QAbstractScrollAreaConstPtr QScrollAreaConst where
  toQAbstractScrollAreaConst (QScrollAreaConst ptr') = M362.QAbstractScrollAreaConst $ castQScrollAreaToQAbstractScrollArea ptr'
  toQAbstractScrollAreaConst (QScrollAreaConstGc fptr' ptr') = M362.QAbstractScrollAreaConstGc fptr' $ castQScrollAreaToQAbstractScrollArea ptr'

instance M400.QFrameConstPtr QScrollAreaConst where
  toQFrameConst (QScrollAreaConst ptr') = M400.QFrameConst $ castQScrollAreaToQFrame ptr'
  toQFrameConst (QScrollAreaConstGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQScrollAreaToQFrame ptr'

instance M506.QWidgetConstPtr QScrollAreaConst where
  toQWidgetConst (QScrollAreaConst ptr') = M506.QWidgetConst $ castQScrollAreaToQWidget ptr'
  toQWidgetConst (QScrollAreaConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQScrollAreaToQWidget ptr'

instance M94.QObjectConstPtr QScrollAreaConst where
  toQObjectConst (QScrollAreaConst ptr') = M94.QObjectConst $ castQScrollAreaToQObject ptr'
  toQObjectConst (QScrollAreaConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQScrollAreaToQObject ptr'

data QScrollArea =
    QScrollArea (HoppyF.Ptr QScrollArea)
  | QScrollAreaGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QScrollArea)
  deriving (HoppyP.Show)

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

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

castQScrollAreaToNonconst :: QScrollAreaConst -> QScrollArea
castQScrollAreaToNonconst (QScrollAreaConst ptr') = QScrollArea $ HoppyF.castPtr ptr'
castQScrollAreaToNonconst (QScrollAreaConstGc fptr' ptr') = QScrollAreaGc fptr' $ HoppyF.castPtr ptr'

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

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

instance QScrollAreaConstPtr QScrollArea where
  toQScrollAreaConst (QScrollArea ptr') = QScrollAreaConst $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'
  toQScrollAreaConst (QScrollAreaGc fptr' ptr') = QScrollAreaConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'

instance QScrollAreaPtr QScrollArea where
  toQScrollArea = HoppyP.id

instance M362.QAbstractScrollAreaConstPtr QScrollArea where
  toQAbstractScrollAreaConst (QScrollArea ptr') = M362.QAbstractScrollAreaConst $ castQScrollAreaToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'
  toQAbstractScrollAreaConst (QScrollAreaGc fptr' ptr') = M362.QAbstractScrollAreaConstGc fptr' $ castQScrollAreaToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'

instance M362.QAbstractScrollAreaPtr QScrollArea where
  toQAbstractScrollArea (QScrollArea ptr') = M362.QAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr M362.QAbstractScrollArea) $ castQScrollAreaToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'
  toQAbstractScrollArea (QScrollAreaGc fptr' ptr') = M362.QAbstractScrollAreaGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr M362.QAbstractScrollArea) $ castQScrollAreaToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'

instance M400.QFrameConstPtr QScrollArea where
  toQFrameConst (QScrollArea ptr') = M400.QFrameConst $ castQScrollAreaToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'
  toQFrameConst (QScrollAreaGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQScrollAreaToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'

instance M400.QFramePtr QScrollArea where
  toQFrame (QScrollArea ptr') = M400.QFrame $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQScrollAreaToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'
  toQFrame (QScrollAreaGc fptr' ptr') = M400.QFrameGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQScrollAreaToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'

instance M506.QWidgetConstPtr QScrollArea where
  toQWidgetConst (QScrollArea ptr') = M506.QWidgetConst $ castQScrollAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'
  toQWidgetConst (QScrollAreaGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQScrollAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'

instance M506.QWidgetPtr QScrollArea where
  toQWidget (QScrollArea ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQScrollAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'
  toQWidget (QScrollAreaGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQScrollAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'

instance M94.QObjectConstPtr QScrollArea where
  toQObjectConst (QScrollArea ptr') = M94.QObjectConst $ castQScrollAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'
  toQObjectConst (QScrollAreaGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQScrollAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'

instance M94.QObjectPtr QScrollArea where
  toQObject (QScrollArea ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQScrollAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'
  toQObject (QScrollAreaGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQScrollAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QScrollArea -> HoppyF.Ptr QScrollAreaConst) ptr'

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

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

class QScrollAreaSuper a where
  downToQScrollArea :: a -> QScrollArea

instance QScrollAreaSuper M362.QAbstractScrollArea where
  downToQScrollArea = castQScrollAreaToNonconst . cast' . M362.castQAbstractScrollAreaToConst
    where
      cast' (M362.QAbstractScrollAreaConst ptr') = QScrollAreaConst $ castQAbstractScrollAreaToQScrollArea ptr'
      cast' (M362.QAbstractScrollAreaConstGc fptr' ptr') = QScrollAreaConstGc fptr' $ castQAbstractScrollAreaToQScrollArea ptr'
instance QScrollAreaSuper M400.QFrame where
  downToQScrollArea = castQScrollAreaToNonconst . cast' . M400.castQFrameToConst
    where
      cast' (M400.QFrameConst ptr') = QScrollAreaConst $ castQFrameToQScrollArea ptr'
      cast' (M400.QFrameConstGc fptr' ptr') = QScrollAreaConstGc fptr' $ castQFrameToQScrollArea ptr'
instance QScrollAreaSuper M506.QWidget where
  downToQScrollArea = castQScrollAreaToNonconst . cast' . M506.castQWidgetToConst
    where
      cast' (M506.QWidgetConst ptr') = QScrollAreaConst $ castQWidgetToQScrollArea ptr'
      cast' (M506.QWidgetConstGc fptr' ptr') = QScrollAreaConstGc fptr' $ castQWidgetToQScrollArea ptr'
instance QScrollAreaSuper M94.QObject where
  downToQScrollArea = castQScrollAreaToNonconst . cast' . M94.castQObjectToConst
    where
      cast' (M94.QObjectConst ptr') = QScrollAreaConst $ castQObjectToQScrollArea ptr'
      cast' (M94.QObjectConstGc fptr' ptr') = QScrollAreaConstGc fptr' $ castQObjectToQScrollArea ptr'

class QScrollAreaSuperConst a where
  downToQScrollAreaConst :: a -> QScrollAreaConst

instance QScrollAreaSuperConst M362.QAbstractScrollAreaConst where
  downToQScrollAreaConst = cast'
    where
      cast' (M362.QAbstractScrollAreaConst ptr') = QScrollAreaConst $ castQAbstractScrollAreaToQScrollArea ptr'
      cast' (M362.QAbstractScrollAreaConstGc fptr' ptr') = QScrollAreaConstGc fptr' $ castQAbstractScrollAreaToQScrollArea ptr'
instance QScrollAreaSuperConst M400.QFrameConst where
  downToQScrollAreaConst = cast'
    where
      cast' (M400.QFrameConst ptr') = QScrollAreaConst $ castQFrameToQScrollArea ptr'
      cast' (M400.QFrameConstGc fptr' ptr') = QScrollAreaConstGc fptr' $ castQFrameToQScrollArea ptr'
instance QScrollAreaSuperConst M506.QWidgetConst where
  downToQScrollAreaConst = cast'
    where
      cast' (M506.QWidgetConst ptr') = QScrollAreaConst $ castQWidgetToQScrollArea ptr'
      cast' (M506.QWidgetConstGc fptr' ptr') = QScrollAreaConstGc fptr' $ castQWidgetToQScrollArea ptr'
instance QScrollAreaSuperConst M94.QObjectConst where
  downToQScrollAreaConst = cast'
    where
      cast' (M94.QObjectConst ptr') = QScrollAreaConst $ castQObjectToQScrollArea ptr'
      cast' (M94.QObjectConstGc fptr' ptr') = QScrollAreaConstGc fptr' $ castQObjectToQScrollArea ptr'

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

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