QMenuBar.hs

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

module Graphics.UI.Qtah.Generated.Widgets.QMenuBar (
  castQMenuBarToQWidget,
  castQWidgetToQMenuBar,
  castQMenuBarToQObject,
  castQObjectToQMenuBar,
  QMenuBarValue (..),
  QMenuBarConstPtr (..),
  actionAt,
  actionGeometry,
  activeAction,
  cornerWidget,
  isDefaultUp,
  isNativeMenuBar,
  QMenuBarPtr (..),
  setActiveAction,
  addAction,
  addNewAction,
  addMenu,
  addNewMenu,
  addNewMenuWithIcon,
  addSeparator,
  clear,
  setDefaultUp,
  insertMenu,
  insertSeparator,
  setNativeMenuBar,
  setCornerWidget,
  emitHovered,
  emitTriggered,
  QMenuBarConst (..),
  castQMenuBarToConst,
  QMenuBar (..),
  castQMenuBarToNonconst,
  new,
  newWithParent,
  QMenuBarSuper (..),
  QMenuBarSuperConst (..),
  ) where

import qualified Foreign as HoppyF
import qualified Foreign.C as HoppyFC
import qualified Foreign.Hoppy.Runtime as HoppyFHR
import qualified Graphics.UI.Qtah.Core.HRect as HRect
import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94
import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114
import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122
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.Gui.QIcon as M288
import qualified Graphics.UI.Qtah.Generated.Widgets.QAction as M368
import qualified Graphics.UI.Qtah.Generated.Widgets.QMenu as M448
import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506
import Prelude (($), (.), (/=), (=<<), (==), (>>=))
import qualified Prelude as HoppyP

foreign import ccall "genpop__QMenuBar_new" new' ::  HoppyP.IO (HoppyF.Ptr QMenuBar)
foreign import ccall "genpop__QMenuBar_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QMenuBar)
foreign import ccall "genpop__QMenuBar_actionAt" actionAt' ::  HoppyF.Ptr QMenuBarConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)
foreign import ccall "genpop__QMenuBar_actionGeometry" actionGeometry' ::  HoppyF.Ptr QMenuBarConst -> HoppyF.Ptr M368.QAction -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)
foreign import ccall "genpop__QMenuBar_activeAction" activeAction' ::  HoppyF.Ptr QMenuBarConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)
foreign import ccall "genpop__QMenuBar_setActiveAction" setActiveAction' ::  HoppyF.Ptr QMenuBar -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()
foreign import ccall "genpop__QMenuBar_addAction" addAction' ::  HoppyF.Ptr QMenuBar -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()
foreign import ccall "genpop__QMenuBar_addNewAction" addNewAction' ::  HoppyF.Ptr QMenuBar -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)
foreign import ccall "genpop__QMenuBar_addMenu" addMenu' ::  HoppyF.Ptr QMenuBar -> HoppyF.Ptr M448.QMenu -> HoppyP.IO (HoppyF.Ptr M368.QAction)
foreign import ccall "genpop__QMenuBar_addNewMenu" addNewMenu' ::  HoppyF.Ptr QMenuBar -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M448.QMenu)
foreign import ccall "genpop__QMenuBar_addNewMenuWithIcon" addNewMenuWithIcon' ::  HoppyF.Ptr QMenuBar -> HoppyF.Ptr M288.QIconConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M448.QMenu)
foreign import ccall "genpop__QMenuBar_addSeparator" addSeparator' ::  HoppyF.Ptr QMenuBar -> HoppyP.IO (HoppyF.Ptr M368.QAction)
foreign import ccall "genpop__QMenuBar_clear" clear' ::  HoppyF.Ptr QMenuBar -> HoppyP.IO ()
foreign import ccall "genpop__QMenuBar_cornerWidget" cornerWidget' ::  HoppyF.Ptr QMenuBarConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M506.QWidget)
foreign import ccall "genpop__QMenuBar_isDefaultUp" isDefaultUp' ::  HoppyF.Ptr QMenuBarConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QMenuBar_setDefaultUp" setDefaultUp' ::  HoppyF.Ptr QMenuBar -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QMenuBar_insertMenu" insertMenu' ::  HoppyF.Ptr QMenuBar -> HoppyF.Ptr M368.QAction -> HoppyF.Ptr M448.QMenu -> HoppyP.IO (HoppyF.Ptr M368.QAction)
foreign import ccall "genpop__QMenuBar_insertSeparator" insertSeparator' ::  HoppyF.Ptr QMenuBar -> HoppyF.Ptr M368.QAction -> HoppyP.IO (HoppyF.Ptr M368.QAction)
foreign import ccall "genpop__QMenuBar_isNativeMenuBar" isNativeMenuBar' ::  HoppyF.Ptr QMenuBarConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QMenuBar_setNativeMenuBar" setNativeMenuBar' ::  HoppyF.Ptr QMenuBar -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QMenuBar_setCornerWidget" setCornerWidget' ::  HoppyF.Ptr QMenuBar -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QMenuBar_emitHovered" emitHovered' ::  HoppyF.Ptr QMenuBar -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()
foreign import ccall "genpop__QMenuBar_emitTriggered" emitTriggered' ::  HoppyF.Ptr QMenuBar -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()
foreign import ccall "gencast__QMenuBar__QWidget" castQMenuBarToQWidget :: HoppyF.Ptr QMenuBarConst -> HoppyF.Ptr M506.QWidgetConst
foreign import ccall "gencast__QWidget__QMenuBar" castQWidgetToQMenuBar :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QMenuBarConst
foreign import ccall "gencast__QMenuBar__QObject" castQMenuBarToQObject :: HoppyF.Ptr QMenuBarConst -> HoppyF.Ptr M94.QObjectConst
foreign import ccall "gencast__QObject__QMenuBar" castQObjectToQMenuBar :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QMenuBarConst
foreign import ccall "gendel__QMenuBar" delete'QMenuBar :: HoppyF.Ptr QMenuBarConst -> HoppyP.IO ()
foreign import ccall "&gendel__QMenuBar" deletePtr'QMenuBar :: HoppyF.FunPtr (HoppyF.Ptr QMenuBarConst -> HoppyP.IO ())

class QMenuBarValue a where
  withQMenuBarPtr :: a -> (QMenuBarConst -> HoppyP.IO b) -> HoppyP.IO b

instance {-# OVERLAPPABLE #-} QMenuBarConstPtr a => QMenuBarValue a where
  withQMenuBarPtr = HoppyP.flip ($) . toQMenuBarConst

class (M506.QWidgetConstPtr this) => QMenuBarConstPtr this where
  toQMenuBarConst :: this -> QMenuBarConst

actionAt :: (QMenuBarValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M368.QAction)
actionAt arg'1 arg'2 =
  withQMenuBarPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  HoppyP.fmap M368.QAction
  (actionAt' arg'1' arg'2')

actionGeometry :: (QMenuBarValue this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HRect.HRect)
actionGeometry arg'1 arg'2 =
  withQMenuBarPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->
  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<
  (actionGeometry' arg'1' arg'2')

activeAction :: (QMenuBarValue this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction)
activeAction arg'1 =
  withQMenuBarPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  HoppyP.fmap M368.QAction
  (activeAction' arg'1')

cornerWidget :: (QMenuBarValue this) => (this) {- ^ this -} -> (M190.QtCorner) -> (HoppyP.IO M506.QWidget)
cornerWidget arg'1 arg'2 =
  withQMenuBarPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.fromCppEnum
  ) arg'2 >>= \arg'2' ->
  HoppyP.fmap M506.QWidget
  (cornerWidget' arg'1' arg'2')

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

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

class (QMenuBarConstPtr this, M506.QWidgetPtr this) => QMenuBarPtr this where
  toQMenuBar :: this -> QMenuBar

setActiveAction :: (QMenuBarPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setActiveAction arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->
  (setActiveAction' arg'1' arg'2')

addAction :: (QMenuBarPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
addAction arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->
  (addAction' arg'1' arg'2')

addNewAction :: (QMenuBarPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M368.QAction)
addNewAction arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  HoppyP.fmap M368.QAction
  (addNewAction' arg'1' arg'2')

addMenu :: (QMenuBarPtr this, M448.QMenuPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M368.QAction)
addMenu arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  HoppyFHR.withCppPtr (M448.toQMenu arg'2) $ \arg'2' ->
  HoppyP.fmap M368.QAction
  (addMenu' arg'1' arg'2')

addNewMenu :: (QMenuBarPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M448.QMenu)
addNewMenu arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  HoppyP.fmap M448.QMenu
  (addNewMenu' arg'1' arg'2')

addNewMenuWithIcon :: (QMenuBarPtr this, M288.QIconValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO M448.QMenu)
addNewMenuWithIcon arg'1 arg'2 arg'3 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  M288.withQIconPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->
  HoppyP.fmap M448.QMenu
  (addNewMenuWithIcon' arg'1' arg'2' arg'3')

addSeparator :: (QMenuBarPtr this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction)
addSeparator arg'1 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  HoppyP.fmap M368.QAction
  (addSeparator' arg'1')

clear :: (QMenuBarPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
clear arg'1 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  (clear' arg'1')

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

insertMenu :: (QMenuBarPtr this, M368.QActionPtr arg'2, M448.QMenuPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO M368.QAction)
insertMenu arg'1 arg'2 arg'3 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->
  HoppyFHR.withCppPtr (M448.toQMenu arg'3) $ \arg'3' ->
  HoppyP.fmap M368.QAction
  (insertMenu' arg'1' arg'2' arg'3')

insertSeparator :: (QMenuBarPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M368.QAction)
insertSeparator arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->
  HoppyP.fmap M368.QAction
  (insertSeparator' arg'1' arg'2')

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

setCornerWidget :: (QMenuBarPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtCorner) -> (HoppyP.IO ())
setCornerWidget arg'1 arg'2 arg'3 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->
  (
    HoppyP.return . HoppyFHR.fromCppEnum
  ) arg'3 >>= \arg'3' ->
  (setCornerWidget' arg'1' arg'2' arg'3')

emitHovered :: (QMenuBarPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
emitHovered arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->
  (emitHovered' arg'1' arg'2')

emitTriggered :: (QMenuBarPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
emitTriggered arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQMenuBar arg'1) $ \arg'1' ->
  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->
  (emitTriggered' arg'1' arg'2')

data QMenuBarConst =
    QMenuBarConst (HoppyF.Ptr QMenuBarConst)
  | QMenuBarConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMenuBarConst)
  deriving (HoppyP.Show)

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

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

castQMenuBarToConst :: QMenuBar -> QMenuBarConst
castQMenuBarToConst (QMenuBar ptr') = QMenuBarConst $ HoppyF.castPtr ptr'
castQMenuBarToConst (QMenuBarGc fptr' ptr') = QMenuBarConstGc fptr' $ HoppyF.castPtr ptr'

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

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

instance QMenuBarConstPtr QMenuBarConst where
  toQMenuBarConst = HoppyP.id

instance M506.QWidgetConstPtr QMenuBarConst where
  toQWidgetConst (QMenuBarConst ptr') = M506.QWidgetConst $ castQMenuBarToQWidget ptr'
  toQWidgetConst (QMenuBarConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQMenuBarToQWidget ptr'

instance M94.QObjectConstPtr QMenuBarConst where
  toQObjectConst (QMenuBarConst ptr') = M94.QObjectConst $ castQMenuBarToQObject ptr'
  toQObjectConst (QMenuBarConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMenuBarToQObject ptr'

data QMenuBar =
    QMenuBar (HoppyF.Ptr QMenuBar)
  | QMenuBarGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMenuBar)
  deriving (HoppyP.Show)

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

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

castQMenuBarToNonconst :: QMenuBarConst -> QMenuBar
castQMenuBarToNonconst (QMenuBarConst ptr') = QMenuBar $ HoppyF.castPtr ptr'
castQMenuBarToNonconst (QMenuBarConstGc fptr' ptr') = QMenuBarGc fptr' $ HoppyF.castPtr ptr'

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

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

instance QMenuBarConstPtr QMenuBar where
  toQMenuBarConst (QMenuBar ptr') = QMenuBarConst $ (HoppyF.castPtr :: HoppyF.Ptr QMenuBar -> HoppyF.Ptr QMenuBarConst) ptr'
  toQMenuBarConst (QMenuBarGc fptr' ptr') = QMenuBarConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMenuBar -> HoppyF.Ptr QMenuBarConst) ptr'

instance QMenuBarPtr QMenuBar where
  toQMenuBar = HoppyP.id

instance M506.QWidgetConstPtr QMenuBar where
  toQWidgetConst (QMenuBar ptr') = M506.QWidgetConst $ castQMenuBarToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMenuBar -> HoppyF.Ptr QMenuBarConst) ptr'
  toQWidgetConst (QMenuBarGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQMenuBarToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMenuBar -> HoppyF.Ptr QMenuBarConst) ptr'

instance M506.QWidgetPtr QMenuBar where
  toQWidget (QMenuBar ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQMenuBarToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMenuBar -> HoppyF.Ptr QMenuBarConst) ptr'
  toQWidget (QMenuBarGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQMenuBarToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMenuBar -> HoppyF.Ptr QMenuBarConst) ptr'

instance M94.QObjectConstPtr QMenuBar where
  toQObjectConst (QMenuBar ptr') = M94.QObjectConst $ castQMenuBarToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMenuBar -> HoppyF.Ptr QMenuBarConst) ptr'
  toQObjectConst (QMenuBarGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMenuBarToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMenuBar -> HoppyF.Ptr QMenuBarConst) ptr'

instance M94.QObjectPtr QMenuBar where
  toQObject (QMenuBar ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMenuBarToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMenuBar -> HoppyF.Ptr QMenuBarConst) ptr'
  toQObject (QMenuBarGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMenuBarToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMenuBar -> HoppyF.Ptr QMenuBarConst) ptr'

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

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

class QMenuBarSuper a where
  downToQMenuBar :: a -> QMenuBar

instance QMenuBarSuper M506.QWidget where
  downToQMenuBar = castQMenuBarToNonconst . cast' . M506.castQWidgetToConst
    where
      cast' (M506.QWidgetConst ptr') = QMenuBarConst $ castQWidgetToQMenuBar ptr'
      cast' (M506.QWidgetConstGc fptr' ptr') = QMenuBarConstGc fptr' $ castQWidgetToQMenuBar ptr'
instance QMenuBarSuper M94.QObject where
  downToQMenuBar = castQMenuBarToNonconst . cast' . M94.castQObjectToConst
    where
      cast' (M94.QObjectConst ptr') = QMenuBarConst $ castQObjectToQMenuBar ptr'
      cast' (M94.QObjectConstGc fptr' ptr') = QMenuBarConstGc fptr' $ castQObjectToQMenuBar ptr'

class QMenuBarSuperConst a where
  downToQMenuBarConst :: a -> QMenuBarConst

instance QMenuBarSuperConst M506.QWidgetConst where
  downToQMenuBarConst = cast'
    where
      cast' (M506.QWidgetConst ptr') = QMenuBarConst $ castQWidgetToQMenuBar ptr'
      cast' (M506.QWidgetConstGc fptr' ptr') = QMenuBarConstGc fptr' $ castQWidgetToQMenuBar ptr'
instance QMenuBarSuperConst M94.QObjectConst where
  downToQMenuBarConst = cast'
    where
      cast' (M94.QObjectConst ptr') = QMenuBarConst $ castQObjectToQMenuBar ptr'
      cast' (M94.QObjectConstGc fptr' ptr') = QMenuBarConstGc fptr' $ castQObjectToQMenuBar ptr'

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

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